10M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER PART 
‘2132 KEYBOARD-PRINTER Test : 
| 7 | TABLE OF CONTENTS | 
pamacnapn . 2 2 PAGES 
1. PURPOSE. « a aly cares a a ee ee Par V 
Be PREREQUISITES. wee eee cece err scccccsresece OF 
3. 


OPERATING PROCEDURE. se we ce cece ene e ewe eee ee ee ee mal, . 


Bel = PROGRAM LOADING 


Be 
a P 
i oe 


ra , 7 i 
. 
ae 
de 
’ . 
‘oe 
. 


 Be2 PROGRAM OPERATION 


PROGRAM CONTROL - FUNCTION-@ - 
Be2e2 ROUTINE SELECTION — FUNCTION 2 
3.203 PROGRAM OPTION 
3e3 PROGRAM HALTS 
3e3ei NORMAL HALTS 
3e3e2 ERROR HALTS 
3.4 PROGRAM TERMINATION 
35 RESTARTS 


3-201 


eer 0 or 3 


PRINTOUTSe eo ec ee eceoeowa ee 8 oe ea oe e 


4ol STATUS MESSAGES 
402 ERROR MESSAGES 
© © 6 @ i. as e @a - 


COMMENTS eeceevee0en508e cooee e@eeeee 
Sel THE PRINTER TEST . | 


Se2 «THE KEYBOARD TEST 


APPEND IX eececeowr ooo eee ee ee eee o ee a ee ee SA 


SAMPLE Matlabheddi 


PURPOSE 
THE KEYBOARD PRINTER ‘FUNCTION. TEST CHECKS THE OPERATING PERFORMANCE oF 7 


THE PRINTER AND KEYBOARD AND ‘AIOS IN THEIR PROPER ADJUSTMENT wnate BEING 
RUN IN OVERLAP WITH OTHER SYSTEM FUNCTIONS. | | | 


PREREQUISITES 


THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONI TOR. 3 
‘THE DIAGNOSTIC MONITOR PROGRAM USES 1500 STORAGE nore. AND THIS 


| PROGRAM USES 14208 STORAGE WORDS. 
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3. OPERATING PROCEDURE | 
«Be 188 PROGRAM LOADING 
STANDARD MONITOR LOADING PROCEDURES APPLY 


3e28as 


3e2e1 


Ze2e2 


BATE 
“BC NO. 


THESE PROCEDURES ARE SUMMARIZED HERE} 


‘SEE DH USE PROCEDURE FOR 


 OETAILS. 


‘le 
Ze 


SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
SET BIT SWITCH 15 OFF = LOAD AND GO ; 
ON - 70 SPECIFY OPTIONS BEFORE RUNNING. 


IF HALTED AFTER LOADINGS SELECT PROGRAM OPTIONS THEN TURN OFF HALT . 


SWITCH OR FOLLOW NORMAL RESTART PROCEDURE (SECTION 305)6 


3. 
, Se 


LOAD DIAGNOSTIC MONITOR AND KEYBOARD PRINTER TEST. 
SELECT PROGRAM OPTIONS, IF DESIRED. — 
SRESEB 


PROGRAM OPERATION. 


_ STANDARD MONITOR OPERATING PROCEDURES APPLY. 
THESE PROCEDURES ARE SUMMARIZED HEREs cal OM USE PROCEDURE FOR 


415490 



































4154908 — 001A 


DETAILS. 
‘PROGRAM CONTROL - cmcrioces 
1. SET SWITCHES 0-7 TO O01. 
2. SET SWITCHES 8-15 AS DESIRED. | | 
Sw FUNCTION 
8 . RESTART | 
9 ROUTINE START MESSAGE 
10 = LOCK ON FUNCTION 
11s LOOP PROGRAM 
12 LOOP ON ERROR | 
13. BYPASS ERROR PRINTOUT | | — : 7 
16 HALT ON ERROR an , | , -_ 
15 HALT : : : | 
3e PRESS INT REQ KEY OW comsoues 
ROUTINE SELECTION - “FUNCTION 1 
|THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE 1s SELECTED, 
he To SET ROUTINE SELECTION. 
A. SET SWITCHES 0-7 TO 41,00 
B. SET ROUTINE NUMBER IW Switches: 12-15 
RTN «DESCRIPTION | | 
1 PRINT LAST KEYBOARD ENTRY « NORMAL ROUTINES- 
2 _ TAB AND CARRIER RETURN =» THE PROGRAM STARTS WITH 
3 - UPPER CASE CHARACTERS e ROUTINEy1, RUNS EACH 
4 ‘LOWER CASE CHARACTERS ¢ ROUTINE IN SEQUENCE 
5 REGISTRATION © THEN TERMINATES AFTER 
6  .)  BACKSPACE AND INDEX (ROUTINE Ae 
oa END OF LINE CARRIER RETURN. 6 | 
s ROCK: e 
9 TWIST -* 
ke ROLL - | ; ee 
“O2JANG6 «OLMAY66" © LSNOVOS—SUUNOT ti | PROG 1D: 0304-# 
Scent. OP, eis. @, aw, 2 TOE 


419643 


PART NO. 








18" MAINTENANCE DIAGNOSTIC PROGRAM FOR ‘THE 1130 SYSTEM 2191242 
PaGE 0002. 
2132 KEVBOARO-PRINTER TEST = 
8 *& ~ PRINT ait Seiten IMAGE » OPTIONAL ROUTINES 
— | MUST BE SELECTED 
@ = REFER TO SECTION 3.203 FOR SPECIAL INSTRUCTIONS. 
| 2 a (Ce PRESS INT REQ KEY ON CONSOLE. 
| 2. TO RESET ROUTINE SELECTION SET aS IF SELECTING ROUTINE ZERO. 
as a 
3.203 PRINT FROM BIT SWITCHES 
ROUTINE B WILL ALTERNATELY PRINT TWO CHARACTERS SET IN THE BIT 
SWITCHES. TO SPECIFY THE DESIRED CHARACTERS, SET SWITCH O-7 AND 
8-15 TO THE ROTATE AND TILT CODE FOR THE CHARACTERS. | 
| Bases 
3.3800, PROGRAM HALTS 
(3.301 NORMAL HALTS 
_ sHALT NO. DESCRIPTION . RESTART oe 
e 3001 . PROGRAM STOP OR ADDRESS STOP . PRESS START 2 
e e @ @ 
e 3002 . HALT ON ERROR « OISPLAY MODE-PRESS START. 
e@ @ | | . e RUN MODE-PRESS START ae 
7 se m 
| 
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3.3.2 ERROR HALTS — 
eHALT NO. . DESCRIPTION - RESTART e 
0(8 REG). . ° ACTION e 
qurereroore rn nn nnn enn n n= =, eee re eee ee ecw nomenon, : 
e e. bd ia & ° 
° 30F1 . CHECK SUM ERROR ON FIRST 2 RELOAD e 
e ° CARD OF LOADER e e 
eo e oe oe Be ash dias. Sets e Dies Se ° 
e 30F2 . READER OSW ERROR WHEN e RELOAD ° 
° ° LOADING LOADER | e | e 
® . e. a 7 , e . ° 
e 30F3 . ‘CARD 2 OF LOADER DID NOT « RELOAD e 
e e LOAD e . 2 
e a r r 
e 30F4 . CAN NOT CLEAR CORE = DUE TO » 
° oe “ERROR IN ADDRESSING UPPER ° e 
e e CORE. ° e 
e e ' ® e 
» 30F5 . READER CHECK WHEN LOADING e WNPRO THEN PLACE CARDS . 
° ‘e MONITOR OR TEST PROGRAM e RUN OUT IN FRONT OF ° 
° ‘“ | | — e REMAINING DECK AND PRESS. 
e e ® S$ TAR T . ®s 
@ . eo es . e ® 
¢ 30F6 . —= MONITOR DID NOT 1.GAD « RELOAD ° 
. @ e ei e aoe ® 
e 30F7 .* CHECK SUM WHEN LOADING e RE€LGAD ~~ ° 
- ° MONITOR ° : 
=) o. " e , . ° 
e 30F8 . READER NOT READY e MAKE READER READY e 
2 ® ans 3 e En oy oh Taga , ‘ @ 
« 30F9 . -INVALID INTERRUPT WHICH WILL 2 PRESS RESET AND START o. 
° io NOT RESET. ° | a ® 
e ee Fis, 3 . ae ° e 
° 30FA . CONSOLE PRINTER HANG UP — e FIX THE CONSOLE. PRINTER . 
ee BUSY WILL NOT 6O OFF e OR NOP THIS WAIT e 
ae . _~ aseses : ° 
‘3.4800 PROGRAM TERMINATION : | 
IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 7. ROUTINE 7eAe AND E WILL ONLY RUN 
SELECTED. | " 
IF ANY ROUTINE 1s SELECTED THAT ROUTINE WILL LooP AND WILL NOT 
TERMINATE. 7” 
ceeeee 
3.5000 RESTART 
le SET SWITCHES 0-7 TO Ol.- 
2. TURN ON SWITCH 8. - | 
3. SET DESIRED CONTROL IN SWITCHES 9-14. 
4. PRESS INTERRUPT REQUEST KEY. 
Seueseveses 
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&. PRINTOUTS 
ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN OORR AAAA (MESSAGE) 
OR 
EPPNN GORR AAAA (MESSAGE) 
WHERE A IDENTIFIES STATUS MESSAGES 
| E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 


THIS WILL BE EITHER O00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 

04 FOR MESSAGES ORIGINATED BY 

TH°S PROGRAM. 


WN IS THE MESSAGE SEQUENCE NUMBER 
RR IS THE ROUTINE NUMBER 
AAAA IS THE ADDRESS OF THE ROUTINE 
MESSAGE IS ANY VARIABLE INFORMATION 


4oleee STATUS MESSAGES 


a000o oe * NUM PID ADRS RELF LO 
. XXXX XXXKR XXXX AAXXX 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM (EXCEPT 
MONITOR}. THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, THE PROGRAM 
ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, AND THE RELEASE FON 
FACTOR. 


accor ‘SWS PID 
| RXXX AXXKXX 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ BY THE 
MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ TOGETHER WITH 
THE PROGRAM ID OF THE PROGRAM INTO WHICH THE CONTENTS OF SWITCHES 6-15 
WERE STORED. IF THE SWITCH ENTRY CALLED FOR HALT OF ANY PROGRAM, THE 
WORD HALT WILL FOLLOW THE MESSAGE} 





A0400 OOOR AAAA 


ROUTINE START MESSAGE - IF SWITCH 95 FUNCTION O, IS TURNED ON, THIS 
- MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. R IS THE 
NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING ADDRESS. 


: ED ChE hana G aD aa 


£0401 OOOR AAAA — CONSOLE: 


OR 
40601 OQOOR AAAA KEYBOARD 


THIS MESSAGE INDICATES THE POSITION. ‘GF THE CONSOLE/KEYBOARD SWITCH 


EACH TIME IT IS CHANGED. 
eeret 


4e200% ERROR MESSAGES 


THE OSw 1S CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE TRE 
PROBLEM. IT IS LEFT TO THE OPERATOR -~ ANEENTE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 
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I 
") TYPEWRITER SERVICE RESPONSE 
1 KEYBOARD RESPONSE & 
2 KEYBOARD REQUEST —s_—=&w ® 
3 - ON - CONSOLE ENTRY OFF = KEYBOARD 3 
& TYPEWRITER BUSY * 
5 TYPEWRITER NOT READY a 
6 KEYBOARD BUSY e 
7 NOT USED * 
8 NOT USED | | | ~ * 8 
9 NOT USED | * 
10 NOT USED - . 
11 NOT USED % 
12 NOT USED | % 
13 NOT USED * 
14 WOT USED * 
15 NOT USED e 
= 
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E0001 SWS -INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 

E0003 OVR CORE 
THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADTNG WAS TERMINATED. 

E0004 CRSUN 
A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 
1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECKe 
(3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 
4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
5. DUE TO A CPU MALFUNCTION» THE CHECK SUM WAS NOT 
CORRECTLY CALCULATEDe 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 

£0005. | OOON XXXx , | 
THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW. 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE. : 
ILSWe THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT 1S RESET 
BY A BOSI. NC ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 

E0401 OOOR AAAA XXXX x000 
DSW ERROR ON CHECKING FOR READY 
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E0402 OOOR AAAA XXXX XCOO 


OSw ERROR PARED TATED AFTER OuTPUT etisalat 


AAAA i tes Mee 


£0403 OOOR 
INTERRUPT. DSW ERROR 
E0404 OOOR AAAA io XXX x000 


LOST PRINTER INTERRUPT. 
~OSW AFTER LAST XIO WRITE COMMAND 1S PRINTED 


* p> apa Gia ap Ge ae ap 


AAAA 


£0405 OOOR XXXX 


KEYCODE ENTRY ERROR. AN TLLEGAL KEYBOARD CODE HAS BEEN DETECTED. 














THE KEYBOARD CODE SHOULD HAVE BEEN AN IMAGE | OF CARD HOLERITH. COLS 
12 - 9 IN BITS O-ll,y RESPECTIVELY. one Peles ere le Peepers 
E0406 OOOR AAAA XXXX 200, 
DSw ERROR ON PLACING KEYBOARD IN PROCEED STATUS 
E0407 OOOR AAAA OK C000 
DSw ERROR AFTER READ KEYBOARD ‘COMMAND 
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5. COMMENTS 


THIS FUNCTION TEST CHECKS THE PROPER OPERATION OF THE PRINTER-KEYBOARD 
STATUS INDICATORS. THE VARIOUS ROUTINES: ‘AIO IN DETERMINING THE PROPER 
ADJUSTMENT OF THE PRINTEQ. 
6, lees THE PRINTER TEST. 
THE PRINTER TEST IS A SERIES OF STANDARD TESTS PERFORMED IN ORDER OF 
COMPLEXITY. EACH TEST HAS TKO LINES OF OUTPUT (THE FIRST IN BLACK 
AND THE SECOND IN RED). THE ONLY EXCEPTION: ‘TS THe REGISTRATION TEST 
WHICH HAS ONLY ONE LINE. — _ oe eee nes 3 | 
ae THE NORMALLY RUN ROUTINES ARE DONE: SEQUENTIALLY 2% Oe eae 
le PRINT LAST KEYBOARD ENTRY. 
2. CARRIER RETURN AND TABULATE. 
Be UPPER CASE CHARACTERS. | 
4. LOWER CASE CHARACTERS. (SHIFT SIDE OF ELEMENT). 
5. REGISTRATION 
nS THIS TEST PRINTS: ‘A BLACK *+#* ENCLOSED BY A RED *O', IT 
CHECKS: THE BACKSPACE FUNCTION AND THE ALIGNMENT OF THE PRINT. 
| b+ BACKSPACEs | INDEX. } pF 
CHECKS TABULATE, BACKSPACE,. AND LINE FEED FUNCTIONS. 
“Te END OF LINE CARRIER RETURN. , 
CHECKS TO SEE THAT THE END OF LINE CARRIER RETURN WORKS 
PROPERLY. 
Be ROCK _ De aaa oe a 
— ‘TESTS ‘THE TILT MECHANISM BY TYPING CHARACTERS LOCATED ONE 
AFTER ANOTHER “IN VERTICAL COLUMNS ON THE PRINT HEAD. 
9. ROLL a nae 
ee THE ‘ROTATE  NECHANISH: BY SELECTING CHARACTERS ONE AFTER 
ANOTHER IN HORIZONTAL BANOS AROUND THE PRINT HEAD. 
Ae TWIST 
TESTS THE COMBINED ROTATE ANC TILT MECHANISM BY CAUSINGA 
‘MAXIMUM ROTATION AND TILT BETWEEN CHARACTERS, = = 
Be ROUTINES AVAILABLE FOR: EXECUTION ON AN OPTIONAL BASIS FOLLOW, 
Be PRINT ‘BIT SWITCH IMAGE | 
THE TWO CHARACTERS IN THE BIT SWITCHES ARE ALTERNATELY 
PRINTED. Ba 
To ENTER THIS ODEs ROUTINE B MUST BE SPECIFIED (FCN ve 
5.2888 THE KEYBOARD TEST (ROUTINE ca 
THE KEYBOARD TEST IS: ‘ENTERED BY SWITCHING THE CONSOL E/KEYBOARD 
SWITCH TO THE KEYBOARD POSITION. 
AT THIS TIME THE OPERATOR MAY ENTER ANY NUMBER OF CHARACTERS. EACH 
CHARACTER ENTERED IS PRINTED AS IT IS KEYED’ IN. WHEN THE CONSOLE/ 
KEYBOARD SWITCH IS RETURNED TO THE CONSOLE POSITION, THE PROGRAM WILL 
LOOP ON ROUTINE ONE PRINTING THE FIRST 48 CRKARACTERS ENTERED VIA THE . 
KEYBOARD. IF NO ENTRY WAS ‘MADE, THEN: THE ‘PROGRAM COMPLETES THE 
PRINTER. TEST. ee es 7 
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-ALL KEYBOARD KEYS RETAIN THEIR NORMAL USE EXCEPT, 
KEY FUNCTION 
EOF CARRIER RETURN 
ERASE FIELD THE NEXT CHARACTER (IF ALPHABETIC) 
| | WILL BE IN LOWER CASE. 
0-2-8 LINE FEED 
- 
ne 
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FIGURE 1. STANDARD TESTS PRINTOUTS 
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7 PAGE | Rt eee ge PAGE | lA 
1131 KEYBOARD-PRINTER TEST 3 ) 1131 KEYBOARO-PRINTER TEST 
| 5 ) 
SSCSSSSSSSSESSSS SES SS SHS SSKRESSSSSSSSS SS SSCS SESS SSKSSSSSSESLEKSSSSKSH SSE KSS 30400030 x 30490710 
s 30400040 | bd 30400720 
* THIS ENGINEERING CHANGE REFLECTS MAJOR 30400050 ) 0000 ORG *+1500 30400730 
* CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 30400060 SSETBESTCAKESTSESKSSSSESKESSESESSSKESSSES SESS KE SRESS 30400740 
* TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR IIe 30400070 i —— DIAGNOSTIC MONITOR * 30400750 
« 30400080 ) % CGNTROLLED * 30400760 
* THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 30400090 * 1130 KEYBOARD PRINTER * 30400770 
* 30400100 s FUNCTION TEST. * 30400780 
* TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 30400110 ‘) SSTCKECKCKSECKKKECEKSETCKSESSKEKKECKSKESRKSSKSCSESCSESSTSSEVES 30400790 
* WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 30400120 @50C @ 0304 PID Oc 40304 PROGRAM ID NO) 30400800 
* MONITOR IIe ' 30400130 Z 0500 0 00086 RID oc Oo ROUTINE NUMBER 30400810 
 @ | : 30400140 ) O5SDE 1 0646 RAD OC G0 ROUTINE ADDRESS 30400820 
SFESCSERSSKKES SERS SCSAREKSSSSSEKSKAESKSKCKESSSKSESSSSLSSESTKESCKSELARKSEKLKEKKLKSESS 30400150 OSDF 06 0000 Swo OC £0000 FCR O = CONTROL 30400830 
PSSCHEKSEKKSSEKET SESS SERSEKKKKEKRKKKKESESSSKESKKERKAEREAES 30400160 ' Q5EO 0 0000 Swi OC oO FCN 1—- RTN SELECTION 30400849 
ad | EQUATE TABLE 30400170 OSE1 GO 0000 SwW2 oc NOT USED 30400850 
Sx SCHESTESESSSTEKSEARSKLSESKSERKS KSESKEASKSS SKSESASKSKSSSSSSE = 30400180 OSE2 @ o000 Sw3 OC . . WOT USED 30400860 
* THIS TABLE EQUATES TEST PROGRAM LABELS 30400190 OS5SE3 1 0646 OC GO LOOP PROGRAA ADDRESS 30400870 
* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 30400200 ae O5E4 1 0646 OC GO INITIALIZE ADDR 30400880 
* ADDRESSES. . < s 30400210 O5E5 0: 0000 MLSCF DC s—8 PROGRAM CONTROL FLD 30400890 
ad | . 30400220 @5E6 © FFFF TERM OC /FFFF TERMINATOR 30400900 
0160 BEGIN EQU 4160 BEGIN ROUTIWE 304002 30 SESEALESAEKSHK KS KKS SKS SKE KTSELSKS SSSEL AES SSS SELES 30400910 
0161 START EQU <* BEGIN) SUPERVISOR ROUTINE 30400240 * 7 | | = 30400920 
0162 ERROR EQU START+1 ERROR LOG ROUTINE 30400250 | * PRINTER INTERRUPT ROUTINE 30400930 
0163 LOG EQU ERROR+] STATUS LOG ROUTINE 30400260 | s 8 ‘ ‘ - 30400940 
0164 — END EQU LOG+1 END ROUTINE 30400270 & ts : 30400950 
* eee m= eeeemem-—— 30400280 . THIS ROUTINE CHECKS THE 30400960 
* MONITOR CONTROL WORD AODRESSES. 30400290 | * INTERRUPT DSW FOR THE 30400970 
s | 30400300 * PROPER BITS. 30400980 
0165 RTNSW EQU END+1 ROUTINE START SWITCH 30400310 * a , .30400990 
0166 ERLCK EQU END+2 LOCK ON ERROR CONTROL 30400320 y * IF AN ERROR IS DETECTED 30401000 © 
0167 LOGBY EQU END+3 1/0 BUSY SW ADR . 30400330 * THE ERROR IS SAVED IN THE 30401010 
6168 RLCF EQU END+4 RELOCATION FACTOR ADR 30400340 * PRINTER TABLE, PTRO, 30401020 
& wenn nnn nn nnn ——- 30400350 ) 7 AND THE ERROR INDICATOR 30401030 
* INTERRUPT TRANSFER VECTOR ADDRESSES 30400360 | ® IS SET. 7 30401040 
* | : 30400370 to * : 30401050 
O17A ILO EQU JiTA INTERRUPT LEVEL ZERO 30400380 ) i * THE ERROR WILL BE PRINTED 30401060 
O1L8A Tul EQU ILO*16 © INTERRUPT LEVEL ONE 30400390 ; s WHEN THE PROGRAM RETURNS 30401070 
O19A IL2 . EQu 1L1416 INTERRUPT LEVEL TWO 30400400 | . & TO MAIN LINE. | 30401080 
o1Aaa 1L3. EQU 1L2416 INTERRUPT LEVEL THREE 30400410 2 ) * | — 30401090 
G1BA 1146 EQU IL3+16 INTERRUPT LEVEL FOUR 30400420 © :  @ | 7 | 30401100 | 
01688 RQTY EQU | JL4&l TYPR SVC REQUEST INTERPT 30400430 O5E7 0 0000 COMIN OC /0000 30401110 | 
@1B8C RQKB EQU RQTY+1 KEYBOARD REQUEST INTERPT 30400440 Pv O5E8 @1 67000A26 ~~ LOX £3 PTRO- 30401120 
0180 SVKB EQU RQKB+1 KEYEDARD SERVICE INTERPT 30400450 | * , 3 > 30401130 
THECSAASSSSSASESESSERSSSRSE SERS ELSE SERSESSSSSSESERVSSES =—- 3300400460 OSEA 01 04000630 STO t OSWIT SAVE DSW . 30401140 
s ) : 30400470 ° : : SESKSKEKAES SSS SESSESKESAS EKKESHKESSKKSEKKSESSESSESSE 30401150 — 
= 30400480 | s 30401160 
i. | | - 30400490 oe oe OSEC O 186DE RTE 30 | 30401170 
* TABLE OF INDEXES FOR REFERENCE 30400500 a O5ED 01 4C280603 BSC L KBDR1-42 BR IF KBD RQST INTRPT 30401180 
s TO PRINTER STATUS TABLES 30400510 OSEF @ 18D2 RTE 18 PLACE DSW IN Q 30401190 
s | a 30400520 . O5FO 0 C302 to 3 STS FETCH PRINTER STATUS 30401200 
* INDEX REG 3 ALWAYS HAS THE ADDR 30400530 ; OSF1l O1 940007CF $ { «F000 30401210 
s OF THE PRINTER TABLE 30400540 i OSF3 O01 4C18062A BSC L KBDSV»s+- BR IF S/B KBD SVC INT 30401220 
s PTRO | 30400550 O5F5 0 C302 LD 3 STS FETCH PRINTER STATUS .30401230 
s | 30400560 O5F6 01 94000844 S t KEOO0O 3 eos 30401240 
o0ee ADR EQU 9 30400570 © O5F8 O1 4C2805FD BSC bt COMI3,%Z BR IF S/NB TYPR SVC INT. 30401250 
00e1 RTN EQu | 30400580 . . O5FA O £808 BSC + SKIP IF NOV KBD RTN 30401260 
00062 STS EQU 2 30400590 eae ; OSFB GO C040 LD -KAOO0O SELECT KEYBOARD NEXT 30401270 
0003 OUT EQU 3 30400600 O5FC O 7021 MDX TYPSV CHECK TyPR SVC INT 30401280 
0004 ITR EQU & 30400610 | at a | sl 30401290 
0005 SLT EQU. 5 30400620 a ' OSFD 0 CO3E ‘COMI3 LO KAOOO SELECT KEYBOARD NEXT 30401300 
0006 x wos EQU 6 30400630 OSFE 0 0302 $TO 3 $TS . 30401310 
0007 PAD €QU a | 30400640 7 OSFF 0 C030 . LD “DSWIT SAVE SPURRIOUS INT ERR 30401320 
0008 WRT €QU 8 30400650 ) ' 0600 01 £4000774 AND Ut KCNSE 30401330 
OOGOA PTR EQU 10 30400660 0602 0 7033 DX KEYVER 30401 340 
@00c SNR EQU = 12 30400670 | | s , 30401350 
 @00E KEY EQU 14 30400680 yD * THE USE OF THE KEYBOARD 30401360 
e010 SEE EQU 16 30400690 | | 8 HAS BEEN REQUESTED BY 30401370 
0012 ERR EQU #418 30400709 4 > * THE INTERRUPT REQUEST KEY 30401380 
DATE @2JAN66 15N0Y66 15JUN6T PROG ID 0304-2 | DATE O2JAN66 1L5SNOV66 © 1SJUNGT | “PROG 10 0304-2. 
EC NO. 415490 419643 420317 PAGE i ae _ EC NO. 415490. 419643 420317 | PAGE 1a 
37.9 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191240 3 PART NO. 2191240 
| | PAGE 2 PAGE 2A 
1131 KEYBOARD-PRINTER TEST 7 Nee | S ie 1131 KEYBOARD-PRINTER TEST  ° 
oo 3 ae A 
® WHILE THE CONSOLE SW WAS. 30401390 0645 1 050C — ~60C PID * 30402070 
& IN THE KEYBOARD POSITION : 30401400 SKSSSKKAKSESSSS KS SSSTSSSSCESESTSSESESTESETSECKE RESETS 30402080 
| s : | 30401410 Be . _— | 30402090 
. 0603 O 18C2 KBORG RTE 1 30401420 STREKSSLKCKTSKKEKSKSKSSLESKTESSSKSKSSSSECETKSKELSSSS 30402100 
0604 01 4C10060A BSC L KBD2s- BR IF DSW OK 30401430 © * . 30402110 
0606 @ 1801 | RTE iz 30401440 ) ® INITIAL PROGRAM ENTRY * 30402120 
0607 @ Co35 LD  OSwIT 30401450 : e POINT * 30402130 
0608 0 €039 AND K8E00 30401460 i e tee | | _ _, 30402140 
0609 0 702C MDX KEVER 30401470 ) SAKSSSKESSKSSSSSSEKLSESESSSSSKKTSSSSSSESKSSESSESE 30402150 
% 30401480. —_ s | : 30402160 
| * | 7 | 30401490 . 0646 01 6COOOATF GO = STX LO FIRST. SET TO PRINT SW STS 30402170 
060A 0 C031 KBD2 LOD Ka000 SELECT KEYBOARD NEXT 30401500 i 0648 01 6C000A28  §TX LO PTRO+STS a 30402180 
@608 0 0302 STO 3-.STS | | 30401510 (064A 0 1010 SLA 16 RESET LOOP RTN 1 30402190 
@60C 0 0810 x10. 3 SEE DESELECT KEYBOARD 30401520 . 0648 01 0400085C STO. L ANY*#3 | | 30402200 
| * , an 30401530 ’ 064D 01 04000640 STO t ERIND 30402210 
0600 @ C033 LO TWLVE 30401540 064F 01 04000500 -$T0 Lt RID 30402220 
@60E 0 0301 STO 3 RTN SET RTN NUMBER 30401550 0651 O01 C40005E0 tO Lc Swi 30402230 
oe . | 30401560 } 0653 0 18C1 RTE 1 30402240 
Q60F 0 63E7 | LOX 3-25 | INITIALIZE KEYBOARD — 30401570 0654 0 4820 BSc z 30402250 
0610 O01 6FOOOTAC STX U3 WROCT?1 INPUT TABLE - 30401580 | . 0655 0 1081 SUT 2 30402260 
6612 @ 6300 Lox 30. . _ 30401 590 ) 0656 01 D40005E0 $70 t Swi 30402270 
0613 O1 6FOOOTCA STX 3 SLTWD . 30401600 | | - es | _ 30402280 
©615 01 6FO008SC STX L3 ANY+3 30401610 0658 00 6500FFFF LOx Ll -) TERMINATE KBD INPUT | 30402290 
0617 0 1010 .-  -$ta 16 30401620 ) 065A 01 60000858 STX Ll ANY*2 : 30402300 
0618 01 04000640. . STO tL ERIND. 30401630 * s 30402310 
0614 0 6301  — tox 32. 30401640 065C O01 67000A26 GO3. LOX L3 PTRO INTR PTR STATUS TABL 30402 320 
0618 01 6F000858 STX L3 ANY*2 30401650 Y 065E 01 C4000859 LD ot ANY 7 fed 30402330 
8 pes G3 | 30401660 0660 0 0304 STO 3 ITR 30402340 
061D 0 7016 7 MDX COMIX EXIT 30401670 0661 0 0305 STO 3 SUT 30402350 
a = . a 30401680 ) 0662 0 1801 SRA 1 30402 360 
O61€ @ 0302 TYPSV STO STS RESTORE PTR STS 30401690 _ ; 0663 0 0306 STO 3 NOS 30402370 
O61F @ CO1D | LO OSWIT CHECK TYPR RESP DSW 30401700 Z 0664 0 0307 STO 3 PAD 30402 380 
0620 01 £4000773 AND t KEFFF 30401710 a * | 30402390 
0622 0 FO1B EOR «8000 30401720 0665 0 63E7 LDx 3-25 | INITIALIZE KEYBOARD 30402400 
0623 01 4C180639 BSC L COMIX»s+= BR IF DSW OK 30401730 0666 01 6FOOO7AC STX .L3 WROCT41 INPUT TABLE 30402410 
0625 0 COL? LO  DSWIT SAVE TYPR RESP DSW ERR 30401740 B) 0668 0 6300 LOx 30 . 30402420 
0626 01 E4000774 AND LL KCNSL ~ 3 30401750 — 0669 01 6FOCOTCA STX Lt3 SLTWD 30402430 
0628 @ €815 oR K8000 30401740 — 0668 0 7000 MDX PRCON 30402440 
0629 6 700C ADX KEVER 30401770 2) SHERKKSSARSSSASSSAASASCSSSSES SES KKEKRSASHSS SSS 30402450 
, & _ _ 30401782 SEECEKSKESSRESSLASSSSRAEKSSSSHESESKSESSSSASESSERESE 30402460 
0624 0 C014 KBDSV LD KCOO0O READ KEYBOARD NEXT | 30401790 ; % | | | 30402470 
0628 0 0302 STO STS | 30401800 ) % ROUTINE CONTROLLER 30402480 
062C 0 C010 LD OSWIT CHECK KEYBOARD RESP 30401810 % 30402490 
©0620 0 FOOD -  €OR K4200_ DSW 30401820 e THIS ROUTINE CONTROLS THE | 30402500 
062E 01 £4000773 AND .L KEFFFE | 30401830 YY * EXECUTION OF ALL PRINTER 30402510 
0630 01 4C180639 BSC L COMIXs+¢- 8R IF DSW OK 30401840 ® AND KEYBOARD ROUTINES. 30402520 
0632 0 COOA LD =——‘éiST TT SAVE KBD RESP DSW ERR 30401850 =f * , 30402530 
0633 01 E4000774 AND LL KCNSL 30401860 ) ® i IF THIS ROUTINE TIMES OUT 30402 540 
0635 0 €805 : OR K4200 30401870 & t WHEN WAITING FOR AN 30402550 
0636 0 1800 KEYER RTE 16 30401880 7 * INTERRUPT FROM THE PRINTER 30402 560 
| s 30401890 ) & AN ERROR WILL BE PRINTED. . 30402570 
0637 @ 0812 : STD ERR SAVE DSw ERROR 30401900 * | 30402580 
0638 0 6807 STX ERIND SET ERROR INDICATOR 30401910 & THE SEQUENCING OF ROUTINES 30402590 
< s 30401920 2 & IS CONTROLLED BY THE MARK 30402600 
0639 01 4C8005E7 COMIX BSC 1 COMIN BUG = OUT OF INTRPT 30401930 * ROUTINE WHICH BUILDS THE. 30402610 
| * 30401940 * CHARACTERS TO BE PRINTED. 30402620 
0638 0 4200 K4200 OC 74200 CONSTANTS 30401950 & i Pet | . 30402630 
063C 0 a0do0o KAOOO DC 44000 ae — 30401960 | Q66C O COD3 PRCON LD ERIND oe 30402640 
0630 0 0000 OSWIT OC 70000 -INTRPT OSW STORAGE 30401970 . O66D 01 4C20075F BSC Lt INERR»Z 8R IF ERROR INDICATD. 30402650 
063— 0 68000 K8000 OC 78000 PTR SVC INT DSW S/B 30401980 7 * a ae eed S 30402660 
063F © CO0O © KCOOO OC ~ 40000 ie tt Ba aie | 30401990 O66F 01 C40005DD LD =6t) ORID FETCH ROUTINE NUMBER 30402670 
0640 0 0000 ERIND OC 40000 ERROR INDICATOR 30402000 0671 0 90CF S TWLVE ng che Oh pre 30402680 
0641 0 OO00C TWLVE OC 12 | 30402010 0672 O1 44180A3D BSI L SWSET»+— CHECK SWS IF KBD RIN 30402690 
0642 0 8E00 —«BEOO OC /BE00 30402020 * | 30402700 
aa . SESKSSEHES TASES SRETESA ASSES ESE SSES SESS SESS ASE 30402030 0674 01 67000A26 LOX L3 PTRO FETCH PRINTER STATUS 30402710 
® | 30402040 | 0676 0 C302 LO 3 STS 30402720 
ae ee re SISCSSCSSALSS CCS SSSSESSESSSSSKSESSKSE SSH SKESSSSESKSSSKS 30402050 0677 0 0025 $sTo RESTO SAVE IT 30402730 
0643 00 44800160 - TyYCUS BSI 1 SEGIN - * SC 30402060 n 0678 01 4C10068D BSC LL EXEC3s- BR IF PTR SVC RQSTD 30402740 
DATE O2JAN66 15N0V66 15J3UN6T7 PROG ID 0304-2 DATE O2JAN66 15N0V66 15JUN67 PROG 1D 0304-2 
EC m0. 415490 419643 420317 | PAGE 2 1 EC NO] 415490 419643 420317 PAGE er. \ 
? 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191240 ) IBM MAINTENANCE DJAGNOSTIC PROGRAM FOR THE 1130 SYSTEM a NO. anne 
* : PAGE 3 ‘F* 7 : 7 — : 
1131 KEYBOARD=PRINTER TEST eee a 1131 KEYBOARD-PRINTER TEST 
= \ ) : . 
s 30402750 O6AC 0 6809 STX 3 MARKUS) SAVE IX 30403430 
s 30402760 O6AD 0 C006 LD MARKT SET MLSCF 30403440 
Ps | 30402770 O6AE 0) D4&0005E5 STO Lt MLSCF e 30403450 
e WHEN STS IS, 30402780 06B0 00 6C000165 STX t RTNSH SET RTN SW 30403460 
e 30402790 | 0682 00 44800161 BSI I START GO TO START 30403470 
& ZERO-POS GO SERVICE PTR 30402800 0684 1 0685 MARKT OC | MARKU 30403480 
s NEGATIVE, 30402610 | 0685 00 67000000 MARKU LDX L3 0 RESTORE Ix 3040 3490 
* aooo SELECT KBD 30402620 Sea * 30403500 
s C000 READ KBD NEXT 30402830 Fo 0687 01 OCOOOA3A — x10 u& ROBS READ BIT SWITCHES 304603510 . 
* FCOO-FFFE COUNT FOR INT 30402840 0689 0) C4000A3C LO cL BITSW | 30403520 | 
s FFFF LOST INT ERR 30402850 O6BB 00 65000000 MARK1 LDX L212 /0000 FETCH SHIFT COUNT 30403530 
e E000 WAIT TYPWR INT 304028660 | a: 06B8D O 1100 SLA 10 | 30403540 
s FOOO WAIT KBD INT 30402870 O6BE 0 1806 SRA 8 | ee 30403550. 
2 8000 IGNORE 30402880 | O6BF O FODC EOR I 30403560 
rae s , 30402890 | 06CO 0 «820 BSC 2 SKIP IF ILLEGAL. CODE 30403570 
O67A O 1001. | SLA 1: 30402900 . | 06C1 0 FODA EOR I 30403580 
06768 0) 4C180876 BSC Lb TYEND»s+~ BR IF END PROGRAM 30402910 — | 06C2 0 1008 SLA 8 30403590 
067D 0. 180C°™ SRA 12. | 30402920 06C3 0 0303. STO 3 OuT . 30403600 
O67E 01 4C040688 BSC L SVCoE BR IF WAIT K8D INT 30402930 06C4 0 COFT LO. MARK1¢1 RESET SHIFT COUNT 30403610 
0680 O 1802 SRA 2 30402940 06C5 0 4830 BSC =-2 30403620 
0661 0 901D ~ S ’" K0001 - | | : 30402950 06C6 0 6100 Lox 10 3040 3630 
0682 O01 4C180781 BSC L SELC2Zs4= 8R IF SELECT KBD. 30402960 O6CT? 0 #808 © Bsc + 30403640 
0684 0 901A Ss KO0O0] 30402970 . 06C8 0 6108 tox 18 °& © 3040 3650 
0685 O01 4C1807A3 BSC &L KEYBDe+= BR IF READ KEYBD 30402980 | | 06C9 0 69F2 STX 1 MARKL4l 30403660 | 
0687 0 T7O0E.. MDX | EXEC9 . IGNORE OR WAIT 30402990 06CA O 70CB MDX EXECS 3040 3670 
a: % | 30403000 a * 30403680 
0686 Ol 74010428 SVC MDX L_ PTRO+STS»1 COUNT DOWN FOR INT 30403010 : - * | » 2, 3040 3690 
068A 0 7008 MDX EXECS WAIT FOR INTRPT 30403020 O6CB 01 4C000876 MARK2 BSC L TYEND END PROGRAM 30403700 
0688 0) 4C000775 BSC. t NOIN PRINT NO INTRPT ERROR 30403030 * 7 - 30403710 
3 2 ; | 3040 3040 06CD 0 7201 MARK3 MDX 21 30403720 
0685 01 #4000430 EXEC3 BSI Lt SWSET CK CON/KBD Sw SETTING 30403050. O6CE 01 6E000A27 MARKS STX L2 PTRO+RTN 30403730 
O68F O COOE LD KF 800 SERVICE PRINTER 30403060 | 0600 01 04000500 STO t RID SAVE THE ROUTINE NO 30403740 
0690 0 0302 | STO 3 STS: UPDATE PTR STATUS 30403070. i 2 : 3040 3750 
0691 01 4C000736 BSC t READY 30403080 . 0602 01 6E8006E6 STX I2 MARKL*} 30403760 
: ® 30403090 s | 30403770 
0693 0 C009 EXEC? LO RESTO RESTORE TO TRY LATER 30403100 06D4 01 C680084D LD =s«312:«FUNR-1~. FETCH ADRS OF TEST 30403780 
0694 01 D4090A28 STO L PTROSTS 30403110 0606 0 D304 STO 3 ITR | 30403790 
0696 01 6500066C EXEC9 LDX L2 PRCON TRY AGAIN = LATER 30403120 | i | 30403800 
0698 01 6DO005ES5 STX Lil MLSCF 30403130 0607 0 1810 SRA 16 RESTORE WORDS PT 30403810 
069A 00 44800161 BSI 3 START. 30403140 0608 0 0307 STO 3 PAD 30403820 
| * | 30403150 | * 30403830 
069C 0 0001 I. oc i 30403160 : 06D9 01 C6000840 MARKS LD L2 FUNR=1 RESTORE TEST PT 30403840 
0690 0 0000 RESTO OC 70000 30403170 0608 01 «C2806C8 BSC L MARK29Z+ BR IF PTR FINISHED. 30403850 
O69E 0 F800 KFBO00 OC /F800 30403180 oe mS * | a 30403860 
O69F 0 0001 KX0001 OC . 40001 CONSTANT 30403190 060D 0 8307 A 3 PAD 3040 3870 
| s e : 30403200 O6DE 0 0300 | STO 3 AOR 30403880 
SICSKSSSSSKSESSESKSLSKSSSKSSSSKSSSSKSE SETAE SSLALKS KS 30403210 & 3040 3890 
* : 7 30403220 ) O60F 0 1810 SRA 16 RESTORE WORDS PRTD 30403900 
* 30403230 QO6EO 0 0306 STO 3 NOS 30403910 
S THIS ROUTINE BUILOS THE 30403240 _ a 7 * a 30403920 
* NEXT CHARACTER TO BE 30403250 ’ O6E1 0 COBA to + I RESTORE SHIFT WORD 30403930 
8 PRINTED. THE CHARACTER 30403260 | O6E2 0 0305 STO: 3 SLT 30403940 
° IS FETCHED FROM THE 30403270 © ey St a * | ; 30403950 
2 PROPER ROUTINE TABLE OR 30403280 ) O6E3 01 65800A26 MARKG LOX 11 PTRO*ADR 30403960 
* IS TAKEN FROM THE BIT SWS. 30403290 O6E5 01 66800A27 MARKL LOX I2 PTRO4RTN . 7 30403970 
s : | 7 30403300 ; 06E7 0 6916 : STX 1 MARKP4) SAVE IXING 30403980 
2 A ROUTINE WHICH IS RUNNING 30403310 ‘Y 06E8 0 6Al7 STX 2 MARKQ?) e 30403990... 
2 WILL NOT TERMINATE UNTIL 30403320 06E9 O 6818 STX 3 MARKRE1 & 30404000 | 
* IT HAS BEEN COMPLETED. 30403330 O6EA O01 C4000A27 LO Ct PTRO*RTN GET RIN 30404010 
| s | : 30403340 | y O6EC 01 F40005D0. EOR t RIO HAS IT CHANGED 30404020 
O6A0 01 C40005E0 MARK LD et Swi 30403350 O6EE 01 4C1806FD BSC L MARKP»t= NO 30404030 
OQoA2 O 100C SLA 12 30403360 (06FO O01 C4000A27 — LO Ct PTRO*RTN SET RTN 30404040 
0643 0 180C SRA 12 30403370 4 O6F2 01 04000500. STO t RID s 30404050 
0644 O01 9400084D S t ELVEN IS TYPE SwS ROUTINE 30403380 O6F* 00 6C000165 STX LL RTNSW SET SWITCH 30404060 
O6A6 O01 4C2006E3 BSC L MARKGe2 BR IF NO 30403390 e O6F6 O01 C40006FC LO Lt MARKZ SET MLSCF 30404070 — 
s 3040 3400 ' O6F8 01 D40005E5 STO L MLSCF s 30404080 
O6A8 01 C400084D tO Lt ELVEN SET ROUTINE ID 30403410 O6FA 00 44800161 BSI] I START GO TO START 30404090 
064A 01 D4&000500 STO t AaiO 30403420 5 O6FC 1 O6FD MARKZ OC MARKP 32404100 
DATE O2JAN66 I5NDV66 15JUN67 PROG 1D 0304-2 DATE O2JAN66 15NOV66 15JUN67 PROG 1D 0304-2 | 
EC NO. 415490 419643 420317 PAGE 3 73 EC NO. 415490 — 419643 420317 PAGE 3A . /) 
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2131 KEVBOARD-PRINTER TEST , _ | x 1331 KEYSOARD-PRINTER TEST 

- 96FO 00 65000000 MARKP LOX Lt1 0 RESTORE IXING 30404110 * CHECKED FOR READY. 30404790 
Q6FF 00 66000000 MARKO LOX L2 0 s | 30404120 . ne Sy Fe e : = 30404600 
0701 00 67000000 MARKR LOX £3 0 s 304041 30 - 0736 00 C4800167 READY LD = 20OhdICOLOGBY 30404810 
: : & | | 30404140 - 0738 01 4C20074C BSC Lt ROY2e2 BR IF NO TYPE NOW (30404820 
0703 0 C305 Lo 3 SLT BUMP SFF WT BY ONE 30404150 | | e ae 30404830 
0704 0 6097 A ae ? 30404160 073A ©1. 650005E7 LOX Ll COMIN SET INT VECTOR 30404840 
0705 0 0305 $sTO 8063 SLT | 30404170 073C 00 60000188 $TX 1 ROTY | 30404850 
| g | “8 | | 30404180 } O73E 01 67000A26 LOX L3 PTRO. - 30404860 
0706 O1 4CO4070A BSC LL MARKScf& SHIFT IF ODD 30404190 - 0740 0 1040 SLT 320 — 30404870 
0708 0 C101 LO 11 | FETCH OUTPUT WORD 30404200 : e , see. 3 ie 2-28 30404880 
0709 © 7008 MOXx MARKN . a 30404210 0741 0 OBOA. x10 3 PTR SENSE - RESET DSW 30404890 
s A. 30404220 0742 0 D02C STO © OSwas 30404900 
070A 0 C306 MARKS LOD 3 NOS — BUMP WORDS BY ONE 304042 30 0743 0 €E02F AND _KEFFF 30404910 
0708 © 8090 A J | 30404240 0744 01 4«C180750 BSC L. TYPIT»+= BR IF OSW OK 30404920 
O70C O D306 STO 3 NOS 30404250 0746 0 C828 too. OSWAS | = = | 30404930 
® : 30404260 (0747 0 E02C AND KCNSL . 30404940 
070D 0 7101 MOxX 21 30404270 0748 0 1800 RTE 16 30404950 
O70E 01 6D8006E4 STX 11 MARKGe] oe 30404280 Guat * | ae — 30404960 
0710 0 C100 LD 10 FETCH OUTPUT CHAR 30404290 0749 0 6101 LDx 11 ERROR - NOT READY 30404970 
0711 0 1008 SLA a | SHIFT IT - 30404300 O74A 01 44000833 BSI LL PROSW PRINT THE ERROR MSG 30404980 
eee see . ae 30404310 074C 01 65000736 RDY2 LOX L1 READY 30404990 
- ©0712 0 0303 MARKN STO “3 OUT SAVE NEXT OUTPUT WO 30404320 O74E 01 4C000840 BSC tL PDSWX 30405000 
7 7 : 30404330 | , e ai | : 30405010 
0713 0 FOSC EOR KFEFOO 30404340 ) 7 PRINT ONE CHARACTER 30405020 
0714 01 4€200696 BSC LL EXEC9eZ BR IF NOT END OF FCN 30404350 s | 3040 5030 
: | | — A a 30404360 i e THIS ROUTINE PRINTS ONE 30405040 
0716 0 C304 2 to. 3 ITR _ DECREMENT ITCNT 30404370 ys * CHARACTER ON THE CONSOLE 30405050 
0717 O1 9400069C s§ t it “= 30404380 s PRINTER AND THEN CHECKS 30405060 
0719 0 0304 $70 3: ITR , 30404390 s°5 - IF THE PRINTER BECAME 30405070 
O71A O01 4€2006D9 BSC L MARKS eZ BR IF NO DO AGAIN 30404400 ane * BUSY“NCT READY BY THE 30405080 
| | s } Sa | 30404410 | s OUTPUT COMMAND. 30405090 
O71C 0 C306 LO 3 wos UPDATE MODIFIER WORD 30404420 | s : 30405100 
0710 O01. 8400069C a | t 3 | 30404430 0750 0 0808 TYPIT X10 3 WRT PRINT CHARACTER 30405110 
O71F 0 0306 §T0 $3 Nos 30404440 0751 0 OBOA x10 3 PTR SENSE - RESET DSW 30405120 
0720 0 8307 hi 3 PAD 30404450 0752 0 OO1A STO OSWBY 30405130 
0721 0 0307 : STO 3 PAD 30404460 od : 30405140 
: 3 * 30404470 * CHECK BUSY OSW 30405150 
0722 0 C10} LO 11 FETCH NEXT REPEAT CT 30404480 0753 0 EGI1F AND KEFFF 30405160 
0723 0 0304 STO 3 ITR - 30404490 0754 0 F019 EOR KOCOO 30405170 
0724 O01 Fe000SES | €OoR t TERM. | 30404500 . 0755 01 4C1806A0 BSYOK BSC LL MARKy t= BR 1F OSW OK 30405160 
0726 01 4C200609 BSC LL MARKS 52 BR IF NOT END OF RTN 30404510 wat | 30405190 
0728 01 C40005E0 to tk Sw 30404520 0757 0 C815 LOD DSwWBY 30405200 
072A 0 EQOA AND ~—s BASIC ASSURE PROPER ENTRY 30404530 | 0758 0 £018 AND KCWSL 304052.0 
0728 01 4C1806COD BSC L MARK3»¢- BR IF NO RTN SELECT (30404540 | 0759 0 E814 OR KOCOO . 30405220 
| Ps | 30404550 ae 0754 0 1800 RTE 16 30405230 
0720 0 0004 —  -§TO MARKESL 30404560 (0758 0 6102 Lox 12 30405240 
. OT2E 0 9005 5§ ALL - 30404570 ee ~—075C O01 44000833 BSI t PROSW PRINT THE ERROR MSG 3040 5250 
- O72F O1 4C3006CD BSC LCL MARK3—9-2 BR IF RTN TOO LARGE — 30404580 wa O75E 0 TOFS MOX . BSYOK 30405260 
0731 00 66000001 MARKE LOx t2 1 "30404590 ¥ SSSSEKSSSSESVSTSSSSSSESKSKSESSSSLSSSSSESSES“SSEKSESE 30405270 
0733 0 709A MDX MARKS 30404600 ’ * 30405280 
rs 30404610 ) | i PRINT INTERRUPT OSW ERROR 30405290 
a 30404620 | | s ? 30405300 
@ | | 30404630 | | O75F O 10A0 INERR SLT 32 RESET ERROR IND 30405310 
SHESESHSESKESESSSSTSESHSHESESSESSESESSESESSESEEESES 30404640 aa 0760 01 04000640 STO & ERIND — 30405320 
SHCSKSMASSEASSSSSSESSSSSSHSSSSSSSSSSSSSSSSSHSSEE 30404650 | 7 oo & mass . Pe, 30405330 
& me - | (30404660 : 0762 01 CCOO0A38 LOD t ERR+PTRO FETCH THE ERROR MESG 30405340 
* — — - 30404670 0764 0 6103 LOX 13 SET ASG ID = 3 30405350 
0734 @ oOOO0aA ALL OC FUND-FUNR ALL TYPEWRITER RTWS 30404680 0765 01 44000833 BSI tL PRDSW PRINT THE ERROR MSG 30405360 
0735 © OGOF BASIC OC /000F | 30404690 0767 0 10A0— SLT 32 30405370 
RESKELHSSSS SSS SHESHSSSSSTHSKSS, 6HSSSSEESEESEE 30404700 0768 0 0812  $TO 3 ERR RESET ERROR IND - 30405380 
Ps -_ ; | 30404710 ; 0769 01 4C00066C BSC tL PRCON RETURN TO MAIN LINE 30405390 
s THIS ROUTINE CHECKS IF THE 30404720 ae SSESSSCSSSSSSSSSESSSSESHSSSSSSSESSSKSSSSSSSHKSSSSS 30405400 
® PRINTER CAN BE USED AND . 30404730 | * 30405410 
s IF THE PRINTER IS READY. 30404740 ; . *% “ 30405420 
. 2 | | 30404750 | ! 076C 000) esS € 1 =f 30405430 
s WHEN LOGBY INDICATES THAT 30404760 ; 076D © 0000 OSwBY OC 40000 LAST BUSY OSwW 30405440 
@ THE PRINTER IS LOGICALLY 30404770 @76E 0 OCO0e KOCOO OC 40C00 BUSY DSw S/B 3040 5450 
2. NOT BUSY, THE OSW 1S 30404780 . O76F © 0000 OSWAS OC 40000 LAST READY DSW 30405460 

DATE - O2JAN66 ISNOV66 § 15JUNOT PROG 1D 0304-2 “DATE | O2JAN66 1SNOV66 1S JUN6T PROG ID 0304-2 

419643 420317 PAGE a’ ~ EC NO. ©  @19643  . 20317 PaGE | =.’ 
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PAGE 5 | ee ee 7 | 
43131 KEYBOCARD-PRINTER TEST ; ' 7 1132 KEYBOARD-PRINTER TEST 
0770 © FFOO KFFOO DC /FFOO CONSTANT | 30405470 . O7A9 01 44000833 BSI CL PROSW PRINT DSW ERROR —- 7 30406150 
0771 0 0000 OSwBS DC 10000 30405480 | © te , | 30406160 
0772 O 0200 FO200 OC 40200 30405490 07AB 00 66000000 WROCT LOX L2 /0000 : 30406170 
0773 0 EFFF KEFFF OC JEFF MASK CONSOLE SW 30405500 | O7A0 0 616F LDx 1 -65 LOOK UP CHAR IN TABLE 30406160 
0774 © 1000 KCNSL OC 41000 30605510 —=s«y O7AE 01 C5000889 CNVRT LD Ll KECOD+65 30406196 
SSSAHSHLKSSSSSESSSSSSK SESS SSESSSSSKESASOKSSOSSD 30405520 0780 0 F30E EOR 3 KEY 30406200 
e 30405530 | Q07B1 01 4C180700 BSC tL CMPREs+— BR IF CHAR MATCHES 30406210 
s 30405540 : 0783 0 7101 “Dx 11 30406220 
8 PRINT MO INTERRUPT ERROR 30405550 0784 0 T0F9 "DX CNVRT 30406230 
ad | 3640 5560 s _ 304062490 
0775 0 OBOA NOIN XIO 3 PTR SENSE - RESET DSW 30405570 0785 0 C30E LD 3 KEY 80406250 
0776 0 DOFA STO DSKBS 30405580 0786 O F011 . EOR NCAP 30406260 
Oo7T77 0 CS8F9 LOD DSuBS 30405590 Q787 O01 4C1807C5 BSC t NOCPev BR IF NO CAP NEXT 36406270 
0778 9 E0OFB AND KCNSL 30405600 : Cf : , 30406280 
0779 01 ECOO063E OR & K«K8000 30405610 0789 0 COOF LD ERSLC | 30406290 
97768 O 1800 RTE 16 39405620 O7BA 0 F30E EOR 3 KEY 30406300 
O77C © 6104 LOX i 4 — ERROR - & 30405630 | O78B 01 4Cl807TF9 BSC tL ERSEs?= BR IF ERASE LAST CHR 30406310 
0770 01 44000833 BSI t PRDSW FRINT THE ERROR &SG 30405640 & | | 30406320 
O77F O01 4C00066C BSC L PRCON 30405650 Oo78D © 6201 LOX 2 1 SET MODIFIER WORO COUNT 304063530 
| SRESSRRSSSSSHSSASSSSSSS SS SSS KSASSSSSSSSSSSSS 30405660 : O7BE 01 6&000847 STX 2 ERESGS2 ; 30406340 
30405670 * 30406350 
& KEYBOARD TEST | 30405680 07CO @ 6105 LOx 1 5 ERROR 5 30406360 
s | 30405690 , o7C1 0 C30E ~D 3 KEY KB READ ERROR WORD 30406370 
4 s , : 30405700 O7C2 01 44000833 BSI] tL PROSW PRINT THE ERROR MSG | 30406380 
e SELECT KEYBOARD ROUTINE | 30405710 07C4 © 70BC MOX SELC2 30406390 
s 30405720 & | 30406400 
0781 01 660005E7 SELC2 LOX t2 COMIN. RESET INT XFR VECTOR 394057390 o7CcS 0 6801 — NWOCP STX © LOWER : 30406410 
0783 00 6£00018C STX L2 RQKS FOR KEYBOARD REQ 30405743 . O7C6 O TOBA MDX SELC2 3 30406420 
0785 00 6£€00018D STX &2 SV¥KB | AND SVC KEYBOARD 304057590 | KHKSSELSEAKSKSESSSKLSSCEKSESRASSSS SCS SSSSSLSSSSSSSs 30406430 
s | 30405760 a : @ 30406440 
0787 0 ._OBOA xI0 3 PTR SENSE AND SAVE DSW 30405770 e 3 : Prats 30406450 
0788 © DOEG $T0 OSWAS 30405780 se o7C7 0 0000 LOWER OC 40000 = 0 IF NEXT UPR CASE 30406460 
*: 30465790 — o7C8 0 0002 NCAP OC 40002 ERASE FIELD KEY CODE 30406470 
0789 0 C0645 Lo  ®FOOO RESET PTR STATUS | 30405800 Oo7Cc9 0 0004 | ERSLC OC 10004 BACKSPACE KEY CODE - 30406480 
O78A @ D302 STO 3 STS 304058106 | O7CA O 0000 : SLTWO OC 40000 KEYBOARD SHIFT WORD 30406496 
07668 GO Cé6ES LoD DSWAS 30405820 O7CB O FFET KFFET DC -25 | 30406500 
676C © EOE6 | AND KEFFF a 30405839 | o7cCcC 0 0000 ERSEA OC — £0000 30406510 
O78D O01 4C180793 BSC LL SELCet~ BR IF OSW GX 3040 5546 | o7ce Oo 1111 BSPSE OC Aiki BACK SPACE | 30406520 
@78F O CODF Lo DSWAS 30405856 | O7CE 0 0008 KoO008s OC 40008 30406530 
0790 © E0E3 AND KCNSL | 30405860 O7CF 0 F000 KFOOO OC /*#000 30406540 
6791 9 6101. LOx 1 1 ERROR —- 1 30405670 | SERASSSKSHSSIOSSSCLSGEAKSSSKSSHKSSSESSSERSSSSSS 30406550 
0792 GO 7006 ROX #jS€LC2 PRINT OSW ERROR | ' 36405860 ; | s : o 30406560 © 
s : | 30495890 | ® | PLACE CHAR KEYED IN 30406570 
6793 @ OBOE SELC xXxIO 3 KEY SELECT KEYBOARD 3040 5909 | s OuTPuT TABLE 30406580 
0794 0 OBOA xI0 3 PTR SENSE - RESET OS 304059106 ® | | . 30406590 
0795 0 ODODB $ToO OSwsBs | 30405920 O7D0 01 CS500CEFA CMPRE LO Ll TYCoO0+¢6Ss FETCK PRINTER CHAR 30406600 
0796 0 FODB EOR Fe200 | 30405930 0702 O01 740007C7 MOX LL LOWER, SKIP IF UPPER CASE 30406610 
0797 0 E0DB ANO KEFFF | 3040 5946 | 0704 0 1808 SRA 8 ae - . 30406620 
©798 02 4€18066C BSC L PRCONet= BR IF OSu OX 30405950 0705 0 1008 SLA 8 30406630 
s 30405960 | 0706 0 0303 STO 3 OuT SAVE OUTPUT CHAR 30406640 
0794 0 C8Dé LOO OSuBS — - PRINT OSH ERROR 30405970 : s i 30406650 
0798 © €0D6 AND KCNSL | 30405980 0707 0 6100 LOX 1 0 RESET LOWER CASE Sw 30406660 
@79C 0 E&8DS OR F0200 30405999 o7D8 0 69EE —  §TX 1 LOWER a3 30406676 — 
* @79D 0 6166 Lox 1 6 ERROR — 6 30466000 | s | 30406680 
s 30406010 0709 01 740007CA MOX & SLTWD»O BR IF CHAR IS FIRST 30406690 
@79E 6 18D0 SELC1] RTE 16 | 30406020 | 0708 0 7004 — MDX SFY * TO BE PLACED IN wD 30406700 
O79F 01 44000833 BSI tL PROSW PRINT THE ERROR MSG 30406039 ) | & 7 | 30406710 
O7Al 02 64000693 LOX t EXECT TRY AGAIN = LATER 30406040 o70C O 6121 LOx 1 /21 | - 30406720 
SSESILSSHSAOKSE SS SSSSSHKSSSSASSSHSSHSIKETESESSSESES 30406050 07DD 0 7201 ~«. MDX 21 SKIP IF TABLE COMPLT 30406730 
s 30406060 Ss O7DE 0 7006 OX TALIS a . 30406740 
P s DECODE CHARACTER KEYED 1% 30406076 O7DF 0 7009 OX Exit “ | 30406750 
s 30406080 Ls s i 30406760. 
| © ot : | 30496090 ) O7EO © 6100 SFT LOX 10 30406770 
O7A3 © 0610. KEY8O xXi0 3 SEE READ AND SAVE CHAR 30206106 O7E1 O 1808 SRA 8 30406760 
O7A4 0 O8GA xi0 3 PTR SENSE = RESET OSW 304061106. ae O7E2 O@ 7000 ; ROX TOLIZ ° 30406790 
O7A5 @ i640 SLT 32 30406120 5 & . 30406800 
7 OTA6 O01 4C1B07AB BSC kL WROCTe¢= | | 30406130 | O7E3 01 EE0008T7T4 TOLIZ OR L2 ANY*27 PLACE CHAR IM OUTPUT 30406810 
O7A8 O 6107 — Ox i? ERROR —- 7 | 36406140 | <— O7E5 01 06000874 TBLIS STG 2 ANYe27 * TABLE 30406820 
. | x 2 
DATE O2JANG6 I1SNOVE6 1S JUN6T | PROG i6 0304-2 So DATE 02 JAN66 15NOV66 ASJUNGT | | a PROG 10 9334-2 
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1132 KEYBOARD-PRINTER TEST 


Ue 


SAVE TEST STATUS 


UPDATE PRTR STATUS 


PRINT ONE CHARACTER 
CONTINUE TILL INTRPT 


SEEKSERELEKSTKSERSESSSEKSSKLSEKTSSKESKKESSASSKSERESE 


ERASE LAST CHARACTER 


KEYED IW, 


BR IF TABLE EMPTY 


BR IF NOT SHIFTED 
ERASE SHIFTED CHAR 


"SET BACKSPACE CODE 
* IN OUTPUT WORD 


CKRETDHEEAASESARKEAKSY REARS SSESKKEKSKSESSEKRLK KER SES 


JERMINATE MESSAGE ROUTINE 


s 
O7E7 0 69E2 TBLI STX 1 SLTWO 
O7E8 0 6AC3 STX 2 WROCT?1] 
O97E9 O01 C4000844 ExIT LO tL «KEOOO 
@O7EB O 0302 —- § TO 3 STS 
O7EC 01 650007E9 LOX Ll EXIT 
OTEE OO C4800167 LO I LOGBY 
- O7FO 01 4€200840 BSC t PDSWXe2 
O7F2.01 650005E7 LOX t1 COMIN 
O7F& 00 6D0001B8 STX Ll ROTY 
O7F6 0 OBO08 x10 3 WRT 
O7F7 01 4€C00066C BSC LL  PRCON 
ge 
x 
s 
ey s ns 
O7F9 O 6AD2 ERSE STX 2 ERSEA 
.O7FA © COD) — to ERSEA 
O7FB O FOCF - €OR KFFET 
OTFCC O01 4C1"°0761 BSC L SELC29+- 
: ¢* 
- O7FE GO COCB LD —  SLTWwo 
 O7FF O01 4C200809 BSC CC. ERSEleZ 
0801 0 6121 LDX 1 -./0021 
0802.01 C6000874 LO. L2 ANY+27 
080460 . 1808 SRA... 8 
0805 O 1008 SLA 8 
-0806 01 06000874  §T0 L2 ANY4¢27 
0808 Q 7006 » MDX ERSE2 
. : 
-0809.0 1010 ERSEL SLA (46 
O80A 0 6100 — Lox 1.0 
OL0B O 72FF MOX 2-1 
O8s0c oO 1000 NOP 
080D 01 06000875 STO L2 ANY+28 
O8uF O COBD ERSE2 LD BSPSE 
0810 0 0303 STO 32 OuT 
0811 G6 70D5 MDX TALI 
s 
= 
: & 
0812 0. 0000 ENDM OC 40000 
0813 0 C048 . LO ANY+3 
0814 O1 668007AC LOX I2 WROCT+1 
0816 O01 4C180829 BSC L ENDM2e9+- 
0818 0 6102. LOX 1 2 
0819 0 6941 STX lL ANY#2 
081A 0: COAF LD. ” SLTWO | 
0818 O1 4C180821 BSC LL ENDMl»+— 
081D 01 EE0008T74 OR C2 ANY+27 
O8lF O1 D600087T4 STO L2 ANY*+27 
& 
0821 01 C40v0909 #.ENDM] LD Lt RED 
- 0823 O1 06000875 STO 2 ANY+28 
0825 0 C032 LO Fund 
0826 O01 06000876 STO L2 ANY*#29 
0828 0 7002 MDX § ENDM3 
=. 
0829 O CO2E ENDM2 LO FUND 
082A 0 0030 sto ANY?2 
s 
0828 O COA2 . €NDM3 LO KOOO8 
082C 01 D4000A28 STO LL STS+PTRO 
<< 
082E 0. 6200 , | LOx 20. 
O82F 01 6EO00S5SEO STX t2 Swi 
OATE O2JAN66 15NOVO6O6 15 JUN67 
EC WO. 415490 419643 #20317 
ae es se AS 3 : ee 


BR IF TABLE EMPTY 
BR IF LAST SHIFTED 


SET TABLE TERMINATOR 


SET TABLE TERMINATOR 


RESTORE PTR RIN 


PART NO. 


PAGE 


30406630 


30406840 
30406850 
30406860 
30406870 
30406880 
30406890 
30406900 


30406910 


30406920 


30406930 


30406940 
30406950 
30406960 


30406970 


30406980 
30406990 
30407000 
30407010 
30407020 
30407030 
30407040 
30407050 
3040 7060 
30407070 


— 30407080 


30407090 


30407100 
30407110 


30407120 
30407130 
30407140 
30407150 
30407160 
30407170 
30407180 


30407190 


30407200 
30407210 
30407220 
30407230 
30407240 
30407250 
30407260 
30407270 
30407280 


~ 30407290 


30407300 
30407310 
30407320 
30407330 
30407340 
30407350 
30407360 
30407370 
30407380 
30407390 


- 30407400 


30407410 


(30407420 


30407430 
30407440 
30407450 
30407460 
30407470 
30407480 
30407490 
30407500 


PROG ID 
PAGE 


2191240 
6 


0304-2 
6 


ae 


See a nf é 


@ 


(0844 


0845 


-084C 


0858 


. O85F 
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(0833 O 


0834 O 


0835 0 


0836 00 


0838 1 


0839 0 
083A 0 
0838 0 


083C Ol 
O83E Ol 


0840 OL 
0842 00 


0844 


0846 
0847 
0848 
0849 
084A 
0848 


ooooooo°o. 


oo 


084D 


O84E 
O84F 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 


© mee pee pee be pe es ee ees ee pes 


0859 
O85A 


oB5C 
085D 
O85E 


0860 
0861 
0862 


eooooooocdoso 


DATE 
EC WO. 


0831 01 «C800812 


0000 


0815 
690F 


#4800162 
0845 
0000 


6303 
6B0B 
67T000A26 
4C800833 


6D0005E5 
44800161 


0000 


- €000 
0000 


0000 
0003 
0000 
0000 
0000 
0000 


0000 


0008 


0859 
O8FA 
0908 
0927 
0943 
0959 
0974 
O°8F 


0901 


O9F3 
FFFF 


0001 
O5FF 
FFFF 


0000 


0000. 
0000 
0000 


~ 9000. 


0000 
0000 


O2JAN66 


415490 
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e 
BSC 


x 
Bs 


1 


END 


RETURN TO USER 
KESHKKSESESERS STA KRERSSKSEAR ERASERS SERS SES SKS STERSESE 


PRINT ERROR ROUTINE 


SSEEKSKAKEKESKSEKHKLSEKSKKAKAK KEKE SSHERERKKKKH KSEE 


SAVE DATA MESSAGE 
SAVE MESSAGE ID NO 


* 


MESSAGE ADDR * 


LOOP ON ERR - NONE * 


REATKERERERSTAEREREEERAESRSESETERSELEESERERE EE 


RESET MODIFIER WORD CNT 


RESTORE XR3 


RETURN TO USER 


ERROR ID 7 
MESSAGE ID NO 
HEX == OUTPUT 


DATA ID WORD 
ALPHA ADDR: 
ALPHA ADDR 
DSWAS 

DSw S/8 


DELAY TIME STORAGE 


RECSSSESKSESSSSTCKASESESSKKTCKLETKSESKSKSLSK SESE KKKK SKE 


PRINTER TEST SEQUENCE 


CONTROL TABLE 


KEYBOARD OPTION 

TAB + CARRIER RETURN 

UPPER CASE CHARS 

LOWER CASE CHARS 

COLOR SHIFT ROUTINE 

BACKSPACE AND INDEX 

AUTO CARRIER RETURN 

TEST TILT 

TEST ROTATE 

TEST TILT AND ROTATE 
* 


SRSECKCSHEKSSKSSESKSKESESCKSESKSKKKSK SRST 


KEYBOARD OPTION TABLE 


8s 
PROSW OC 4/0000 
STO EMESG+5 
= 
STX 1 EMESG 
gs 
BSI I ERROR 
oc EMESG 
DC 
LOX 3 3 
STXx 3 EMESG+2 
LOX 3 PTRO 
BSC I PRDSW 
* A 
PDSWX STX Ll MLSCF 
BSI I START 
= 
BSS E. 
KEOOO DC /€000 
EMESG DC /0000 
— OC /0000 
OC 40003 
OC 40000 
DC 40000 
DC /0000 
| OC 4/0000 
z= 
| 
TIMEX OC /0000 
ELVEN OC 11 
2 
s 
x 
& 
FUNR DC. ANY 
DC TACAR 
OC UCASE 
DC LCASE 
DC COLOR 
DC SPNDX 
DC AUCAR 
OC ROCK 
OC ROLL 
—6«oc TWIST 
FUND OC /FFFF 
ESSEC SSS 
aa 
Pe 
. 
ANY DC a | 
DC JO5EF 
OC /FEEF 
OC 40000 
OC 40000 
OC 40000 
DC 40000 
OC 40000 
OC 40000 
Oc 40000 
15NOV66 15JUN6T7 
419643 420317 
2 Mt Le as 


ITCNT 
BLACK 
ITCNT 
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PAGE 


— 30407510 
— 30407520 


30407530 
30407540 
30407550 


30407560 


30407570 
30407580 
30407590 
30407600 
30407610 
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10M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEN PART NO. 2191240: I6M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER PART NO. 289E208 Fu 
| . : PaGE a | | PAGE mm 
(1131 KEYBOARD-PRINTER TEST an 1132 KEYBOARD-PRINTER TEST | 
‘y ) . 
0863 @ 0000 pe 40000 30408190 089D 0 8800 oc 78800 8 30408870 
0864 0 0000 Dc =»: 0000 30408200 Seer 2 Seen oc 78400 C iedipited 
0865 © 0000 oc $$ 0000 30408210 O89F © 8200 oc /8200 o 30408890 
(0866 0 0000 Oc 40000 30408220 08A0 0 8100 DC 48100 E 30408900 
0867 0 0000 oC 10000 304082 30 08Al 0 8080 or 78080 F 30408910 
0868 0 0000 DC | 10000 30408240 O08A2 0 8040 DC 18040 6 30408920 
0869 0 0000 oC 40000 30408250 (0843 0 8020 oc 18020 H 30406930 
086A © 0000 oc /0000 30408260 GBA4 0 8010 DC 8010 I 30408940 
0868.0. 0000 OC 70000 30408270 08A5 0 5000 OC 45000 J 30408950 
08s6C O@ 0000 Oc 40000 30408280 O8A6 0 4800 Cc 44800 K 30408960 
086D 0 0000 OC 40000 30408290 — O8AT O 4400 ~ 0c 14400 t 30408970 
O86E 0 ©c000 DC 40000 30408300 O8A8 0 4200 oc 442090 a 30408980 
O086F © 90000 DC £0000 30408310 08A9 0 4100 DC 14100 eM 30408990 
0870 0 0000 DC 70000 30408320 z O8AA 0 4080 oc 44080 oO 30409000 
0871 0 0o000 DC 40000 30408330 ; O8AB 0 4040 DC 14040 Pe 30409010 
0872 0 0000 oc 70000 30408340 OB8AC 0 4020 DC — £4020 Q 30409020 
0873 0 0000 DC 70000 30408350 OBAD 0 4010 oc (14010 R 30409030 
0874 0 0000 0C £0000 30408360 O8AE 0 2800 oc 42800 Ss 30409040 
0875 O FFFF oc /FFFF | 30408370 O8AF 0 2400 OC 12400 T 30409050 
. SSTTSSKSSARSSSSSESSSHETVSESSSSSKSSSCSSASCSERSE KSEE 30408380 : 08BO0 0 2200 OC . 4/2200 LV) 30409060 
s | | 30408390 0881 0 2100 oC 42100 v 30409070 
s . 30408400 O08B2 0 2080 DC 42080 W 30409080 
s END PROGRAM ROUTINE 30408410 08B3 0. 2040 OC 12040 x 30409090 
* | | 30408420 0884 0 2020 DC /2020 v 30409100 
ERESKSRSESRE SSS SSSRAKKSSSERLSSSES KSEE SESS SKIES 30408430 0685 0 2010 oC 12010 z 30409110 
0876 00 44800164 TYEND BSI I END Ps 30408440 08B6 0 0000 Oc 70000 SPACE 30409120 
SSKLKE CHEK SRESSSSSSLISS SSHSKSSSKS LES SEKSK AIEEE 30408450 08B7 0 2820 oC 42820 — 0-8-2 30409130 | \ 
2 : 30408460 > | 08688 0 0008 OC 70008 EOF 30409140 
* | 30408470 & : 30409150. | 
* | KEYBOARD CODE TABLE 30408480 . * PRINTER CODE TABLE 30409160 . ) 
* , 30408490 ane & =: 30409170 
0878 OQ 4220 KECOD OC 1%220 ® 30408500 0889 0 D6D6 TYCOD OC /D6D6 . s 30409180 
0879 0 3000 DC 43000 / 30408510 O8BA 0 B8CBC OC /8C8C 30409190 Y 
O0s7a 0 2000 OC 42000 0 30408520 08B8B 0 C4C4 DC 4C4C4 o 30409200 
087B 0 1000 DC 41000 1 30408530 OsBC O FCFC DC JFCEC a 30409210 
os7C O 0800 DC 4/0800 2 30408540 088D 0 D8D8S DC £0808 2 30409220 ) 
0870 0 0400 OC 10400 3 30408550 O8BE 0 OCDC OC 40COC 3 30409230 
OS7E 0 0200 . OC 40200 4 30408560 O8BF O FOFO DC /FOFO ry 30409240. = 
O87TF 0 0100 oc 40100 5 30408570 O8CO O F4F4 OC JF4FSE 5 30409250 : 
0880 0 ooBCc oc 40080 6 30408580 08Ci1 O DODO OC 70000 6 30409260 
0881 0 0040 DC 10040. 7 30408590 O8C2 0 D4D4 Oc 10404 7 30409270 
0882 0 0020 Oc 40020 8 30408600 08C3 0 ESE4. OC JESES 8 30409280 
0883 0 0010 OC 10010 9 30408610 O8C% 0 E0EO OC /EOEO .) 3009290 
088% 0 4420 DC 14420 $ 30408620 08C5 0 4040 oC 44040 s 30409300 
0885 0 8420 oC 18420 ee 30408630 O8C6 0 0000 DC 40000 © 30409310 
0886 0 2420 OC 42420 . 30408640 08C? 0 8080 oC /8080 8 30409320 
os87 © oOoAao «OC /00A0 @ 30408650 oscs 0 C2C2 DC 402C2 ® 30409330 
0888 0 0120 DC 40120 e 30408660 O8C9 O E6E6 OC JE6GES : 30409340 
0889 0 8120 DC 48120 ( 30408670 08CA O FEFE OC /FEFE r 30409350 
0884 0 4120 OC 14120 ) 30408680 O&8CB 0 Fb6F6 OC /F6F6 ) 30409360 
0886 © s0A0 oc 78000, 8 + 30408690 OBCC O© DADA . oc /DADA * 30409370 
-086C 0 4000 oC 44000 — - 30408700 Os8CD 0 8484 — DC 18484 - - 304693680 
0880 0 8820 oc - 78820°— CENT SIGN 30408710 OBCE 0 0202 DC 10202 CENTS SIGH 30409390 
O88E © 8220 OC 18220 LESS THAN 30408720 O8CF 0 DEDE OC /DEDE LESS THAN 30409400 
ossF 0 8060 OC 78060 LOGICAL OR 30408730 08D0 0 Cé6Ceé oc /C6CS LOGICAL OR 30409410 
0890 0 8000. DC 78000 AND 30408740 0801 0 4444 DC I bgbyhayhe AND oe 30409420 
0891 0 4820 oc 44820 EXCLAIMATION 30408750 08D2 0 4242. oC $4242 EXCLAIMATION 30409430 
0892 0 40Aa0 oc /40A0 SEM] COLON 30408760 0803 0 D202 oc 40202 SEM] COLON 30409440 
@893 0 4060 OC 14060 LOGICAL NOT 30408770 O8D4 O F2F2 | OC sF2F2 LOGICAL NOT 30409450 
0894 0 2220 OC 12220 PER CEN? 30408780 0805 0 0606 Oc 10606 PERCENT SIGH 30409460 
0895 0 2120 OC 42120 UNDERSCORE 30408790 0806 0 BEBE OC /BEBE UNDERSCORE 30409470 
0896 © 20a0 - DC 420480 GREATER THAN - 30406800 | 08D7 0 4646 OC 14646 GREATER THAN 30409480 
0897 0 2060 Oc 42060 QUSTION MARK 30408610 ) 08D8 0 8686 OC 48686 QUESTION MARK 30409490 
0898 @ 03820 Oc 10820 COLON 30408820 08D9 0 8282 oc 16282 ~ COLON 30409800 
0899 © 0420 OC 10420 — NUMBERS 30408830 ; O08DA © COCO OC 4COCO NUMBERS 30409510 
089A 0 6220 OC 40220 atv. 30408840 ) O08DB 0 0406 OC 10406 at 30409520 
©0898 0 e060 OC 10060 QUOTE 30408850 O8DC @ E2E2 OC J€2E2 QUOTE . 30409530 
08st © 9060 OC 49000 a 30408860 | ‘ 80D 0 3C3E DC /3C3E ry 30409540 
—OATE O2ZJAN66 15N0V66 15 3UN6T PROG ID =0304-2 _ | DATE O2JAN66 15NOV6O6 155UN67 PROG 83. gae4~2 
EC Oe 415490 419643 420317 ‘PAGE 7 7 | Od EC NO. 415490 419643 420317 PAGE 7A 
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LBM MAINTENANCE. DIAGNOSTIC PROGRAK FOR THE 1130 SYSTEM 


PART NO. 2191240 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191240 
oO ak, ay GO : | PAGE 8 PAGE GA 
113] KEVYBOARD-PRINTER TEST . 1131. KEYBOARO-PRINTER TEST 
a aa : ) este Po! San 
OQB8DE 0 1814 oc  flBia 8 (30409550 0917 0 629A OC —— 629A re § 30410230 
O80F O i1ClE DC JICLE —¢ 30409560 0918 0 9EB2 OC S9EB2 tT UV 30410240 
O8—F0 0 3032 oc $3032 — D 30409570 0919 0 B692 OC 18692 ov WW 30410250 
O8E1 0 3436 oC 13436 £ 30409580  O91A 0 96A6 OC /96A6 a. v 30410260 
OBE2 O 1012 oc 41012 F 30409590 0918 0 A22) OC — A221 z «SP 30410270 
08E3 O il4l6 0C  ££1416 S$ 30409600 _091C 0 FEDA OC _ /FEDA 4 ¢ 30410280 
OBES 0 2626 pC 2426. = H 30409610 0910 0 ODEF2 OC . CDEF2 LES INT 30410290 
08ES 0 2022 oc . ¥2022.—- I 30409620 O91E @ F6D2 oc /F6D2 » SMI ~~ 30410300 
OB8E6 O TCE oc /ICTE ae 30409630 C91F O OD6E6 DC -- JD06E6 s ® ~- 30410310 
O8E7 0 585A oc /5854 K 30409640 — 0920 0 E2C6 OC — FE2C6 QTE tOR ‘30410320 
O8E8.0 SC5E oC /5C5E L 30409650 - 0921 0 C2BE OC /C2BE * ~~. UOR 30410330 
O8E9 0 7072 0C  §47072 a 30409660 0922 0. 8682 OC 18682 QSN CLN — 30410340 
O8EA 0 7476 0C /747%6 — vy 30409670. ~ 0923 0 4642 OC 14642 GTR EXC 30410350 
O8EB.0. 5052 oc 5052 — 0 * 30409680 _ 0924 0 0602 OC =: 40602 PCT CNT 30410360 
O8EC 0 5456 DC 45456 © P 30409690 0925 0 OFF oc —O9FF RED | 30410370 
O8ED 0 6466 DC 16466 © Q 30409700 . 0926.0 FFFF oc FEF 30410380 
OBEE 0: 6062 oc 76062 © R 30409710 - > 30410390 
OBEF 0 989A oC 989A s 30409720 | oie LOWER CASE 30410400 
0 9C9E DC # ‘s9C9E T — 30409730 | ee ... — 30410410 
O8Ft.O B0B2 DC -" 7p082 u 30409740 0927 0 0001 LCASE OC ae | ITCNT 30410420 
O8F2 0 B4B6 OC - {BeB6 v 30409750 0928 0 8SFF a DC  JESFF BLACK 30410430 
08f&3 0 9092 DC 19092 30409760 0929 0 0002 OC 2 ITCNT 30410440 
O8F4 0 9496 OC 194% x 30409770 0924.0 8613C OC - 4813C Cr A 30410450 
O8F5° 0 A&A6 OC  /sA&he Yv - 30409780 (0928 0 1861C bc /161C 6 ¢ 30410460 
O8F6 0 AOA2 oC /Q0A2 2 390409790 092C 0 3034 0c .. $3034 0 E 30410470 
O6F7.0 2121 OC - 72121 SPACE 30409800 6920 0 1014 dC 41014 F 6G 30410480 
 @08F8 0 0303 DC ~§.. £0303 LINE FEED 30409810 O92E 0 2420 vc 42420 HI 30410490 
 O08F9 0 8182 Oc 78181 CR 30409820 O92F 0 7058 DC _ 41058 J OK 30410500 
Se . - 30409830 0930 0 5C70 oC — 45C70 Ll se” * 30410510 
*. 30409840 0931 0 7450 OC 47450 wn OO 30410520 
| * TAB AND CARRIER RETURN 30409850 0932.0 5464 . oc 15464 P @Q 30410530 
: . * io | 30409860 0933 0 6098 DC 16098 xe s§ 30410540 
O8FA 0 0001 TACAR OC | ITCNT 30409870 _ 0934 0 9CBO oC 49CB0 Tt UY 30410550 
O8FB O 8SFF oe  /85FF BLACK 30409680 0935 0 6490 OC 48490 vow 30410560 
O8FC 0 0002 oc 2 ITCNT 30409890 | 0936 0 94A4 oc 194h% — x oY. 30410570 
O8FD O Blle Oc /B11E CR C 30409900 0937 0 A02} OC 7Aa021 2 $ 30410580 
O8FE 0 3C60 oc /3C60 A oR 30409910 0938 O FCDS OC — #FCD8 1 2 30410590 
O8FF O 6020 oc 46020 Re 1 30409920 (0939 0 OCFO oc 40CFO 3 30410600 
0300 0 3460 oc - $3460 € RR 30409930 093A 0 F4&DO Oc 4F400 5 6 30410610 
0901 0 2160 0C =: £2160 ry 30409940 0938 0 D4&E4 OC SD&E4 7 8 30410620 
0902 0 349C OC - - 43496 € Tf 30409950  093C 0 E0C4 OC E0C4 9 0 - 30410630 
0903 0 8060 oc 78060 vu OR 30409960 -093D 0 COBC tT @ _ £COBC NOS / 30410640 
0904 0 7441 OC 4744) wT (30409970 093E 0 6480 DC 78480 - 9 30410650 
0905 0 9€3C oc /9E3C T A 30409980 ~ 093F 0 44440 oc (146440 AND $ 30410660 
0906 0 1880 ¢ 4/1880 8 YT) 30409990 0940 0 0400 OC 40400 AT e 30410670 
0907 @ 8C€3C 7 oc .f563C to 30410000 0941 0 O9FF OC - JO9FF RED 30410680 
0908 @ 9036 : OC  49C34 T #OC 30410010 0942 0. FFFF DC SPER 30410690 
9909 0. O9FF RED1 OC — /O9FF RED 30410020 | 9 | | 30410700 
090A © FFFF oC /FFFF ~ 30410030 * | 30410710 
me - s . ~~ 30410040 - | s COLOR SHIFT 30410720 
& 30410050 | | : | 30410730 
8 CHARACTER COMPLIMENT 30410060 0943 0 0002 COLOR OC 2 ITCNT 30410740 
e 30410070 0944 0 8l1FF OC JB1LFF CR 30410750 
e UPPER CASE 30410080 0945 0 0014 OC 20 ITCNT 30410760 
s 7 30410090 ! 0946 0 0952 Oc 10952 RED O 30410770 
| 2 eno: 6 : - -30410100 0947 0 1105 OC 71105 8SP BLK -. 30410780 
0908 0 0001 UCASE DC YY ITCNT 30410110 : 0948 0 DA2}l oC /0A2) + SP 30410790 
0900 @ aSFF OC . JO5FF BLACK 30410120 : 0949 0 21FF bc /21FF sp 30410800 
- 0900 0 0002 oC =— 2 ITCNT 30410130 094A 0 00386 oC 39 ITCNT - 30410810 
 O90E O. 813E Oc f/B1L3E CR A 30410140 0948 0 ILIFF OC —OLLFE @SP — 30410820 
- O90F O ILALE DC J1ALE 8 Cc 30410150 | 094C 0 0014 oc 20 ITCNT .. 30410830 
0910 0 3236 oc 13236 o 6CC 30410160 0940 0 0952 oc 10952 RED O - 30410840 
0911 © 1216 we 41216 €& ¢ 30410170 096E O 1105 OC 41105 BSP BLK . 30410850 
0912 © 2622 OC 42622 nH I 30410160 — O94F O DA21 oC /DA21 + SP 30410860 
0913 0 7E5A DC /TESA 3 « 30410190 . (0950 0 21FF oc 721 FF sp 30410870 
0914 0 SET2 oc /5€T2 t 30410200 0951 0 0038 DC 59 ITCNT 30410880 
0915 0 7652 OC 17682 ry oO 30410210 0952 0 ILIFF DC JLLEFF BSP 30410890 
0916 0 5666 DC 15666 ¢ @ 30410220 : 0953 0 0014 OC 20 ITCNT 30410900 
DATE O2JAN66 15N0V66 15JUN6T PROG ID 0304-2 | DATE O2JAN66 15NOV66 15JUN67 | _ PROG ID 0304-2 
, EC NO. 415490 419663 420317  §.. - PAGE - s | q . EC NO. - - 415490: 419643 420317 © | i | «PAGE BA 
2 
3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER PART NO. 2191240 we | IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191240 
PAGE 9 | PAGE 9A 
1131 KEYBOARDO-PRINTER TEST :) 1131 KEYBOARD-PRINTER TEST ; 
’) 
0954 0 0952 oc 10952 RED O 30410910 | 9 30411590 
0955 0 1105 Oc 41105 BSP BLK 30410920 <8 098F O 0002 ROCK OC 1 ITCNT 30411600 
0956 0 DA21 oc /0A21 + SP 30410930 y 0990 0 85FF oC /85FF BLACK 30411610 
0957 O 21FF oC /21F SP 30410940 0991 0 0002 DC 2 ITCNT 30411620 
0958 0 FFFF oC /FFEE 30410950 0992 0 81CO DC 481CO0 CR NOS 30411630 
8 30410960 0993 0 8040 oc 48040 ° $ 30411640 
° 30410970 0994 0 0020 DC /0020 « <I 30411650 
8 BACK SPACE AND INDEX 30410980 0995 0 60A0 DOC /60A0 R Z 30411660 
s 30410990 0996 0 E0DO OC /E0DO 9 6 30411670 
0959 0 0001 SPNDX DC 1 ITCNT 30411000 0997 0 9050 oc 49050 Ww 0 30411680 
C954 0 6181 OC 48181 Crk CR 30411010 0998 0 1030 DC 41030 F Dd 30411690 
0958 0 45FF DC 445FF BLACK 30411020 } 0999 0 7080. oC 47080 ” U 30411700 
095C 0 0002 oc 2 ITCANT 30411030 099A O F008 oc /FO0D8 4 2 30411710 
095D 0 36lLi DC /3611 € ® 30411040 1 0998 0 9858 DC 4/9858 S K 30411720 
095E 0 LLIE DC ALILE * 6 6¢ 30411050 ty 099C 0 1804 OC 41804 8 Al 30411730 
O95F O i111 oc 11211 2 * 30411060 099D 0 4484 OC 14484 AND = 30411740 
0960 0 3612 DC /3E11 A ® 30411070 a 2 O99E 0 C4E4 oc IC4ES 0 8 30411750 
0961 O 1156 oC 41156 2 8 6?P 30411080 ae O99F 0 A464 oc 14464 Y @ 30411760 
0962 0 lll oC L111 s s 30411090 0940 0 2414 OC 42414 H G6 30411770 
0963 0 9Q9All Oc /9Al1 Ss 8 30411100 09Al 0 5494 oC 15494 P x 30411780 
0964 0 illil oc 1111 2 e 30411110 ae, O9A2 0 D4F4 oc /D4F4 7 5 30411790 
0965 0 S5Al1 Oc /SA1L1 Kx 8 30411120 | 09A3 0 B474& oc 18474 Vv WN 30411800 
0966 0 LLIE oc ALLLE Ps c 30411130 0944 0 341C oC 4341C E C : 30411810 
0967 0 12111 . OC f1111 s s 30411140 09A5 O 5C9C oc /5C9C L T 30411820 
0968 0 3611 DC /3E121 A s 30411150 0946 0 OCFC OC /OCFC 3 l 30411830 
0969 O LIA 3 OC ALLLA % B 30411160 | 0947 O BC7C oc 46C7C 4 J 30411840 
0964 0 814) oC 48141 CR TAB 3 30411170 | 0948 O 3021 OC /3C21 A 30411850 
0968 O 2213 . OC 12213 I Ox 30411180 ; O9A9 0 0242 oc 10242 CNT ECX 30411860 
096C 0 7613 | oc 17613 N° OX 30411190 O9AA 0 82C2 0c 482C2 CLWN ® 30411870 
0960 0 3213 ' oc 43213 D § ox 30411200 : ; O9AB O E2A2 OC /E2A2 QTE 2 30411880 
OC96E 0 3613 OC 43612 E Ox 30411210 O9AC O 6222 OC «46222 R LOR 30411890 
096F 0 9613 DC 19613 x OX 30411220 . O9AD O 1252 Oc 41252 F Q 30411900 
0970 OQ O9oOFF OC /O9FF RED 30411230 | O9AE O 9202 0c 492D2  ] SMI 30411910 
0971 0 0002 oc 2 ITCNT 30411240. O9AF O F282 OC 4F2B2 I U 30411920 
0972 0 #e5FF oC /85FF CR 30411250 0980 0 7232 oc 17232 e oO 30411930 
0973 O FFFF DC /FEFE ; 30411260 0981 0 IASA OC JIASA 8 K 30411940 
| s 30411270 09B2 0 9ADA oT os /9ADA Ss T 30411950 
s 30411280 0983 0 C686 OC /C686 LNT QSN 30411960 
& AUTOMATIC CARRIER RETURN © 30411290 0984 0 44606 DC 44606. GTR PCT 30411970 
Ps | 30411300 0985 0 2666 OC 42666 | Q@ 304119680 
0974 © 0001 AUCAR OC 70001 ITCNT 30411310 0986 0 AbE6 OC /A6EO y S>. 30411990 
0975 0 6SFF OC /O5FF BLACK 30411320 0987 0 0696 | DC 10696 s 6. 30412000 
0976 0 O00) OC i ITCNT 3041133° | 0988 0 5616 OC 45616 P & 30412010 
0978 0 6060 oc 16060 R R 30411350 O9BA 0 B6F6 Oc /B6F6 Vv ) 30412030 
0979 0 2034 pc 12034 I E 30411360 O9BB O DEQE oc /DESE LES T 30412040 
097A 0 6021 DC 16021 R 30411370 09sec QO S5ElLE oc /SELE L Cc 30412050 
0978 0 60346 OC 16034 R E 3041 1380 O9BD 0 3ETE oC /3E7E° A J 30412060 
097C O 9CBO OC /9CBG T u 30411390 OSBE GC BEFE DC /BEFE UDR ( 30412070 
097D 0 6074 oc 16074 R mw 30411400 O9BF 0 OSFF | oc /O9FF RED 30412080 
O97E O 2iFF oc /21FF : 30411410 09CO 0 FFFF oc /FFFF | 30412090 
O97F 0 0078 oc 120 ITCAT 30411420 | * 30412100 
0980 © 21FF oc /21FF SPACE 30411430 | 7 | 30412110 
0981 0 0002 oc 1 ITCNT 30411440 09C1 0 0001 ROLL OC i ITCNT 30412120 
0982 0 O9FF oc /09F RED 30411450 09C2 0 B5FF OC /85FF BLACK 30412130 
0983 0 0001 oc 1 ITCNT 30411460 09C3 @ 0002 oc 2 ITCNT 30412140 
0984 O 1€3C OC 41E3C ch OCOU#A 30411470 09C4 0 81C® oc /81C0 cr wos 30412150 
0985 0 6060 DC 46060 R oR 30411480 09C5 0 €E0D0 oc /EODO 9 6 30412160 
0986 0 2034 oc 42034 1 Ee 30411490 09C6é @ FO0D8 OC /FOD8 & 2 30412170 
0987 0 6021 Dc 46021 R 30411500 O9C7 @ C4E4 oc /C4E4 °°.) C8 30412180 
0988 0 6034 DC 46034 R E 30411510 09C8 @ D4F4 OC /D4&F4 7 5 30412190 
0989 0 9CBO DC 79C80 T y 30411520 09c9 @ OCFC OC /OCEFC 3 1 30412200 
098A 0 6074 oC 16074 R ow 30411530 o9ca 0 BCOC OC /8C9C 4.6 30412210 
0988 O 21FF Oc C21 FF 30411540 O9CB 0 8494 OC 18494 Vv x 30412220 
og9ac O OO78 Oc 120 ITCNT 30411550 OoSscc @ A&B4 DC 4A4B4 Y - 30412230 
098D O 21FF oc 421 FF SPACE 30411560 e9CD 0 98860 oc 498860 ‘$ uU 30412240 
O98E O FFFF oc JFFFE 30411570 OSCE OG 90A0 oC 49040 Ww 2 30412250 
oi ty es 30411580 CS9CF O 8040 oC 48040 ? $ 30412260 
DATE O2JAN66 15NOV66 15 JUN67 PROG 1D 6304-2 DATE O2JAN66 1SNOV66 LIS JUNGT PROG ID 0304-2 
EC NOo 415490 419643 PAGE 9 EC wo. 415490 419643 420317 PAGE 9A 














- FBR MAINTERANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER Henke, PART NO. 2191240 = ) BN MAT NTENANCE DIAGNOSTIC PROGRAH FOR THE 1130 SYSTER — a PART MOo 2191240 
oY a : gst 10 7 ss | a? | | af - 


een | 7 PAGE | 3 | . PAGE 104 
113k KEYBOARD@PRINTER TEST . . , “© A ae 1131 KEYBOARD-PRINTER TEST 
| : | : | ) 7 | | oe . a 
0900 0 6050 os Be 46050 RR O 30412270 | ee ~~. @a1l2 0 OALS : | 0c —- Oa14 ¢* 6 30412950 
0901 6 7058 7 oc 47058 a K 30412260 . ees 0A13 0 F254 4 0c JF254 LNT P 30412966 
0902 0 4466 x pc /ab46% AND @ 30412290 Dies OAl4 0 8294  ~—6 oC 18294 U x 30412970 
0903 0 5474 pc 15674 Pp ON 30412300 | .. + 0415 0 T2064 oC 17204 a 867 30412980 
0904 0 SC7C ' oc /5C7C Ll Jd 30412310 | | - @A16 0 32F4 | — oc /32F4 do 65 30412990 
0905 @ 3CiC 7 ~ OC /3C1C a ec .30412320 | non  @0A17 0 1284 ..™ oc 41284 FoOGF€#4WV 30413000 
0906 0 34214 - oc 13414 Ee 6 30412330 | | 0A18 0 5274 : OC 15274 0 N 30413010 
0907 0 2404 ~ pe 12404 nH «OAT 30412340 ; 0A19 0 9234 | OC 19234 w 6é6Cc 30413020 
008 0 1830 : ~~ OC 41830 8 oO 30412350 OAlLA O D21C OC /021C SmI C 3041 3030 
0909 © 1020 | OC 71020 F I 30412360 Ls 0A16B O €E25C oe ~ 6C /E25C QTE L 30413040 
 99DA @ 6021 ae oC 70021 ‘ 30412370 a  @A1IC @ A29c OC 4A29C Z T 30413050 
0908 O 3E1E | OC /3E1€ A 6C¢ 30412380 | 7 .  @A1D @ 620C — oC /620C R 3 30413060 
090C 0 366 0c 13616 E 6 30412390 _ “OQALE O 22FC oC /22FC i 41 30413070 
9900 0 2606 | oc 12606 ® PCT 30412400 | » Lak  OALF O O28C OC /02B8C CNT / 30413080 
O9DE © 1432 oc /1A32 8 D 30412410 7  . Q@A20 O 427C 0c 4427C Exc J | 3041 3090 
@Q9DF O 1222 oC 41222 F l 30412420 ee, * 2  0A21 0 823C . oC 4823C CUN A : 30413100 
09EO 0 0242 ~~ OC 10242 CNT EXC 30412430 . OA22 © C225 _ oc 10225 ( BLACK 80413210 
0961 0 6252 if oc 16252 Re Oo 30412440 nate ¢ 0A23 0 29FF | 0c /29FF RED a oa 30413120 | 
09E2 0 725A 7 OC 47258 a kK 30412450  OA2% 0: FFFF : oC /FEFF 304232130 
09E3 8 4666 OC 44666 GTR Q 30412460 7 SIEKTSSTSKRESRKKATCKKEKTSECRKSEKEKLSCKCKCSEKSSSESSSTESKYSRSS : 30413140 
O9E4% GO S6T6 DC $5676 e ® 30412470 Tor. bg SERESERERTSSEKSSEREEESR ESSE SSLHSS ES SESEESES SORES | 30413150 
O9E5 0 SETE nee pc —~f#SETE Lt J 30412480 | eer ‘oe * | .  ., de: a 30413160 
O9E6 O BEDE DC ~ /BESE uoR T 30412490 | - . . so | PRINTER OUTPUT STATUS = 30413170 
 09E7 0 B696 DC 18696 vy xX 30412500 7 a _ | * | TABLES | 30423180 © 
—Q9E8 0 AbB6 7 . OC 7A686 Y QSN 30412510 a 7 F es | — PRINTER NO O a 30413190 
O9E9 0 9AaB2 : OC /9MB2 S$ ou 30412520 wa. 0A26 0000 .  .88SS E€ O . ' LABEL 30413200 
' QO9EA O 92A2 - Oc /92A2 w #i2 30412530 wh _ .0A26 1 OB8FA | PTRO OC TACAR WORD POINTER  * A~OR 30413210 
- 09EB 0 82C2 | oc 482C2 CLAN ® 30412540 | - QA27 0 0002 0c 2 TEST POINTER  RTN 30413220 
O9EC 0 E202 | ' Oc /E2D02 QTE SMI 30412550 a | QA28 0 8000 | OC 78000 PTR STATUS .  $TS 30413230 
Q9ED O F2DA 7 OC /F2DA LNT + a 30412560: ) i | B . 7000 SELECT KBD 30413240 | 
O9EE 0 CoEe . oc /COE6 LOR * Sy ae! 30412570 % /C000 © READ KBD NEXT as 30413250 
O9EF O Db6F6 : Oc /D6F6- s ) | 30412580 | e /FCOO-FFFE COUNT FOR INTERRUPT 30413260 
‘09FO 0 DEFE | oC /DEFE. LES ¢ | 30412590 ) * /FRFF LOST INT ERROR ———it*~s 30413270 
 09FL O 29FF | oc /29FF RED in 30412600 a * 4€000 WAIT TYP READ INTERT © 30413289 
- O9F2 0 FFFF : Oe JFFFE Fe es 30412610 | * /F000 WAIT KBD INT Fos 30413250 
a ’ ; 30412620 ‘Y a | . | 78000 IGNORE ; 30413300 
. 4 ee , : = 30412630 0A29 0 Bl1FF. we oc /B1FF NEXT PTR OUTPUT WORD OUT 30413310 
09F3 0 0001 | Twist oC l ITCNT : 30412640 ; - 0A2A 0 0001 : - oe 1 ITERATION COUNT —=ITR 30413320 
O9Fe 0 OS5FF . OC /BS5FE BLACK 30412650 | yo -0A2B 0 0001 2. oc i . SHIFT wORD SLT 30413330 
O9FS5 0 0002 | oc 2 : ITCNT ~ "30412660 | .  @A2C 0 C000 oc a WORDS PRINTED NOS 30413340 
09F6 0 B1C0 ~ OC 781C0 CR wos 2 30412670 | — ga20 0 «0000 | oc ) LAST ITCNT ADDR PT PAD 30413350 
O9F7? 0 3E80 oc /3€80 A » | - 30412680 32 OA2E 1 OA29 oc PTRO+OUT WRT 30413360 
-O09F8 0 7€40. = oc /1E40 3 $ 30412690 ! OA2F 0 0900 | | OC 40900 WRITE COMMAND a 30413370 
09F9 0 BE00 | DC /BEOO UDR o 30412700 0430 0 0000 OC 0 . PTR 30413380 
' Q9FA O FE20 DC /FE20 ( I 30412710. Be .0OA31 0 OFO] , 0c /OFO1] SENSE DSW COMMAND | 30413390 
O9FB O DE6O | OC /DE6O LES R 30412720 -0A32 0 0000 ; - OC - SENSE - NO RESET | SNR 30413400 
O9FC 0 9EAO | - oc /9EA0 tT 2 30412730 0433 0 OFOO | oc /0F0O : 30413410 
O9FD 0 SEEO oc 45EE0 Ll 9 30412740 _ 0A34 0 0000 oc KEY 30413420 
' QO9FE 0 1EDO —6OC”" /1EDO Cc 6 30412750 0435 0 OCO0 oc /0C00 SELECT KEYBOARD CHD. —-: 39413430 
 O9FF O 3690 | oc 43690. E Ww 30412760 = 3 _0A36 1 0A34 - oC PTRO*KEY . SEE 30413440 
OA0O 0 7650 — oc 77650 xn Oo 30412770 , ee .0A37 0 OA00 | — OC /0A00 READ KEYBOARD CMD | 30413450 
0401 0 6610 oc - £8610 vy oF 30412780 | - 0438 @ 0000 oc /0000 ERROR DSW WAS ERR 30413460 
0402 0 F630 OC - 7-630. » Oo 30412790 ) ~ 0439 0 0000 DC 70000 DSW SHOULD HAVE BEEN -- 30413470 
0403 0 0670 OC 70670 s © 30412800 a ae _O0A3A 1 OA3C | ROBS OC BITSw 30423480 
0A04 QO 9680 i DC /96B0 x U 30412810 . : ~ OA3B 0 3A00 oC /3A00 . -. 30413490 
‘0405 O S5S6FO : OC /56F0O P 4 30412820 | | —-- g@a3C O 0000 .. BITSW OC 40000 a 30413500 
— 00406 O 1608 oC 1608 6 2 30412830 Oe | _ | * | | 30423810 
0A07 O 2698 | oc 42698 | H 86S 30412840 | | a ae ; 30413520 
0408 O 6658 ; —6OC 46658 QoQ RK 30412850 | | @ KEYBOARD - CONSOLE SWITCH eae 30413530 
9009 0 A618 , oc /A618 v 8 30412860 | ) @ '-- " §TATUS ROUTINE oe oe 30413540 
OAOA O £604 DC /€604 e AT 30412870 e | 30413550 
OA0B 0 C644 oC 10644 LOR AND 30412880 i @ THIS ROUTINE PRINTS ANY 30413560 
OA0C 0 8684 OC 18684 QSN - 30412890 ) e CHANGE IN THE STATUS OF ' 30413570 
‘@0A0D 0 46C&' | oc 446064 GTR O 30412900 | * OF THE CONSOLE/KEYBOARD 30413580 
OQACE 0 O6E4 DC /06E4, Pct 6 30412910 | & SWITCH. IF NO CHANGE 30413590 
OAOF @ LAAS oc JARS 6 Y¥ 30412920 ») 8 1S MADE THEN NOTHING IS 30413600 
QA10 0: SA64 . eayea ge DC 5464 + #=+%«K Q 30412930 | . _ PRINTED. , ~ 30413610 
OAlLL 0 9A26 oC 19424 S$ 30412940 + * =~ | 30413620. 
DATE O2JANG6 15N0V66 15JUN6T : Lao — . PROG 10 0364<2 | | DATE O2JAN66 15N0V66 15JUN67 : PROG 1D 0304-2 
EC NO. 415490 419643 . 20317 os ae a PAGE 10 | ) EC WO. 415490 419643 420317 | i PAGE | | 104 
=) 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEN 


1131 KEYBOARD-PRINTER TEST 


0OA3D 
OA3E 
OA3F 
0A40 
OA42 
0A43 O} 


oooocso 


0a45 0 
OAS6 O01] 
0A48 0 
OAa49 01 


OA4B 01 
OASD O01 


OA4SF O 
OA5O QO} 


OA5S2 00 
OAS O 
0a55 0 


OA56 0) 
OA58 O 
OAS9 01 
OA5B O 
OASC O 
OAS5SD O 
OaSE O 
OASF OO 
OA61 Ol 
0OA63 O 
OA64 O 
OA65 O 
OA66 Ol 
Oa6s O 
OA69 Ol 
OAcB O 


oaec Ol 
OAGE O 


OAGF 


0A70 
0A7l 
OAT2 
OA72 


OAT 
OAT6 


“Oo e060 © 


OATT 


=] 


i 


OAT9 
OATA 
OA7B 
OaT7C 
OA70 


OATE 
OATF 
0as0 


ow © 


oae) 
Oas2 
oas3 


oO 


DATE 
EC NO. 


0000 


O8F3 
FO3E 
€4000A80 
E83C 
«C980A3D 


OS8EC 
E4000A80 
0035 
4C200A56 


C4000641 
0400050D 


1010 
0400085C 


6500A000 
Cco2c 
TOA 


44000812 
1810 — 
C40005E0 
18C 
4820 
1081 
000} 
65000000 
C4000858 
4810 
6101 
6901 
C500084E 
DOBD 
C400085A 
DO&D 


600005E0 
osc7 


cols 


DOOC 
6986 
1010 
0008 


44800163 
OATS 


4€00065C 


0000 
0000 
0000 
Gooo 
0000 


0060 
OATF 
1000 


- OAB2 


5A36 
AG1A 


O2JAN66 


415490 


SENSE DEVICE STATUS 
CHECK SWITCH SETTING 


RETURN IF NOT CNGED 


SENSE DEVICE STATUS 


BR JE IN CONSOLE 


SET ROUTINE NO. 


SET TO SELECT KBD NEXT 
KEYBOARD MESSAGE | 
GO PRINT THE SWS 


TERMINATE KBD ENTRY 


CHECK IF ANY KBD ENTRY 
BR IF TABLE EMPTY 
SET TO LOOP RIN 1 


SET OR CLEAR LOOP RTN 
DESELECT KEYBOARD 


CONSOLE MESSAGE 


SAVE MESSAGE 
SET PRINTER STATUS 


RESET FIRST INDICATOR 


SSECSSCLSECKSSHSSSE CSAC SSSSSEESSEKSSSSSESESSSSL SCALES 


* 
ADRS OF MESS * 


SHSSCHESCSTKSKSSH SSSR SSHSSHSSCOSSKSREKEEKE SSE EEES 


SWSET OC . 
x10 SNR*PTRO 
EOR LAST 
AND Lt «1000 
OR FIRST 
BSC 1 SWSETet- 
2 
X10 SNR+PTRO 
' AND tL kK1000 
Sto LAST 
BSu tL SWSCoZ 
s 
‘0 tL TWLVE 
STO t RIO 
s . 
SLA 16 
STO LL ANY*+3 
3 
LOx t1 /A000 
LO KBMES 
“Ox SwWSP 
. ; 
SwSC 68S] tL ENDM 
SRA 16 
LD tL Swi 
RTE 1 
BSC z 
SLT 1 
sto s+} 
LDX tl /0000 
LO tL ANY?+2 
BSC - 
LOx 11 
SwSD STX 1 RTN+PTRO 
LO Ll FUNR 
STO ADOR+PTRO. 
LO tL ANY+1 
STO OUT¢PTRO 
= 
SwSE STX tl Swi 
X10 SEE+PTRO 
* 
LD CNMES 
- 
SwsP STO LOGM+4 
STX 1 STS+PTRO 
SLA 16 
STO FIRST 
BSI I LOG 
OC LOGM 
8sc ut 603 
s : . 
toca 0C 40000 
oc £0000 
OC 40000 
—6hOC 40000 
oc 40000 
s 
s 
tasTt oc 40000 
FIRST OC FIRST 
K1000 OC 4/1000 
s 
KBMES OC KBMESO) 
oc /5A36 
OC JAGLA 
15SNOV66G 861 SSUNOT 
£19643 420317 


RETURN TO MAINLINE 


LAST KBD/CNSL SW SET 
PROG RESRT INDICATOR 
CONSTANT 


KEVBOARD 


PART NO. 


PAGE 


30413630 
30413640 
30413650 
3041 3660 
30413670 
30413680 
30413690 
30413700 
36413710 
30413720 
30413730 
30413740 


30413750. 


30413760 
30413770 
30413780 
30413790 
30413800 
30413810 
30413820 
30413830 
30413840 
30413850 
30413860 
30413870 
30413880 
30413890 
30413900 
30413910 
30413920 
30413930 
3041 3940 
30413950 
30413960 
30413970 
30413980 
30413990 
3041 4000 
30414010 
30414020 
30414030 
30414040 
30414050 
30414060 
30414070 
3041 4080 
30414090 
30414100 
30414110 
30414120 
30414} 30 
30414140 
30414150 
30414160 
30414170 
30414180 


30414190. 


30414200 
30414210 
30414220 
30414230 
30414240 
30414250 
30414260 
30414270 
30414280 
30414290 
30414300 


PROG 10 


PAGE 


—- 


2191240 
hl 
\ 
bj } 
} 
\ 
: 4 
| 
] 
, *y 
. ‘)y 
> 
0304-2 
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1131 KEYBOARD-PRINTER TEST 


OAB4 
OA85 
OA8B6 
OA87 


OA88 
OA89 
OASA 
OA8B 
OAS8C 
OasD 


OASE 


DATE 


EC NO. 


oeoooor eoceo 


523€ 
6232 
8100 
FFFF 


OA89 
1652 
TO9A 
525E 
3600 
FFFF 


0643 


O2JAN66 
(4154690 


OC /523€ 

OC 16232 

Dc 48100 

OC /FEFF TERMINATOR 
e : 
CNMES DC CNMES+} 

Dc /1E52 CONSOLE 

OC / 769A 

oc /525€ 

oC 13600 

Oc /FFFF TERMINATOR 
SSESAIETCSISSSSSSCSSSCSEKSESKSSESKSSESSKESSESCKRKASKESSS 
S 

END TYCUS 
15NOV66 = 1 SJUNGT 
419643 420317 


PART NO. 2191240 


PAGE 


30414310 
30414320 
30414330 
30414340 
30414350 
30414360 
30414370 
30414380 
30414390 
30414400 
30414410 
30414420 
3041 4430 


— 30414440 


PROG 10 


PAGE 


lla 


0304-2 
LIA 
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166 MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM part NO. 2191240 - ., % -° -> [BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1230 SYSTEM PART NOe: 2191240 
tle _ | | PAGE es a he 3 a ie ERB oO eg nee S | PAGE: 12a, 


1131 KEYBOARD-PRINTER TEST 1131 KEYBOARD-PRINTER TEST 


nee REFERENCE piotite KEFFF 0773 0620,062E ,0743,0753,078C ,0797 
KEY OOOE 0793.0780,0785,076A-07C120A36 
SYMBOL VALUE ~ REFERENCES ag KEYBD O7A3 0685 
AOR 0000 O6DE »06E3 0068: KEYER 0636 0602 .0609,0629 
ALL 0734 O7ZE KEOOO 0844 O5SF6,07TE9 
ANY 0859 061540618 »064B y065A7065E 1 07E3,07E5 10802, 0806,080D, | KFFE? Oo7CB O7FB 
ae 0819081920010, 00sr eOR2 20S Zey OR chs CASEyOnoteanels KFFOO 0770 0713 
i 2 0069 | | KFOOO O7CF 05F1,0789 
AUCAR 0974 0854 KF 800 O69E O68F 
BASIC... 0735  - O72a KOCcOO O76E 0754,0759 ~ 
BEGIN 0160  0000,0643 KOOO1] O69F 0681 .0684 
BlTSw . OA3C 06B9,0A3A KoOOs O7CE 0828 
BSPSE 07CO osoF K1000 0A80 0A40,0A%6 
‘BSYOK 0758 O75E | K4200 0638 062D,0635 
CRMPRE -. 0700 0781 K8000 O63E 0622 .0628,0779 
. CNMES OA88 OA6F pOA8S LAST OATE OA3F,0A48 
 CNVRT. O7AE O784 . LCASE 0927 0851 
-. COLOR 0943 0852 LOG 0163 9000,0A74 
COMIN OSE7 0639 ¢073A,0781 90 7F2 LOGBY 0167 0736,07EE 
COMIX 0639 061D,062370630 LOGM OA7T9 0A70,0A76 
COomi3 OSFD O5SF8 LOWER O7C7 C7C5,0702,0708 
-DSWAS O76F 0742 60746,0788,0788 ,078F MARK 06A0 0755 
DSwBS 0772 077690777 ,0795,079A MARKE 0731 0720 . 
‘DSWBY 0760 0752,0757 MARKG O06E3 06A6,070E 
-OSwWIT 0630 . ; O5EAsO5FF ,06075061F,0625,062C 0632 MARKL 06E5 C6D2 
ELVEN 0840 0604,06A8 MARKN 0712 0709 
. EMESG. 0845 07BE »0834,0835,0838,0838 MARKP O6FD 06E7,06EE,O6FC 
END. 0164 0000 »0000»0000»0000+0876 MARKQ O6FF O6E8 
 ENDM . 0812 0831,0A56 MARKR 0701 O6E9 
.-. -ENDM1] — 0821 . 0818 HARKS O70A — 0706 . 
ENDM2 0829 0816 MARKT 0684 06a0 
.. ENOM3 = 00828 ‘0828 MARKU - 0685 O6AC » 0684 
-ERIND 0640 0618, 0638,0640,066C+0760 MARKZ O6FC O6F6 
ERLCK 0166 MARK 1 068B 06C4,06C9 
ERR = 0012 0637,0762,0768 | MARK2 06cB 0608 
- ERROR 0162 0000,0836 MARK 3 06CD 0728,072F 
-ERSE O7F9 0788 MARK O6CE 0733 
-ERSEA O7CC O7F9,0TFA MARKS 06D9 0714,0726 
ERSE1 0809 O7FF MLSCF O5E5 0698 y O6AE , 06F 8, 0840 
€ERSE2 O80F 0808 NCAP 07C8 0786 
-ERStC 9 -07C9 0789 NOCF o7cs 0787 
EXEC3 068D 0678 NOIN o775 0688 
EXEC? 0693. O7A1l NOS j§ 0006 0663 ,06E0,070A,070C,071C 2071 
EXECS 0696 0687» 068A,06CA, 0714 OuT 0003 060390712,07D6,08i0,OAZE,GAGB 
— €XLT O7E9 O70F,O7EC PAD 0007 0664,06D8,06D0,0720-S721 | 
FIRST. = OATF 0646 ,0A42 »0AT3,0ATF POSWX 0840 074E,07FO | 
FUND 0858 0734,0825,0829 PID - @5DC 0645: | 
-FUNR |. O84E 06D4 ,.06D9,0734,0A66 PRCON 066C 066B 5 V696,0769,0TTFeO0T9IBSOTFT 
 §0200 O772 0796,079C PROSW 0833 0744 9075C .0765,077D0s079F pO 7TA9,07C2,083E 
GO. 0646 O5DE,05E3,05E4 PTR OO0A 074190751 90775 sO07T8TeOT9IGLOTAS © 
.603  O65C OQaT? PTRO OA26 05E 8 50648, 965C 5 C6745 0668 90694, 06CE, 06E3,06E5. OGEA, 
| . 069C Dede eer eOCe NOt ere Oroe etl Tce. . Bee ce eee ern on teenneainest 
ILO O1LTA. 0000 | 0468» 0A6ByOAGEsCATL 
IL) = sO BA e000 RAD O50E 
3L2 sé A ~ 0000 RDBS  § @A3A —-06BT 
Its. OLAA 0000 RDY2 074C 0738 
«Le  @1BA 0000 READY 0736 0691 .074C 
INERR O75F 0660 . ; RED] = =60909. 0821 . 
TR —_ (0004 0660,060640716,0719,0723, RESTO 0690 067740693 
KaOQOO 063C OSFB,05FD, 0608 : RID | 0500 O64F 5 O66F ,06AA 40600 06EC 1 06F2 1 0A40 
KBDRQ -° 0603 OSED. RLCF 0168 
 ®B8DSV «062A OSF3 ROCK O98F 0855 
4BD2 O60A 0604 ROLL - O9Cl 356 
KBEOO 0642 0608 RQOKB 018C 0000,0783 
KBMES 0OA8B1 - 0A54,0481 | RQTY 0188 0000,073C,07F4 : 
| KCNSL O774 0600, 0626, 0633907470756 50778 ,0790,0798 | RTN 0001 O60E » 06CE,06E5,Q06EA, O6F0, OAG5 
CoD 0878 OTAE 7 | a 7 ; | SEE 0010 060C .07A3,@A6E : ss 
DATE 02 JAN66 1SNOV66 8 15JUN67 | ee DATE O2JAN66 15NOV66 15JUN67 
EC ™O. #15490 419643 420317 |. 1G EC NO- 415490 419643 420317 
* B 
- 45 t x 


C ) 
om 
‘y : 
o 


- : \ : \ . : . 2 : : +) : . a ™ 5 Ps ™~ “ \ ; ec ~\ . . -. ™ ~) ; . r ~\ v . a __ i ~ a \ . ra vA ane | ea ~ # ~, or aaa 2 - ~ 2 a 
ed isso ; hay, Soe : é : "Swe : ee Lad —) So) ; ms oS : eo S = : . : Ses eu. ) ; ee - we —) a. SS 
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PAGE i3 
1131 KEYBOARD-PRINTER TEST 
SELC 0793 e78D 
SELC1 O79E 0792 
SELC2 0781 0682 ,07C4,07C6,07FC 
SFT O7EO 0708 
SULT 0005 0661 606E220703,0705 
StTwd O7CA 0613-0669,07D09,07ET»,CTFE,OBIA 
SNR 000C OA3E,0A45 
SPNDX 0959 0853 
START 0161 0000, 0694.06B2 406FA,0842 . 
STS 0002 05F0,.05F5,05FE,0608 7 061E +0628 2 0648 10676, 0688, 0690, 
0694,078A,07EB8,082C,0A71 
SVC 2688 O67E 
SVKB 0180 0785 
SWSC OA56 OA49 
SwSOD 0465 
SWSE Oaec , 
SWSET 0OA3D 0672,068D,0A43 
SwSP OATO 0A55 
SwO OSDF 
Swi O5E0 065 1 -0656,06A0,0728 » O082F »0A59 »GA6C 
Sw2 OSE1 
Sw3 O5E2 2 
TACAR OSFA O84F »0A26 
TBLI O7E7 0811 
TBLIS O7ES O7DE 
TBLIZ O7E3 O7E2 
TERM O5E6 0724 
TIMEX 084C 
Twist O9F3 0857 
TWLVE 0641 0600-0671 ,OASB 
TvcaDd 08B9. o7D0 
TYvcus 0643 OASE 
TYEND 0876 0678,06C8B 
TYPIT 0750 0744 
TYPSV O61E OSFC 
UCASE 090B 0850 
WROCT O7AB  0610-,0666,07TA6,07E8e0814 
WRT 0008 0750,07F6 
e 
DATE O2JAN66 15NOV66 15JUN6T7 PROG ID 0304-2 
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PAGE 


lo27 PLUTTcR FUNCTION TEST 


VATE 


cl NUe 


3e OPERATING PROCEDURE 


THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION, REFER T9 SFCTION 3.2.3 OF THE 1130 
DIAGNOSTIC MONITOR IT DOCUMENTATION. 


3o1*** PROGRAM LOADING 
STANDARD MGNITGR LOADING PROCEDURES APPLY 


THESE PROCEDURES ARE SUMMARIZED HERE. SFE DM USE PROCENURF FAR 
DETAILS. 


1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LFFT MARGIN. 
2e SET BIT SWITCH 15 OFF — LOAD AND GO | 
| ON —- TO HALT AFTER LOADING 


If HALT AFTER LOADING, SELECT PROGRAM 
_ OPTIONS THEN TURN OFF HALT SWITCH OR 

FOLLOW NORMAL RESTART PROCEDURE 

(SECTION 3.5). | 


3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
4. SELECT PROGRAM OPTIONS: IF DESIRED. 
KKK KK 
3.2%** PRUGRAM UPERATION. 
3.21 PROGRAM CONTRUL — FUNCTION 0 


1. SET SWITCHES 0-7 TQ Ol. | 
2- SET SWITCHES 8-15-AS DESIRED. 


8 RESTART. 
9 ROUTINE START MESSAGE 
10 LOCK ON FUNCTION 
ll LOOP PROGRAM 
12 LOOP ON ERROR 
“13 BYPASS ERROR PRINTOUT 
14 HALT ON ERROR 
15 HALT 
3. PRESS INT REQ KEY. ON: CONSOLE. 
e 8 - ee: a 
— OZJAN66-. 15NUV66 .--OLAPR69 .OIMAY69 ©. PRONG ID 


“415490 419643 571036 571036B PAGE 
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PAGE. 2 
1627 PLOTTER FUNCTION TEST 
3.2.2 ROUTINE SELECTION - FUNCTION 1 
THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUT INE IS SELECTED 
OR ROUTINE SELECTION IS RESET. 
1. TO SET ROUTINE SELECTION 
Ae SET SWITCHES 0-7 TO 41. | 
Be SET ROUTINE NUMBER IN SWITCHES 12-15. 
RTN DESCRIPTION | 
[. ¢ PEN UP-PEN DOWN OCTAGON TEST. NORMAL ROUTINES- 
2 REGISTRATION TEST - THE PROGRAM STARTS WITH 
3 SWING TEST ~ ROUTINE 1, RUNS EACH 
4. * STRESS TEST « ROUTINE IN SEQUENCE 
- THEN TERMINATES AFTER 
« ROUTINE 4. 
5. * SELECTION COMMAND « OPTIONAL ROUTINES 
7 - THESE ROUTINES RUN 
- ONLY IF SELECTED. 
o# _ REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. | 
Ce PRESS INT REQ KEY ON CONSOLE. 
2. TO RESET ROUTINE SELECTION, SET AS IF SELECTING ROUTINE ZERO. 
| 7 | 
3.2.3 PROGRAM OPTION 
ROUTINE 5 — SELECTION COMMAND 
AFTER SELECTION BY FUNCTION 1, THE CONTROL COMMAND DATA IS TAKEN 
FIRST FROM BITS 0-5 AND THEN FROM 8-13. 
ACTION OR MOTION BITS 
LOWER PEN TO PAPER . O OR 8 
UP (PAPER MOVES DOWN) 1 9 
DOWN (PAPER MOVES UP) 2 10 
RIGHT 3 1l 
LEFT 4 12 
RAISE PEN FROM PAPER 5 13 
he pe a ae ae 
3.3*##* PROGRAM HALTS 
3e3el NORMAL HALTS 
eHALT NO. DESCRIPTION - RESTART ? 
.(B REG). ; ACTION : 
- 3001 . PROGRAM STOP OR ADDRESS STOP . = PRESS START : 
« 3002 . HALT ON ERROR -  PDISPLAY MODE-PRESS START 
oe | - RUN MODE-PRESS START 7 
Re | 
DATE Q2JAN66  LSNOV66 ~—OLAPR69 OIMAY69 PROG ID 0305-* 
EC NU. °° 415490 419643 571036 571036B PAGE 2 
ox e some 7 a ee _ = a eZ 2 a aS a 
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| | PAGE 
4627 PLUTTER FUNCTIUN TEST 
3.3.22 ERROR HALTS 

eHALT NO. DESCRIPTION ; RESTART é 
. 30Fl CHECK SUM ERROR ON FIRST » RELOAD : 
: : CARD OF LOADER : | ‘ 
- 30F2 . READER DSW ERROR WHEN ~ RELOAD : 
; : LOADING LOADER ; ‘ 
. 30F3 . CARD 2 OF LOADER DID NOT - RELOAD : 
- 30F4 . CAN NOT CLEAR CORE - DUE TO . - 
‘ ; ERROR IN ADDRESSING UPPER ‘ ‘ 
: : CORE. : : 
- 3UF5 . READER CHECK WHEN LOADING » NPRO THEN PLACE CARDS . 
: ‘ MONITOR GR TEST PROGRAM - RUN OUT IN FRONT OF - 
: é - | | | . REMAINING DECK AND PRESS. 
° e e START ° 

.30F . MONITOR DID NOT LOAD | » RELOAD : 
- 30F7 . CHECK SUM WHEN LOADING - — RELOAD ; 
: : MUNI TOR : “s 
- 30F8 . READER NUT READY ~ - MAKE READER READY ° 
. 30F9 «. INVALID INTERRUPT WHICH WILL . PRESS RESET AND START. 
s e NOT RESET . -) - , e 
. 30FA . CONSOLE PRINTER HANG UP - «~~ FIX THE CONSOLE PRINTER . 
: : BUSY WILL NUT GO OFF : : 


VATEc 
cu NL. 


OR toto ok ok 
3.4%#* PRUGRAM TERMINATION 


IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END UF ROUTINE 42 ROUTINE 5 WILL ONLY RUN IF SELECTED. 


IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 
eK KK 
305%*** RESTART 
Le SET SWITCHES 0-7 TO Ol. 
2e TURN ON SWITCH 8. 
3. SET DESIRED CGNTROL IN SWITCHES 9-14. 
4e PRESS INTERRUPT REQUEST KEY. 
KEK EKSE KK EK 
Uc JANO6 15NOV66 OLAPR69I OIMAY69 PROG ID 
415490 419643 571036 571036B PAGE 
—\ ™ ae 


PART NO} 


2191238 
2A 


0305-* 
2A 














yet —~., 
a \, ‘ 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1627 PLUTTER FUNCTION TEST 


DATE 
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OC 
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PART NO. 2191238 
PAGE 3 


4e PRINTUUTS 


ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN GGRR 
UR 
EPPNN CGR 


401 9%* 


AQG00 


AuuCl 


AU5CO OORR 


AUSC5 CCRK 


AAAA (MESSAGE) 


AAAA (MESSAGE) 


WHERE IVENTIFIES STATUS MESSAGES 
IDENTIFIES ERROR MESSAGES 
PP IS THE PLO OF THE PROGRAM CAUSING THE MESSAGE 


TT > 


THIS WILL BE EITHER OO FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 

OB FOR MESSAGES ORIGINATED BY 

THIS PROGRAM. 


NN IS THE MESSAGE SEQUENCE NUMBER 
KR IS THE ROUTINE NUMBER 
AAAA IS THE ADDRESS OF THE ROUTINE 
MESSAGE IS ANY VARIABLE INFORMATION 


STATUS MESSAGES 


NUM PID ADRS RELF LO 
XXXX XXXX KXXX XXXX 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 


SWS. PID 
XXXX XXXX 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLEO FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. | 


AAAA 


ROUTINE START MESSAGE — IF SWITCH 9, FUNCTION O- IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 


NRDY 


PLCTTER POWER IS TURNED OFF. 


AU5CB GCRK 


U2 JAN66 
415490 


PROG HALT 
INDICATES PROGRAM HAS BEEN HALTED BY BIT SWITCH 15 FUNCTION OO 
BEING SET ON. SET BIT 15 OFF TG CONTINUE. 


15NOV66 
419643 
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571036 


OIMAY69 


PROG ID 0305-* 
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VATE 
tC Nb. 


4e2*** ERROR MESSAGES 


EUUOL 


EQ003 


EUGO4 


U2JNAN6E 
415490 


THe DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IFA 
ERROR [S DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE GPERATOR TCO ANALYZE THE DSW 'FOR THE 
SPcCIFIC PROBLEM AREA. 


Soi a CK i to i kkk iio a tof goak a tok det ioieto tot teak eae 


x THE PLOTTER DSW * 
Ke a — eee * 
x * 
* BIT * 
* 0 PLOTTER RESPONSE * 
1 NOT USED # 
+ 2 NOT USED # 
* 3 NOT USED * 
* 4 NOT USED 
+ 5 NOT USED * 
* 6 NOT USED * 
* 7 NOT USED # 
* 8 NOT USED 3 * 
* 9 NOT USED * 
* 10 NOT USED “ 
* 11 NOT USED * 
x 12 NOT USED * 
* 13 NOT USED * 
* 14 BUSY * 
* 15 NOT READY * 
x x 
So coda i toi oii tok dick doko dtodd tok de kde tek 
SWS INVLD 


—XXXX 


THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 


OVR CORE 


THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 


CK SUM 


A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERRGR OCCURS UNDER ANY DF THE FOLLOWING CONDITIONS. 


1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 
2e THERE IS AN EXTRA CARD IN THE DECK. | 
36 THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 
42 DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. | 
Se DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 


WHEN THIS ERROR OCCURS ATTEMPT TC RELOAD THE PROGRAM. 
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EQ005 


E0501 OOOR 


E0502 OOOR 


E0503 OOOR 


E0504 OOOR 


DATE O2JAN66, 
EC NO. 415490 


PART NO. 2191238 
PAGE 4 


OOON XXXX 


THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 

WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSE. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 


AAAA WAS S/B. DSW 
XXXX 0000 


STATIC DSW ERROR. THIS DSW IS SENSED BEFORE GIVING A CONTROL COMMAND 
TO THE 1627. ANY BITS ON INDICATE AN ERROR. IF BIT 15 IS ON (NOT 
READY), CHECK FOR 1627 POWER ON. 


AAAA WAS S/B BUSY DSW 

} XXXX 0002 | 

BUSY DSW ERROR. THIS DSW WAS SENSED IMMEDIATELY AFTER A CONTROL 
COMMAND WAS GIVEN TO THE 1627. IT SHOULD SHOW THE 1627 BUSY. NO 
OTHER BITS SHOULD BE ON. | 


IF THIS ERROR OCCURS DURING OVERLAP SEE NOTE ON I/O TEST 
INDEX PAGE, P/N 2191291. | 


AAAA : DSW NO INTRPT 
XXXX 


NO INTERRUPT WAS RECEIVED AFTER A CONTROL COMMAND TO THE 1627. “THE. 
DSW WAS SENSED AT LEAST 2 SECONDS AFTER THE 1627 COMMAND. 


IF A BUSY DSW ERROR (E0502) IS ALSO INDICATED, THE CONTROL COMMAND 
WAS NOT RECEIVED BY THE 1627. 


AAAA WAS S/B. INTRPT DSW - au 

INTERRUPT DSW ERROR. THIS DSW WAS SENSED IN INTERRUPT. IT SHOULD 

SHOW THE RESPONSE BIT ON AND ALL OTHER BITS OFF. 

15NOV66  OLAPR69 QIMAY69 PROG ID 0305-* 
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5. COMMENTS 


5e1*** ROUTINE 1 


5. 2*** 


5.3 *** 


U2JAN66 
415490 


x 


{ PEN UP-PEN DOWN OCTAGON TEST ) 


THE PURPOSE OF THIS ROUTINE [IS TO TEST THE CAPABILITY OF THE PLOTTER | 
TO EXECUTE THE PEN UP AND PEN DOWN PLOTTER COMMANDS. IN THIS ROUTINE, 
AS IN THE OTHER PLOTTER PATTERN GENERATING ROUTINES, AN ADDRESS TABLE 
IS USED TO SELECT THE CORRECT PLOTTER COMMANDS. THE ADDRESS TABLE, IN 
TURN, POINTS TO A PAIR OF COMPUTER WORDS. ONE WORD CONTAINS A NUMBER 
WHICH INDICATES THE NUMBER OF TIMES THE OTHER WORD ( THE PLOTTER 
COMMAND ) IS TO BE EXECUTED. | 


THE PATTERN PLOTTED IN THIS FUNCTION TEST CONTAINS TWO ADJACENT 
OCTAGONS, WHOSE SIDES ARE ONE AND ONE HALF INCHES IN LENGTH. OCTAGON 
NOw 1 ( LEFTMOST OCTAGON ) IS PLOTTED IN A CLOCKWISE DIRECTION. 
OCTAGON NO. 2 ( RIGHTMOST GCTAGON ) IS PLOTTED IN A COUNTER CLOCKWISE 
DIRECTION. 


THIS ROUTINE IS DESIGNED SO THAT, IF A PEN UP COMMAND IS NOT EXECUTED 


AS IT SHOULD BEs A LINE WILL BE DRAWN IN THE INNER PORTION OF THE 


OCTAGON. IF A PEN DOWN COMMAND [IS NOT EXECUTED, A SIDE OF THE OCT- 
AGON WILL BE MISSING. FIGURE 1 SHOWS AN EXAMPLE OF THE OUTPUT OF 
THIS ROUTINE. 
ROUTINE 2 REGISTRATION TEST 

| Ss 
THE FUNCTION OF THIS ROUTINE IS TO DETERMINE IF ANY ADJUSTMENTS ARE 
NEEDED IN THE PEN OR DRUM MOVEMENT MECHANISMS. FIGURE 2 SHOWS THE 
PATTERN GENERATED BY THIS ROUTINE. IF ANY OF THE LCINES FAIL TO 
INTERSECT, MECHANICAL ADJUSTMENT: OF THE PLOTTER [5S NECESSARY. 

| 


ROUTINE 3 SWING TEST 


THE PURPOSE OF THIS ROUTINE IS TO TEST THE ABILITY OF THE PLOTTER TO 
PLOT LONG LINE SEGMENTS IN VARIOUS OIRECTIONS. THE PATTERN GENERATED 
BY THIS ROUTINE IS SO DESIGNED, THAT IF PLOTTER COMMANDS ARE NOT EX- 
ECUTED OR EXTRA COMMANDS ARE EXECUTED, THE CORNERS OF THE PATTERN 
WILL NOT JOIN. THIS TEST WILL ALSO SHOW UP ANY MALADJUSTMENT IN THE 
PEN OR DRUM MECHANISM. 


THE METHOD USED IN GENERATING THE PATTERN IS AS FOLLOWS, 


Ae THE LEFT AND TOP SIDES OF A SERIES OF SQUARES ARE DRAWN AS A 
CONTINUOUS LINE, VARYING IN SIZE FROM 10 TO 2 INCHES. 


Be THE RIGHT AND BOTTOM SIDES OF THE SERIES OF SQUARES ARE 
DRAWN IN ONE QUARTER INCH LINE SEGMENTS, JOINED TOGETHER, AND 
TOTALING THE LENGTH OF THE LEFT AND TOP SIDES. 


Ce. ON COMPLETING THE PLOTTING OF THE SQUARES, LINES ARE DRAWN 
( BOTH SEGMENTED AND CONTINEOUS ) THRU THE CORNERS OF THE 
SQUARES. ALL OF THESE DIAGONAL LINES SHOULD INTERSECT THE 
CORNERS OF THE SQUARES PERFECTLY. 


FIGURE 3 SHOWS THE PLOTTER PATTERN GENERATED BY THIS ROUTINE. 
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. ce a PAGE SA 
ON 
Pee, Werner ot 1627 PLOTTER FUNCTION TEST 
5 4*** ROUTINE 4 STRESS TEST (WENDMILL PATTERN) 


THE PURPUSE UF THIS ROUTINE IS TO EXERCISE ALL UF THE MECHANICAL 

FUNCTIONS OF THE PLOTTER. THIS OBJECTIVE IS ACCOMPLISHED BY PLOT- FIGURE 1 PATTERN FOR PEN UP/PEN DOWN TEST | 
TING A PATTERN OF TRIANGLES, ROUGHLY RESEMBELING A WINDMILL. EACH | 

SIDE OF THE TRIANGLE CONSISTS OF A SERIES OF SHORT SAWTOOTH-LIKE SEG- 
MENTS, WHICH TESTS THE ABILITY OF THE PLOTTER TO PLOT SHMRT LINE 
SEGMENTS WITH ABRUPT CHANGES IN DIRECTION. A SET OF FIVE TRIANGLES 
IS PLOTTED, THE AXIS IS THEN ROTATED 90 DEGREES AND FIVE MORE TRI- 
ANGLES ARE PLOTTED IN THE SAME MANNER UNTIL» FINALLY, FCUR SETS OF 
TRIANGLES HAVE BEEN PLOTTED. WHEN THE TRIANGLES HAVE BEEN PLOTTED, A 
“LINE IS DRAWN THRU THE INNERMOST POINTS OF THE TRIANGLES... THE RE- 
SULTANT PATTERN THEN APPEARS AS A WINOMILL WITH A DIAMOND SHAPED 
PATTERN CONNECTING THE INNER POINTS OF THE TRIANGLES. THE DIAMOND ~ 
DESIGN SHOULD INTERSECT ALL OF THE INNER POINTS OF THE TRIANGLES IF 
THE PLOTTER IS ADJUSTED CORRECTLY. FIGURE 4 SHOWS THE PLOTTER PAT- 
TERN GENERATED BY THE ROUTINE. | 





5.5%#k ROUTINE 5 SELECT COMMAND 


ROUTINE 5 WILL NOT RUN UNLESS SELECTED. THIS ROUTINE ALLOWS THE 
FIELD ENGINEER TO EXECUTE ANY DESIRED COMBINATION OF TWO PLOTTER 
COMMANDS. ONE COMMAND IS SET IN SWITCHES 0-5, THE OTHER IS: SWITCHES 
8-13. THE SWITCHES ARE READ DIRECTLY BY THIS ROUTINE. THUS ANY 
CHANGE IN SWITCH SETTING WILL RESULT IN AN IMMEDIATE CHANGE IN 

~THE COMMAND. THE PROGRAM WILL’ RUN IN THIS ROUTINE UNTIL ANOTHER 
“ROUTINE IS SELECTED. . 


oe APPENDIX 


THE FOLLOWING PAGES CONTAIN THE PLOTTER OUTPUT PATTERNS. 





-FIGe 1 PATTERN FOR PEN UP/PEN DOWN TEST | | | 
FIG. 2) PATTERN FOR REGISTRATION TEST | ys ge . SCALE: 3/4 = 1 
“FIG. 3 SWING TEST PATTERN | : a on | - | 

FIG. 4 STRESS TEST WINOMILL PATTERN 7 - 3 ‘ : . 





FIGURE 2 
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FIGURE 3 SWING TEST - PATTERN FIGURE 4 STRESS TEST - WINDMILL PATTERN 
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| ae SCALE: 3/4 = 1 
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I/O TEST INDEX 


cy FROM CPU TEST 


AUN FUNCTION| SEF TABLE BELOW FOR | : DSK 


TeSTS FOR SUGGESTED OVERLAP Pid INITIALIZE 
UNITS TO BE SEQUENCE. 309 P/N 2191217 


TESTED 18 
OVERLAP 





INITIALIZE 
CE DISK PACK 


SEE NOTE 

AZOVE JHE 
I/O SUMMAR 
TABLE. 













| SELECTIVE 
RUN SCA NO ee TO 
TESTS , MINIM 
INDIVIDUALLY FAILURE 











COMBINATION 





IDENTIFY AND 
LOOP FAILING 
ROUTINE 


WO 





1SOLATE AMD 
REPAIR 
FAILURE 


SYSTEM 
1S OK 


& A 
, PID TIMING 
FINISH 
32F [P/N 2191229 


MAINTENANCE- 
CHECK 1442 


READ /PCH 
TIMING 











ron We ee 
334 ] KB/PRINTER 219124) 






300 








se fac Spee ete ace es aes 
305 | 1627 PLOTTER — i 
[1 Lt A [A SSSA 
a 
Toc igz paiwnee J aigizny | 
p3iu]23towpr fees | 
300 | 1403 PRiNnTER sf 2zusgs7— | 


30E | 2501/1442 - V 224355) EITHER PROGRAM BUT 
14h2 - VI, Vil 2191225 NOT BOTH | _— 


* WILL WOT OVERLAP WITH ANY OTHER SCA PROGRAM | 
irs AVAILABLE FOR CARD INPUT ONLY DATE APR 66 i JAN 67 
EC NO. 41I54908 =41BmgOC §=—-419643 





“f RELICATING LOADER 2501 | 3an | 3h0 | BASIC aes CARD LOADER FOR MONITOR II 


a 


NL NL 


4 





MONITOR CONTROLLED 1,0 TEST NORMAL OPERATION SUMMARY P/N 2191291 


1]. FOR PAPFR TAPE-MOUNT MONITOR TAPE IN TAPE READER AND MAKE READY. (THE RELOCATING LOADER IS AHEAD 
OF MONITOR ON THE MONITOR TAPE). PRESS STOP, RESET AND PROGRAM LOAD. MONITOR WILL LOAD AND STOP FORK 
LOADING THE NEXT 1/0 TEST TAPE. MOUNT NEXT 1/G TAPE, SET SWS O AND 8 ON FOR SINGLE 1/0 TEST OR SWS 
0,8,9 AND 15 ON FOR OVERLAP, AND THEN PRESS INTERRUPT REQUEST KEY. BRANCH TO ITEM 3. 


2. FOR CARD SYSTEM-PLACE RELOCATING LOADER, FOLLOWED BY MONITOR 11 AND 1/0 TESTS IN THE DESIRED RUN 
SEQUENCE IN THE CARD READER AND MAKE READER READY, 


A. TO RUN TESTS ON AN INDIVIDUAL TEST BASIS, PLACE A BLANK CARD AFTER EACH I/O TEST DECK. 

B. TO RUN TESTS IN OVERLAP MODE, PLACE A BLANK CARD AFTER THE LAST 1/0 TEST DECK. 

C. TO STOP MONIFOR AFTER ALL PROGRAMS ARE LOADED, PLACE BIT SW 15 ON BEFORE LOADING, 
PRESS STOPS RESET AND PROGRAM LOAD. 


3. A STATUS MESSAGE WILL PRINT OUT AFTER EACH 1/0 TEST 1S LOADED. THIS MESSAGE WELL INDICATE LOADING 
SEQUENCE NUMBER OF THE TEST, THE PROGRAM ID (PID) NUMBER, THE STARTING “ODRESS IN STORAGE AND THE 
RELOCATION FACTOR. 


4. CONTROL OPTIONS MAY BE ENTERED AT ANY TIME. THIS 1S FUNCTION O AND IS EFFECTIVE WHEN BIT SWITCH O 
AND | ARE OFF, {fF BIT SWITCHES 4,5,6 AND 7 ARE OFF MONITOR 1S ADDRESSED BUT WHEN THESE 
SWITCHES ARE SET TO A LOADING SEQUENCE NUMBER, THAT 1/0 TEST 1S BERING ADDRESSED, CONTROL OPTIONS 
AND SWITCH SETTINGS ARE; 


8B - RESTART 10 - LOCK ON FUNCTION 12 ~ LOOP ON ERROR (ONCE PER ERROR) 14 = HALT ON ERROR 
S - PRINT RTN ID 11 = LOGP OR PROGRAM 13 - BYPASS ERROR PRINT OUT 1S - HALT 


5. TO STOP ALL PROGRAMS, PRESS PROGRAM STOP, MON! TOR WILL WAIT (3001) AT ADDRESS O4OC. 
6. TO RESTART AFTER PROGRAM STOP, PRESS PROGRAM START. MONITOR HAS SAVED THE STATUS OF TESTS, 


TO STOP ANY ONE PROGRAM (WHILE OVERLAPPING), SET BIT SWS TO ONO] AND PRESS INT, REQ, KEY, f=LQAD 
SEQUENCE NUMBER 


8. TO RESTART ANY ONE PROGRAM, SET BIT SWS TO ONSO AND PRESS INTERRUPT REQUEST KEY. N = LOAD SEQUENCE NUMBER 
9. ERROR TYPE OUTS ARE EXPLAINED IN SECTION 4.2 OF EACH 1/0 DESCRIPTION. 
10. AS EACH TEST REACHES ITS NORMAL END A MESSAGE WILL BE TYPED OUT, FOR EXAMPLE XXXX -END, WHERE XXXX = PID, 


NOTE: THERE ARE TIME DEPENDENT DEVICES WHICH MUS, BE SERVICED WITHIN A SPECIFIED TIME LIMIT AFTER AN 
INTERRUPT OCCURS. IF THESE LIMITS ARE NOT COMPLIED WITH, DATA WILL BE LOST BETWEEN THE PRO- 
CESSOR AND THE 1/0 DEVICE. THESE TYPES OF ERRORS OCCUR WHEN ANOTHER DEVICE'S. PROGRAM KEEPS 
* CONTROL IN MAINLINE OR INTERRUPT ROUTINE FOR EXTENDED PERIODS OF TIME. 


PROGRAMS WITH A HIGH RATE OF INTERRUPTS MAY CAUSE OTHER PROGRAMS TO LOSE MAINLINE CONTROL. 
THIS LOSS OF CONTROL BETWEEN AN XIO READ, WRITE OR CONTROL AND AN XIO SENSE DEVICE MAY CAUSE 
FALSE DSW ERRORS. THIS TYPE OF ERROR SAYS THE DEVICE SHOULD HAVE BEEN BUSY AND NOT READY. 
THE PROBLEM IS THE DEVICE HAS COMPLETED IT'S OPERATION, DROPPED BUSY AND BROUGHT UP READY 
BEFORE CONTROL WAS REGAINED BY THE PROGRAM INDICATING THE ERROR. 


IF ANY OF THE TYPES OF ERRORS ABOVE ARE SUSPECTED IN OVERLAP, RUN THE FAILING TEST ALONE TO 
CHECK FOR TRUE ERRORS. 


1/0 SUPRMARY TABLE 


PROGRAM ROG | CORE OyER- RUN TIME 
RELOCATING LOADER - 1442 BASIC : 






















SPECIAL INSTRUCTIONS 
CARD i MBER FOR MONITOR 11 













PAPER ERE BQADER IN FRONT OF MONITOR 11 


MONITOR Ht | 300s | t60 fo wasic | PROVIDES BASIC CCNTROL FOR ALL 1/0 PROGRAMS. 
ol a Ee OR TT Ce re 
| 1627 PLoTTER (sEE NoTE) | 305 | 950 | ves | 6min | FOR KANUAL CONTROL SEF SECTION 3.2.3. 

| Disk INITIALIZATION sf 308 | 2300 | oo |S MIN | USE ONCE TO INITIALIZE FE DISK PACK. 

USE ONLY DISKS WHICH HAVE BEEN INITIALIZED. 
PAPER TAPE | | | 308 | 750 | ves | cain | TAPE MAY BE REPRODUCED BY FUNCTION | AND RIN ’H. 
1132 PRINTER | USE CARRIAGE TAPE WITH 16 OR FEWER PUNCHED HOLES. 

rN pre No Fe ULL PN 
12 TIMING TEST | 32r | 1650 | no | Nor Fixe | ENTER 1442 MODEL-8105,8106 OR 8107. 

Tiere ee | se 



















SCA INSTRUCTION F.T, 


SCA WRT/RD BUF, LINE NOISE DET, 1550 | oves=} itmin | 


NO RESET FAST PASS OPTION RUNS ONE (1) MINUTE. 


BUFFER TEST 30 SECONDS AND LINE LISTENING 10.5 
MINSTES 


SCA WRAP-AROUND TEST | 319 | 1800 | no | 5 MIN NG RESET, FAST PASS OPTION ONE MINUTE 

SCA TRANSHIT/RECEIVE 2050 | wo | NOT FIXED | TWO MINUTES 15 MIN. OPTIONAL TIME INDEFINITE 

SCA DISPLAY PROGRAM NOT FIXED | LOAD WITH RELOCATING LOADER 

2501/1442 - 5 F.T. 1405 NOT FIXED 
OD 






1231 OPTICAL MARK PAGE RDR F.T. } 314 | 900 | ves | NOT FIXED |USE CONTROL SHEET 
| 1403 F.T, USE CARRIAGE TAPE CALLED OUT IN SECTION 5.3 


SCA=BSC-PT-TO-PT 2500 NOT FIXED 
SCA=BSC-MULTI-PT 2500 NOT FIXED 


FEB 67 Jun 67 WAY68 SNOVES B8APROED _ PROG 1D 
h196556 RED 420317 20431 571005 571036 PAGE OA 
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| PAGE 0001 
PAPER TAPE READER/PUNCH FUNCTION TEST 
TABLE OF CONTENTS 
PARAGRAPH PAGE 
le PURPOSE. ee we ec ee eee eee ee ee cece eee ee eee 
261 PROGRAM PREREQUISITES | 
202 EQUIPMENT PREREQUISITES 
36 OPERATING PROCEDURE eoeenwneeeeeeeseeeee8 & @& @ ot ee @ 
301 PROGRAM LOADING 
302 PROGRAM OPERATION _ 
30201 PROGRAM CONTROL — FUNCTION O 
3.2.2 ROUTINE SELECTION = FUNCTION 1 
30203 PROGRAM OPTIONS 
3.3 PROGRAM HALTS 
303-22 ERROR HALTS 
304 PROGRAM TERMINATION 
3.5 RESTART 
he PRINTOUTS» « « « ec eeece ee @ e @ Pi ee ete ® ®@ 
4ol STATUS MESSAGES 
4eo2 ERROR MESSAGES 
5. COMMENTS 2 se ee ec cece ee eee ec eee woe ew eee oo 
5el TEST NO. 1 (PUNCH TEST) 
562 TEST NOw 2 (READER TEST). | 
5.3 TEST NO. 3 ( PUNCH/READ/COMPARE TEST) 
564 TEST NOw 4 (REPRODUCE-TAPES TEST) 
5.5 TEST NO. 5S ( PUNCH BIT SWS TEST ) 
be APPENDIX: 6. 6.6 ee: “@ 6 ee eR ee we ee eS Se Se ee ee SS SO 
6.1 SAMPLE TAPE 
le PURPOSE | | 
THE FUNCTION TEST IS DESIGNED (1) TO TEST FOR PROPER OPERATION OF THE 
PAPER-TAPE STATUS INDICATORS AND (2) TO TEST FOR ACCURATE DATA HANDLING 
BY THE PAPER-TAPE READER AND PAPER-TAPE PUNCH WHEN OVERLAPPED WITH 
OTHER ELEMENTS OF THE 1130 SYSTEM. THIS TEST MAY ALSO BE USED TO REPRODUCE 
TAPES. ; 
Ze PREREQUISITES 
20) 808 PROGRAM PREREQUISITES | 
1130 DIAGNOSTIC MONITOR II 
2.2988 EQUIPMENT PREREQUISITES 
le 1131 CPU WITH PROGRAM LOAD FROM EITHER ZARD OR PAPER TAPE READER 
2e 1134 PAPER TAPE READER AND/OR 1055 PAPER TAPE PUNCH. 
3. AT LEAST 750 WORDS OF AVAILABLE CORE STORAGE. 
DATE O2JAN66 O1LMAY66 15NOV66 15 JUN67 PROG ID 0308- 
EC NOe 415490 419643 420317 PAGE 0001 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 2191234 
PAGE OOO1A 
PAPER TAPE READER/PUNCH FUNCTION TEST 
3. OPERATING PROCEDURE 
THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM GPERATION ONLY. 
FOR OVERLAP OPERATION, REFER TO SECTION 36203 OF THE 1130 
DIAGNOSTIC MONITOR IJ] DOCUMENTATION.’ 
3-1%*¢s PROGRAM LOADING 
FOR THE CONVENIENCE OF *READER ONLY® SYSTEMS, THE TEST PATTERN HAS 
BEEN INCLUDED Of' THE END OF THE PAPER TAPE PROGRAM TAPE AND MAY BE 
IDENTIFIED BY COMPARING WITH THE SAMPLE TAPE. SECTION Gele 
STANDARD MONITOR. LOADING PROCEDURES APPLY 
THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 
le SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGINS 
2- SET BIT SWITCH 15 OFF — LOAD AND GO 
: ON =- TO HALT AFTER LOADING 
IF HALT AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 305)- 
3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
&e SELECT PROGRAM OPTIONSe IF DESIRED. 
Seecese 
3.2%5% PROGRAM OPERATION. 
30201 PROGRAM CONTROL - FUNCTION O 
1. SET SWITCHES O-7 TO Ol. ; 
2- SET SWITCHES. 8-15 AS DESIRED. oe ae 
Sw FUNCTION . _ 
8 RESTART 
9 ROUTINE START MESSAGE 
10 LOCK ON FUNCTION 
lil; LOOP PROGRAM 
12 LOOP ON ERROR 
13 BYPASS ERROR PRINTOUT 
14 HALT ON ERROR 
15 HALT | 
3. PRESS INT REQ KEY ON CONSOLE} | | 
se 
DATE 02 JAN66 O1MAY66 15NOV66 1S JUN67 PRONG 1D 0308-% 
EC NO. 415490 415490B 4196463 420317 PAGE ooola 
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PART NO. 2191234 
PAGE 0002 
PAPER TAPE READER/PUNCH FUNCTION TEST 
30202 ROUTINE SELECTION = FUNCTION 2 
THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED 
OR ROUTINE SELECTION IS RESETe 
le TO SET ROUTINE SELECTION 
Ae SET SWITCHES O-7 TO 416 
‘Be SET ROUTINE NUMBER IN SWITCHES 12-15. 
RIN —-« DESCRIPTION 
1 ‘PUNCH PATTERN e NORMAL ROUTINES- 
2). ss READ PATTERN e THE PROGRAM STARTS WITH 
3 PUNCH AND READ PATTERN 2 ROUTINE 1, RUNS EACH 
. e ROUTINE IN SEQUENCE 
° THEN TERMINATES AFTER 
» ROUTINE 3. 2 
4 © REPRODUCE TAPE —@ + OPTIGNAL ROUTINES 
‘5 * PUNCH BIT SWITCH SETTING e. THESE ROUTINES RUN 
: : a «ONLY IF SELECTED. 
@ @ REFER TO SECTION 3e203 FOR SPECIAL INSTRUCTIONS} 
Ce PRESS INT REQ KEY ON CONSOLE. 
2 TO RESET ROUTINE SELECTIONe SET AS IF SELECTING ROUTINE ZERO 
se 
32203 PROGRAM OPTIONS 
l. PUNCH FROM BIT SWITCHES 
ROUTINE 5 PUNCHES ALTERNATELY FROM SWITCHES O-7 AND SWITCHES 
8-15. AFTER THE ROUTINE IS SELECTED, SET THE DESIRED PATTERN 
| IN THESE SWITCHES. 
20 «RE ALIGN PAPER TAPE 
TO REALIGN THE PAPER TAPE AT ANY TIME DURING RUNNING OF THE 
PROGRAM - 
Ae SET SWITCHES TO 8180 ° 
Be PRESS INT REG. KEY. 
| ; aes eeeses 
303808 PROGRAM HALTS 
30301 NORMAL HALTS 
eHALT NO. DESCRIPTION ra RESTART ‘ 
o(B REG), ‘ ACTION . 
"3001. SC PROGRAM STOP OR ADDRESS STOP . PRESS START i 
eee es ee ee Cah hg eRe e e 
- 3002s | WALT ON ERROR @. DISPLAY POPE Ste osuo tents 
BO Seen eee e RUN MODE — PRESS START 
Ce ARES — om » ann : reo oe eran | : z Perera wewawsws » 
OOF ae eS ee en one Se 
DaTE O2JAN66 O1MAY66 1S5NOV66 1LSJUN6T PROG ID 0308-8 
EC NO. 415490 6154908 419643 — PAGE 0002 
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| 2191234 | 
| ; A 
PAPER TAPE RZADER/PUNCH FUNCTION TEST oper a 
) 
5 -— BeBe2 ERROR HALTS 
5) eHALT NO} DESCRIPTION ; RESTART : 
0 (B REG). e ACTION ® 
5) e e@ - = >on eemteeall ) ere = " =e 
~ e e e ® 
» 30Fl . CHECK SUM ERROR ON FIRST e RELOAD - 
: ; ‘ CARD OF LOADER : ° 
« e e e e 
° 30F2 . READER DSW ERROR WHEN e RELOAD ~ 
: : ; LOADING LOADER i ° 
é ® @ @ @ 
° 30F3 o CARD 2 OF LOADER DID NOT ° RELOAD ° 
5 e @ LOAD ® e 
@ e e ® 
. 30F4 CAN NOT CLEAR CORE = DUE TO o ° 
: ; ERROR IN ADDRESSING UPPER : ne 
5 ; . CORE. : : 
e ®@ : Ge e . : 
 30F5 «READER CHECK WHEN LOADING » NPRO THEN PLACE CARDS 
3 ce a MONITOR OR TEST PROGRAM © RUN OUT IN FRONT OF ° 
3 ‘ | a, © REMAINING DECK AND. PRESS. 
3 e eS e START. @ 
e by e e e 
° 30F6 . MONITOR DID NOT LOAD ° RELOAD : 
e e oh a e e 
3 2 30F7 »« | CHECK SUM WHEN LOADING e RELOAD : 
: ° - MONITOR , . ° 
@ _ @ . a e.. @ 
5 - 30F8 . READER NOT READY e MAKE READER READY : 
e -@ ct - + . @ - e 
e 30F9. .  ~. INVALID INTERRUPT WHICH WILL © PRESS RESET AND START 
» | . e oe. NOT RESET - e e 
e e @ @ 
_  .e 3OFA 6 CONSOLE PRINTER HANG UP = . FIX THE CONSOLE PRINTER « 
> . a BUSY WILL NOT GO OFF e OR NOP THIS WAIT ° 
s2SSes : 
3 | a 
3.4888 PROGRAM TERMINATION 
3 IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
| AT THE END OF ROUTINE 3. ROUTINE 4 AND 5 WILL ONLY RUN IF 
@ ‘ 
> 
Je ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND wee ‘NOT 
@ 
3 Seeeee 
3.5¢e0 RESTART. | 
3 
. Le. SET SWITCHES 0-7 TO O02. 
2—e TURN ON SWITCH 8... , 
3 3. «SET DESIRED CONTROL IN SWITCHES 1s. 
-&e. PRESS INTERRUPT REQUEST KEY... 
SSECSSKERE 
a) 2 Heo ede 8 2 
. 
» 7 
DATE O2JAN66. OLMAY66 15NOV66 15 JUNG? PROG 1D: 0308=# 
) — EC NO. 415490 = 4154908 © 419663 = 420317 PAGE oco2a 
y 
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eee es ee, Saas ) ey) , ee seh Sia —. ey 7 A 











PART NO. 


dm 9 


et 


. ] 


Ld 


—o- o a) om oo a] eo. nN &® o a) eo «8 


x) 


oN yo EER jo woof a. : fs : Gis pe. ee To 
{ \ fc . f : . i \ , 
Nod ea a ) wo : a. Cc = Go oo ‘ Lu cS 
a“ ae ‘ Z 


EC NO. 


1BM MAINTENANCE DPRGNOS ETE PROGRAM FoR THE eis SYSTEM : 
PAGE. 
PAPER TAPE READER/PUNCH FUNCTION TEST , 


4- PRINTOUTS | 
ALL PRINTOUTS: ARE IN THE STANDARD. FORMAT« 


APPNN OORR AAAA (MESSAGE) 
OR 


EPPNN OORR AAAA (MESSAGE) 
WHERE = A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE P1D OF THE PROGRAM CAUSING THE MESSAGE 
THIS WILL BE EITHER OO FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
OB FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 


NN IS THE MESSAGE SEQUENCE. pigaas a 
RR IS THE ROUTINE NUMBER 
AAAA IS THE ADDRESS OF THE ROUTINE 
MESSASE IS ANY VARIABLE INFORMATION 


&ol1see STATUS MESSAGES 


NUM PID ADRS RELF LD 





Aoooo 
XXXX XXXX XXXX> XXXX 
THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR)» THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO MHEG THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 
A000} SWS PID 
XXXX RANA 


THIS MESSAGE IS PRINTED. EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT CF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. : i 





AOBOO OQRR AAAA 


ROUTINE START MESSAGE = IF SWITCH 9, FUNCTION O, JS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADORESS. 





AOBO) OORR AAAA TAPE ALIGNED 
THE PAPER TAPE TEST RECORD IS ASSUMED TO BE PROPERLY ALIGNED IN THE 
READER AT THIS TIME. THIS MESSAGE IS RECE*VED ONLY AFTER OPERATOR 
SPECIFICATION OF REALIGN TAPE OPTION. 

SSeagse 


— Ge 28he ERROR MESSAGES 


THE DSW. IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 
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O1MAY66 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 2191234 
PAGE 00034 
PAPER. TAPE. READER/PUNCH FUNCTION TEST 
QeemeeeeRERESEREEEESEERESSEEESOEEESSEEEESEOEEEEEEERES 
* THE PAPER TAPE DSW | : 
s CEO Tee RI EEE ECE BC ED LER PE IME CL LEI IED 22> G>e> 4>4 EP ere eS 
a | s 
* BIT oe * 
* 0 PARITY ERROR . 
* 1 READER SERVICE ® 
* 2 NOT USED % 
* 3 PUNCH SERVICE ® 
® 4 READER BUSY . @ 
* 5 ——« READER NOT READY * 
* 6 PUNCH BUSY * 
* 7 PUNCH NOT READY * 
* 8 NOT USED & 
* 9 NOT USED ® 
* 10 NOT USED * 
* 1) NOT USED * 
* 12 NOT USED * 
* 13 NOT USED * 
* 14 NOT USED ® 
= 15 NOT USED is 
x . : és s 
SRSKKKLSKSKSSKSSSKTKSRKKSSKESSESTEKSCEKKSSLKESKLEKLSKESKESLSSS 
€0001 SWS INVLD 
| | XXRX 
THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE ; 
NUMBER OF ANY PROGRAM IN CORE. 
E0003 OVR CORE 
THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAO 
EXCEEDED AVAILABLE COREe. LOADING WAS TERMINATED. 
E0004 _CKSUM 
A CHECK SUM ERROR. WAS ‘DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 
le A CARD IS MISSING OR 1S OUT OF SEQUENCE. | 
2. THERE IS ANiEXTRA CARD IN THE DECKe : . 
3. THE PUNCHED JNFORMATION ON THE CARD IS NOT CORRECT. 
Ge DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
- CORRECTLY CALCULATED. | [ae a 
WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAR. 
E0005 OOON XXXX 
THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. WN IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSWe THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 
EOBO1 OORR AAAA XXXX 0X00 
DSW ERROR AFTER READER=CONTROL COMMAND 
DATE O2JANC6 OLMAY66 15NOV66 15JUN67 PROG ID 0308-8 
15490 =». 4154908. 419643 420317 PAGE 
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PAPER TAPE READER/PUNCH FUNCTION TEST 


EOBO2 OORR AAAA : XXKX 0x00 
DSW ERROR AFTER PUNCH COMMAND 


> >See sae 


E0BO3 OORR AAAA . XXXX OFOO 
OSW ERROR AFTER READER-CONTROL AND PUNCH COMMANDS 








EOB04 CORR AAAA | XXXX 0X00 
DSW ERROR WHEN CHECKING FOR READER-READY 


EOBOS OORR AAAA —XKXX 0X00 
DSW ERROR WHEN CHECKING FOR PUNCH-READY 





EOBO6 OORR AAAA KXXX 4600 
READER SERVICE-REQUEST psw ERROR 


Dae oa . 





EOBO7 OORR AMAA = ——s—~S~S=«éRXXK:«22000 
PUNCH SERVICE-REQUEST. DSW ERROR 





‘€0B08 OORR AAAA XXXX 5000 
DSW ERROR WHEN PUNCH AND READER INTERRUPTS RECEIVED AT SAME TIME 





EOBO9 OORR aaaa 7 XXX, x000 


OSwW ERROR WHEN FIRST INTERRUPT WAS RECEIVED. AT THIS TIME BOTH THE 
READER AND THE PUNCH ARE BEING RUN UNDER RACE CONDITIONS. THE DSW 
FOR THE DEVICE THAT INTERRUPTS FIRST IS ANALIZED FIRST. ANY ERROR 
WILL BE PRINTED AS AN EQBO9- SIMILARLY FOR THE SECOND INTERRUPT, AN 
ERROR WILL BE PRINTED AS EOB10. 





EOB10 OORR AAAA - 7 IIE 000 


OSwW ERROR WHEN FIRST INTERRUPT: WAS. RECEIVED. AT THIS TIME BOTH THE 
READER AND THE PUNCH ARE BEING RUN-UNDER RACE CONDITIONS. THE OSW 
FOR THE DEVICE THAT INTERRUPTS FIRST IS ANALIZED FIRST ANY ERROR 
WILL BE PRINTED AS AN -£0809~- SIMILARLY FOR THE SECOND INTERRUPT: AN 
ERROR WILL BE (erat den E0610. - : 





E0B12 OORR AAAA ARKX 0x00 | 


“NO READER INTERRUPT RECEIVED. ( XXXX-IS THE LAST DSW SENSED 
IMMEDIATELY AFTER THE READER-CONTROL COMMAND. 


“€0B12 OORR’ AAAA XXX OXOO 


“3 NO PUNCH INTERRUPT. RECEIVED (XXXxX IS THE LAST OSW SENSED IMMEDIATELY 
_..,, AFTER THE READER=CONTROL COMMAND ) 


? 
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EOB13 OORR 


EO0B14 OORR 


E0815 OORR 


E0B16 OORR 


E0B168 OORR 


EOB19 OORR 


EO0B20 OORR 


PAGE 


PAPER TAPE READER/PUNCH FUNCTION TEST 


VY Y ns ¢¢¢ a) -.1:) 


NO PUNCH OR READER INTERRUPT (XXXX IS THE LAST DSW SENSED IMMEDIATELY 
AFTER THE READER=CONTROL AND PUNC COMMANDS) 





AAAA- t—“‘i‘;é‘;*é*~SC*éiATN:O#RAR 
| XX00 XX00 


READ/COMPARE ERROR (RDR BUFFER CHANGED) | | 
DATA (XX00) PRINTED AS ENTERED IN CORE — CHANNELS 6-1 RESPECTIVELY 


AAAA DATA ERR . 
og Xx00 Xx00_ 


READ/COMPARE ERROR ( ROR BUFFER UNCHANGED) 


DATA anOey PRINTED AS ENTERED IK CORE = (CHANNELS 8-1 RESPECTIVELY 





AAAA _ XXX 0600 XX00- 


READER-DSW READ ERROR WHEN REPRODUCING TAPES. IF TAPE STOPPED, THE 


FIRST CHARACTER BEYOND THE READ STATION WAS PERHAPS IMPROPERLY READe 
THIS CHARACTER HAS NOT AS YET BEEN PUNCHED. BACK THE READER UP ONE 

CHARACTER AND PRESS START ON THE PC. 

DATA (XX00) PRINTED AS ENTERED IN CORE - CHANNELS 8-0 RESPECTIVELY. 





| READ READ 
a re 1ST 2ND _ 
AAAA XX00. XX00 


CONSECUTIVE READ ERROR DATA (XX00) SHOULD AGREE. 


AAAA es © aeFrs _¥xx00 yYOO. 


THE PROGRAM COULD NOT ALIGN THE TAPE IN THE READER IN THE ‘LAST 
500 CHARACTERS. 


THE PROBLEM IS_ 


Ae OPEN DATA CHANNEL(S)« XXOO SHOULD BE FFO0O, WHICH IS THE CHARACTER 
‘THAT WOULD BE PLACED IN CORE BY READING AN ALL-81TS CHARACTER’ 
ANY MISSING BIT(S) INDICATE THE OPEN DATA CHANNEL(S).« 


B. SHORTED DATA CHANNELS). YYOO SHOULD BE 0000, WHICH IS THE 
CHARACTER THAT WOULD BE PLACED IN CORE BY READING A NO=BITS 
CHARACTER» ANY BIT(S) PRESENT INDICATE THE SHORTED CHAWNEL(S)« 


C. IF BOTH XxXOD AND YYOO ARE CORRECT, 


le THE TAPE 1s NOT IN THE READER CORRECTLY, OR 
2e THE READER CANNOT READ THE FIRST 8 CHARACTERS PROPERLY. 
IF SOs TRY ONE OF THESE» 


A. TRY RUNNING THE REPRODUCE TAPE ROUTINE (ROUTINE 4). 
Bs TRY MANUALLY. ALIGNING THE TAPE IN THE READER. THEN 
_ SPECIFY THE MANUAL TAPE ALIGNMENT OPTION (TABLE O} 

;, AND RESTART THE PROGRAM. 


AAAA KKK oe 
A SPURIOUS ‘OR NON-RESETABLE INTERRUPT WAS BEEN RECEIVED. ° 
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PART NO} 
PAGE 
PAPER TAPE READER/PUNCH FUNCTION TEST 
5e COMMENTS 
"TRE FUNCTION TEST CONSISTS OF THREE NORMAL ROUTINES AND TWO OPTIONAL 
ROUTINES. ALL 


NORMALLY, ROUTINES ONE THROUGH THREE ARE RUN IN, ORDER. 
ROUTINES ARE DESCRIBED IN PARAGRAPHS 5.61 THROUGH 5.5. | 
‘THE FUNCTION TEST, 


Ae CHECKS DSW FOR PROPER BITS BEFORE ISSUING WRITE (PUNCH) OR 


CONTROL (READER) COMMANDS. 
Be CHECKS DSW FOR CORRECTNESS AFTER XIO INSTRUCTION. 
“Co CHECKS FOR INTERRUPT FROM DEVICE WITHIN SPECIFIED TIME LIMIT. 
De - CHECKS OSW AFTER INTERRUPT IS RECEIVED. 
5ol%** ROUTINE NO. 1 (PUNCH TEST) 


TEST NOe 1 CHECKS THE OPERATICN OF THE PAPER-TAPE PUNCH WHILE 
PUNCHING TWO TEST RECORDS. THE RECORD INCLUDES A RIPPLE PATTER?) 
AND AN ALL-CHARACTER PATTERN. (REFER FIGURE 1). 
5e2*%e ROUTINE ‘NOew 2 (READER TEST) 
THIS TEST CHECKS THE OPERATION OF THE PAPER TAPE READER WHILE READING 
ONE RECORD PRODUCED BY THE PUNCH TESTe THE TAPE IS NORMALLY 
AUTOMATICALLY ALIGNED IN THE READER BY READING EIGHT CONSECUTIVE 
CHARACTERS CORRECTLY. A MESSAGE IS PRINTED WHEN THE TAPE IS PROPERLY 
ALIGNED. IF DESIRED, THE UPERATOR CAN MANUALLY PLACE THE TAPE IN THE 
THE READER ON THE FIRST CHARACTER OF THE RIPPLE PATTERN AND SPECIFY 
THE MANUAL ALIGNMENT OPTION AS IN TABLE O. THE TAPE MAY ALSO BE 
REALIGNED IN THE READER AT ANY TIME. 


EACH CHARACTER READ IS COMPARED WITH A WORD IN STORAGE. AN UNEQUAL 
COMPARE WILL CAUSE AN ERROR TYPEGUTe SEE 4.2. THERE WILL BE 
BE ONE ERROR TYPEOUT FOR EACH READ/COMPARE ERROR} 


THESE ERROR PRINTOUTS MAY INDICATE THE TAPE IS NOT IN THE PROPER 
POSITION IN THE READER. THE TAPE MAY BE MANUALLY ADJUSTED IN THE 
READER OR THE OPERATOR MAY SELECT REALIGN TAPE. (TABLE 0) 
3¢3%** ROUTINE NOe 3 (PUNCH/READ/COMPARE TEST) 
THIS TEST CHECKS THE FUNCTION AND RELIABILITY OF THE PAPER TAPE 
READER AND PUNCH WHEN OPERATED TOGETHER. BOTH DEVICES ARE OPERATED 
AT THE SAME SPEED. THE DATA READ IS COMPARED WITH THE DATA PUNCHED 
IN A NEW TAPE. THIS TEST ALSO HAS THE TAPE ALIGNMENT FEATURE OF TEST 


NOs 2. THE TEST IS COMPLETE AFTER ONE RECORD HAS BEEN PROCESSED. 
5 24%3% ROUTINE NOe 4 (REPRODUCE-TAPES TEST) 
THE OPERATOR HAS THE OPTION OF REPRODUCING ANY TAPE. THE OPERATOR 
MUST SPECIFY HALT ON ERROR OPTION IN MONITOR CONTROL TABLE 0. AGAIN, 
ALL DEVICE STATUS CHECKING DONE IN TESTS NOS. 1 AND 2 IS INCLUDED 
IN THIS TEST. ALSO, A DSW ERROR WHEN READING THE TAPE WILL CAUSE A 
DELAY OF THE PROGRAM UNTIL THE OPERATOR CAN INTERVENE, 
OTHER THAN E016 IS PRINTED PRESS START AND THEN VERIFY THAT THE 
PROPER PUNCHES ARE OBTAINED. SEE SPECIFIC ERROR MESSAGE FOR AID 
IN INSTRUCTIONS. 
5.54% ROUTING NOo.5 (PUNCH BIT SWITCH IMAGS) 
THIS ROUTINE PUNCHES THE DATA ENTERED IN THE BIT SWITCHES. 
THE ROUTINE WILL ALTERNATELY PUNCH FROM SWITCHES O-7 THEN SWITCHES 
8-156 
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. PAPER TAPE READER/PUNCH FUNCTION TEST 
| 
3 6. APPENDIX 
601 SAMPLE TAPE 
3 
FIGURE 1 SHOWS AN EXAMPLE OF A PAPER TAPE RECORD. . 
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PAPER TAPE KREADER/PUNCH FUNCTION TEST 


SPEKKOKKRKL SHS SESS SKS KKKSK SEK KSEUT ES KEL TRS PERE RE SSEGCREE LSS ES SHAE HK ELE HKS HELE 


SEE REGH SS ELE CSA SHKERSERSE KEKE KHL SKK SEKKE KK SHES THESKREKT SLRS KKLS KEK EK KK SEEKS 


0160 
0161 
0162 
0163 
0104 


0165 
0166 
Ol67 
0168 


O1L7TA 
O16A 
 Qlg9A 
O1LAA 
O1BA 
01868 
O1BC 
018D 


0000 


o5DC 
o50C 
O5D€ 
O5DF 
O5EU 
OSE 1 
O5E2 
O5E3 
O5E4 
OSE5 
O5€6 
OSE7 
U05E8 


CATE 


EC NC. 


COO O— OOOO OO4 


O02 JAN66 
41549C 


x : 
THIS ENGINEERING CHANGE REFLECTS MAJOR 

CHANGES TO THE CIAGNOSTIC MONITOR. PREVICGUS 
TESTS WILL NOT RUN WITH DIAGACSTIC MCNITCR II. 


THIS TEST WILL NOT RUN wITH PREVICUS MONITORS. 
TESTS PRIOR TO EC 419643 CATED NOV 15, 1966. 


WILL NOT GOERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 


een teh Ht & % 


& 


SEEKKSKAERSECSESKKE RSE SSKETSEKKKLKKELKESKKE KK ETKKKKK ETE 


% EQUATE TABLE 

RAE KERE SSL E SK SKA SKE SHEL SSLKTS RTE KKK EKEKSTEKKE AS SHE 
* THIS TABLE ECLATES TEST PRCGRAM LABELS 

x TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRE SSES- 

* 

BEGIN EQU. 4160 BEGIN ROUTINE 

START EQU BEGIN#1 SUPERVISOR ROUTINE 

ERKRGR EQU. START 41 ERRCR LCG ROUTINE 

LOG EQU ERROR +1 STATUS LOG RCUTINE 

END EQU LOG+t1 ENC ROUTINE 

Pw ee ae ee ee ee ee 
* MONITOR CONTRCL wORD ACDORESSES 

x : 

RINSw EQU END¢1 RCUTINE START SwITCt 
ERLCK EQU END42 LOCK ON ERROR CONTROL 
LOGBY EGU ENC+3 I1/G BUSY Sw ADR 

RLCF EQU END+4 RELOCATION FACTOR ADR 


* « INTERRUPT TRANSFER VECTOR ADDRESSES . 
* : 
ILO EQU J1TA INTERRUPT LEVEL ZERE 
Il EQU ILOt#l6 INTERRUPT LEVEL ONE 
It2 EQU ILitle INTERKUPT LEVEL TwO 
IL3 EQu IL2+1é INTERRUPT LEVEL THREE 
IL@ 8 EQU IL3+1¢€ INTERRUPT LEVEL FOUR 
ROTY EQU IL4+1 TYPR SVC REQUEST INTERPT 
RQKB EQU RQTY+#1 KEYBCARD RECUEST INTERPT 
SVKB EQU RQKB+1 KEYBOARD SERVICE INTERPT 
KEKE KERKSLESEKSEKAK KEKE SHEE SK KSHK SKK SE SER SKATES ESKASE ERE 

ORG *+15C9 
* 
HEE SRSEREKE CEKEKE SES FESS EEEEEEES OPES EEEE EE EE EE 
* ‘ DIAGNOSTIC MONITOR * 
* CONTRCLLED of” 
+ 1130 PAPER TAPE TEST + 
EEEEERE KEEL SESE ES OE OEEESEEEESEEKRERSEREEEES EEE ES 
x ; 
* PROGRAM STATUS TABLE 
x : 
PID OC 40308 PROGRAM ID NUMBER 
RID DC #0000 ROUTINE NUMBER 
RAD DC 40000 RQUTINE ADDRESS 
Swo OC 40000 FCN O - CONTROL 
Swl oC 40000 FCN 1 - INITIAL RTN 
Sw2 OC NOT USEC 
Sw3 OC 40000 PUNCH SwS ®ORD 

DC Loce LOOP PRCGRAM ADCRESS 

DC RESRT INITIALIZATION ADDR 
MLSCF DC +-* MAIN LINE SEQ CNTL 

DC RE SAT 

“OC 70006 COUNTER ENTRY 

TERM OC /FFFF TERMINATOR 


SEESEKEE SKATE SR ESSE SHAE S SKKSEKKE SEARS SEEKS REE SE 
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OSES 
O5EA 
O5EC 
O5ED 

OSEF 


O5Fl 
O5F3 
OSF5 
OSF7 
O5F9 


OSFA. 
O5FB 
O5FD 
OSFE 
OSFF 
0600 
0602 
C603 
0605 
0607 


0608 
‘0609 
O60A 


0608 
060D 
O60F 


0610 
0611 
0612 
0613 
0615 
6616 


0617 
0619 
0618 


061C 
O61E 


061F 
0620 


0621 


0623 
0624 
0625 


0626 
0627 
0628 
0629 
0624 


DATE 


01 
01 


pas 


pat pee 


oo =c eoo oooocse 


ww © © ° 
fox 


© © mo ms pe 


EC NO. 


O0VUU 
CCUO0cT4c 
D036 


 678G062E 
4F300625 


F7UC0628 


E7B8U062ZE 
4C18001C 
670007 5F 
T7024 


FO30 
4C0000vU0 
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EO2C 
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4C€200610 
C026 . 
4C18001C 
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E821 
D019 
FO20 


4C18061C 
6 700076E 
TOOE 


1340 
1001 
0011 
67000608 
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67060755 
6FOO0SES 
7005 


-6700077D 


6BC7 


6300 
6800 


4&C8005E9 


0000 
* 9000 


0617 


O5F1 
O5Fl 
OS5SFA 
G000 
0000 


O2 JAN66 


415490 


o oe “ 

f \ 
H | 
Ly | 


INTERRUPT RCUTINE 


SENSE DSW 


BR TO PROPER CHECK 
CHECK SINGLE INTRPT 
BR IF OSw GK 

SVC REG ERROR 


CK CSW FOR 2 SVC REC 
BR IF 2ND COuUBLE INT 
CK FIRST INTERPT CShr 


EXIT IF ONLY CNE REC 
BR IF DSw CK 


PRINT DSW ERROR NEXT 


CHECK SECCAD INTRPT CSW 


BR IF OSW CK 


ZERC IF NO IEQ BIT 
SET SECCND INT Sw 


SPURRICUS OR NON- 
RESETASLE INTERRUPT 


DSW OK — RET TG MLINE 
RESET INTRPT EXPECTEC 


BUG OUT 


SVK KE SKS SKS SKSHKEKHKE SKCKE SKE TEESE EKER AEFSEKE SERS 


x 
* 
x 
* 
x 
x 
POINT DC /000G 
XIO0 lL xICSD 
sto. OSwIT 
LOX I3 INTEX:. 
BSC 13 HANDL-1_ 
‘ 
SINT ECR L3 INTEX-3 
AND I13 INTEX 
BSC L PINT3yt- 
LDx £3 NIPES 
MD X PINT . 
x ‘ 
DINT EOkR INTED 
BSC Lt /000U 
DINT1 STO” DSWD! 
AND INTED 
STC DSw1ID 
BSC L_  DINT4eZ 
LD -DSwDI 
BSC L  PINT39+- 
LDX L3 DINE] 
MDX: PINT1 
DINT2 OR DSwID 
STc DSwWIT 
EOR INTED 
+ 
BSC LL PINT3,+- 
iDX £3 DINE2 
MD X PIATI 
& 
' & 
DINT4 SLCA 30 
SLA 1 3 
STG BUMRYQ 
LOX L3 DINT2 
STX 3 DINTI-1 
MDX X1IT 
x : 
EINT LDX L3 SPUR 
STX L3 MLSCF 
- MDX X1T 
* 
PINT3 LOX L3 DINEG 
PINT] STX 3 MLSCF¢l 
* : 
LOx 30 
STX 3 INTEX 
ae Pe o& 
xXIT BSC | ~POINT 
' ® 
DSwIT DC /000C 
BUMRQ DC 70000 
DC EINT 
«x 
HANDL DC SINT. 
OC SINT 
DC DINT 
DSwWDI DC 40000 
DSWID OC 70000 
x 
OLMAY66 1 SNOV66 
4154903 419643 


LAST INTERRUPT DSW 


INTERRUPT BR ADRS 
PUNCH INTR CK ADRS 
ROR INTER CK ADRS 
RDR-PUNCH INT CK 


IDENTIFY IAT. VET EXP 
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7 : | - THE 1130 SYSTEM 
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM eae NO. ereee ee PAGE 
eee . , 2 : . 
= READER/PUNCH FUNCTION TEST 
PAPER TAPE REACER/PUNCH FUNCTION TEST PAGER. Sore: PECUERY 
oe , Peraee — 6903 STX 1 CN3O41 SAVE Ix 1 30802070 
pece 2000 LED oe ps ee eae ee erry Se aoieen o6ec 00 44800161 BSI 1 START GO TO MCNITOR 30802080 
062C 0 4UUG uc f4u00 ROS VO RES Beata Yo6E U0 65000LU0U . CN3O LDX Ll O RESTORE IX 1 . 30802090 
062E 0 OaDL INTEX DC /00UU INTERRUPT EXPECTED _ 30801420 See tate a aoa Be anes pies - 30802110: 
Reena aa. | ee okey 30801460 0673 0 6301 Lox 31 30802120 
Pe 2 = a 3 as - re = _ 30802130 
ae _ ee 30801450 (0674 OL eF00CESS 7 STIX L3 OULP 1 she ents Ae ae ne aooice 
ee eee a pana anbaae eee 0676 00 ©700U187  ~—~—«LDX ~=L3 391 . SET RECORD LENGTH 30802150 
0630 1 749 ~ oe XMASK PUNCH | | 308014 0678 01 6FI006A3 STK 13 WRECK | | 30802160 
. SKEKKKKS KKAK SHE SKSE ASS SRESSARSERKESSEKEK FECL SEBS SES -- 30801480 ie * oy 30802170 
x en, fee 30801490 , ne an | os 
| 3 . 4080067D | BSC IL RTTAL- 1 BR TO RCUTINE . 30802180 
a , i ei i ali dg d bntacd wiaaddad czopetloue apo sane EREREKE KATE SEE SES ERKS ES SHAS ES HSE SEE ES EEE -. 30802190 
0631 00:°4460016C © PTbGN ESI 1. “BEGIN CALL: MCNITOR * -. 30801510 ; 30802200 
0633 1 O5DC CC PTD ADDR CF PIC NO * 30801520 ar | aaa 30802210 
- oe oe OEEEN ORT e Te Sere es Peek eae nT ete Cee ae he nee 30B01530 067 0 0004 | RTNOM DC pee ,.30802220. 
* INITIAL PROGRAM ENTRY POINT 30801550 wie « 30802240 
¥ - 30B01560 | | aan e 
| E ADDRESS TABLE 30802250 
0634 0 62F8 RESRT LDX 2 -8 RESET TAPE ALIGN WCRDS 30801570 : ORE nee 30802260 
0635 O1 ocEOOOTET STX L2 CORCT . * 30801580 ae ” NORMAL ROUTINES 30B02270 
0637 01 C40UU5E] LD Lk Sh2 30B01590 iy = 30302280 
0639 0 1610 SRA 16 30801600 le * . 30802290 
G63A 02 D400UTEB ae eee ae a Sonoie20 O67E 1 .U684 RTTBL DC. ~—RTNLI PUNCH ROUTINE - ~ 30802300 
oe ee _ | Ch 30B01630 , 067F 1 691 DC ——s&RTN2 REACER RIN 30802310 
063C 0 6103 -LOX. 13 | RESTORE ERROR WO CNT 30801 : ny eae home ane Gena PCH ¢ RER CHECK | 30802320 
063D 01 60000819 STX Ll EMESG42 Oe dees : a | 30802330 
, | | * NAL ROUTINES 30802340 
063F 00 6500030E 2 ~LDX = L1 782 RESTORE FOR 2 PU RCCS | epecteee | : -OPTIO! | | zoe0ee<e 
0641 01 60090685 STX LL RTNLI4L |. : | bee Sed es ua eae a eenasc6 
, | 0681 1 O6A4 DC ~ RIN4I REPRODUCE | 3 2 
0643 01 6500U5E9 LOX LL PCINT SET INTERRUPT TRAP 30B01680 2 dees act Sati Sac eR BCH BIT SW DATATRIN 30802370 
0645 00 oDOOO1BA STX LL IL4 | VECTOR - 30801690 | ree : 30802380 
| eee ease nenaeee eens tener eeseres S008 S0RnES TEES 30801700 — 9683 0 0000 SKC MP DC 70000 SwWl COMPARE wORD 30302390. 
% | suede SEE KEES SKE KERESEHKE EHES KKK SKHES ESTE SESE ESSERE 30802400 
‘ _ : | os 30802410 
+ carats 
* ROUTINE CONTROLLER © 30801730 < Z 30802420 
* | AIO OT Eee * MAINLINE ROUTINES 30802430 
& THIS ROUTINE CHECKS SwITCHES: AND CONTRGLS 30801760 - | eoco 
_* SEQUENCE IN WHICH TES ROUTINES ARE RUN. acaieac r ROUT INE 1 - PUNCH TEST 30802460 
a a: ? ee | . 
= = | aa + os | - 30802470 
0647 0 1010 LOOP ‘SLA 16. ‘RESET ROUTINE NUMBER 20801730. ; oan agg aR Ok. eines SET FOR 2 RECORDS 30802480 
0648 0 D094 | STO “RID | gee ate stipe 0686 0. 691C STX 1 WRECK » 30802490 
| a 7 65000187 LDx tl 391 _CNE RECORD. NEXT TIME 30802500 
0649 01 C400U5EO CNTRL LD Lt Swi | | Se ecicae , praee A eee : STX 1 RTNLI42 . 4 | "30802510 
0648 0 0037 : — §To SwCMP aN rs | . “eS e aes 
ee - wie. he | 4400083F RTN1 BSI LL: MARK BUILD NEXT CHARACTER — 3080 
—064C 01 4C080658 7 BSC Lb 'CN209+ BR IF NC RIN SELECTC soeaiese as eee 3 “ete ene PUNCH READY 30802530 
| | i | | ee | 8D O01. 4C00072F BSC L. PUNH PUNCH ONE CHARACTER 30802540 
O64E 01 D40005DD CN10 a L cpeare SAVE NEN RIN. NUBRER caaniete ia a HEE REREREES SE ERE EEE CEES CHEESE REE ESE EEEEEEEE ES 30802550 
0650 0 902C | : eee _ | | - 30B02560 
| = 7 | (068F 0° 4048 RINIA BSI _ CRASH ‘CK IF END ROUTINE. ‘BOE 
0651 01 4CO8&005F oo. L naan BR IF VALIO RTN Een p bite Pas aos | ERE EEE EERE EEREK SEE SNEEENEEEESEEEES EES $48 SEES - 30802570 
0653 0 1810 SRA : 0690 0: 70F: NC — RETURN - 30802580: 
0654 01 0400G5E0 sto L Swi IF INVALID RTN GO 30801900 0690 0. 70F9 ; MDX = RTNA eaaoecs 
bese orcosooo;Dy Ste RID: ete OS rulers | * ROUTINE 2 - READER TEST 30802600 
ir ae _ | | oo te a _ oa 3 30802610 
G65A 0 C021 | kD RTNOM Bie inoe lp 0693°0. 4062 . BSI RRDY READER peaty 3 30802630 
ee ee eee OU a ee hee) on cca ae os 30801960 0694.0 7077: . piv 0 MDX: . PEED: CONTROL READER - 30802640 
Cte Gh EVO yates 5 ‘ at : © 30801970 0695 01 4400075B | RIN2A BSI Lt RDIT READ ANC COMPARE Patetets 
| : ss .0 .4040: BSI. ..CRASH . CK-IF .END ROUTINE z= 
065D 00 44880164 BST oT ENDet END PRCGRAM ~ ees 0698 0: Tore ake RANG or eek ‘30802670 
€ >: 5 Btw Sty i Raa 2 8 ae ae: : a eek geo : * to gars Bie ys 
| ae oe Pea. ) ae * oo ee . 30802680 
O65F O01 658095DD CN25 LOX: JLERID: pO es te a re 30802000 : . eae funat. ade 3 , “30802690 
2661 01 C500GE7D * | Lo ou RTTBL— SET ROUTINE ADDRESS _ 30802010 ee Pe ee ae bas COMPARE 30802700 
* a , ret ee es eS ae ‘ eee soe alt “7 : BD ee + ys 
* * .30B02710 
0663 01 D40005DE sto. L RAD 30802030 a f- . ; 
; © et ak 308020 4400U83F | RTN3 BSI L_ MARK BUILD NEXT CHARACTER -. 30802720 
0665 01 GTOG0E6E ae. ae ee pee ae ae sce 6 nee i 4044 — | BSI XKRDY - PUNCH READY --30802730 
0667 01 6FO005ES STKE: ae eed eos | - R 1 ROB02T&O 
C6eS 00 6f0U0165 STX LI -RTNSH SET ATK ‘SWITCH -- 30802060 069C 0 4059 BSI RRDY READER READY ue | 
ea Weal ied ee eee pRDE- 4. 2 DATE O2JAN66 O1MAY66 1 5NOVO6 “PROG 1D 0308-2 
CATE O2J4Nho0 O1MAY66 1 SNOVE6 PROG ID) 0305-2 pe PAGE 2A 
EC NG. 4154SuU 4154908 419643 PAGE 2 EC NO. 415490 4154908 4196 3 
7 ie | | : 
at 7 aA BO ee a aos o™N a pie = —— — ie Dee aos a een Bt a “oo a vn > aa aes 
\ \ | Y ~ —_ _ ~ \ po po Ne ee eae ~~ as ee : oe a aa aa \ ; a, ais 
j 2. aoaf g ) | | : ) . p ) ) : \ —) ) ) | —) y) | ] | \ \ \ E Jf ») ) 
/ = “ Sr a ed a x Ss Se ~ a ee ae an Re Te er ets ee oe 
nN ee s =e ne “a8 Sintec Ss eves he, § a er rr oe ; 








aie ‘ oc ~ a~ - oo, Sars ew es \ 
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IBM MAINTENANCE OJAGNOSTIC *ROGRAM FOR THE 


PAPER TAPE READER/PUNCH FUNCTION TEST 


C69D 01 
O69F 01 
06A1 0 
O6A2. 0. 


06A3. 0 


O6GA4 O 
“O6A5 O 
O6A6 O01 
O6A8 O 
Q6A9 01 
O6AB O 
O6AC O 
O6AD O01 


O6AF O1 
06B1 Ol 
Q06B3 Ql 
0655 O 
0686 Ol 
0686 O01 


O6BA 0 
06BB 0 
O68C 01 
O6BE O01 


06CO 0 
06C1 0 


06C2 00 
06C4 
06C6 
06C8 
069 
06CB 
06CC 
06CD 
O6CE 
O6CF 
06D0 
0601 
0603 
06D4 
06D6 
06D7 


ooo°oco 
psd p> pe 


eocoooqcocoecoco 


0608 0 
06D9 OQ} 
O060B 0 


DATE 
EC NOw 


4C00071B 
44000796 
4036 
TOFe4 


0000: 


4051 
1066 
C40005E0 
FODA 
4C20U647 
4034 


4049 
4C000718 


0C000744 
C400081E 
D4000B1F 
10A0 

0C000740 
4C1006A6 


6116 
6207 
44000809 
6E000819 


4035 
TO04A 


67000000 


OCOO0T4E — 


C4000754 
1300 
D400081F 
COFT 
4830 


6300 


4808 
6308 
6BF2 
C40005E0 
FOAF 
4C 200647 
4009 
T7057 


0000 
T4FFO6A3 
7002 


02 JANG6 


#15490 


. & 


BSC 
RIN3A BSI 
BSI 
MIX 
* . , 
WRECK OC 


XFEED 
RDIT 
CRASH 
RTN3 


/0000, 


1130 SYSTEM 


PUNCH ¢ CONTROL ROR 
REAC. ANC COMPARE 

CK IF END OF ROUTINE 
NC - RETURN 


RECCRD LENGTH COUNTER 


SSSHKSKEKKE CERES HES EHEKS EEK OSES SHEETS ERTE SRE 


x 
x 


RINGI BSI 


MCX 


* 
RIN4S Lf 
; ECR 
BSC 
BSI 
8S] 
BSC 


RIN4SA XIO 
LG 
STG 
SLT 
X10 
BSC 


LOX 
LDX 

BSI 
—STX 


BSI 
3 MDX 
* _ MDX 


ROUTINE 4 — REPRO PAPER TAPE 


RRDY 
FEED 


Swl 
SwCMP 
LOOP ,Z 
XKROY 
RRDY 


- XFEED 


XICRR 


’ CARED 


XCHAR 
32 
XI OSD 
RING »- 


- 0016 


7 
PRDSW 
EME SG+2 


RRDY 
FEED 
RTN4 


BR IF END THIS RIN 
PUNCH READY 

REACER READY 

PUNCH + CONTROL RDA 


REAC RDR BUFFER 
PLACE CHAR READ IN 
OUTPUT AREA 


SENSE DSw 
BR IF NG DSW ERRORS 


PRINT ROR ERROR 
PRINT THE ERROR 


READER READY 
CCNTROL READER 


SHCREREKSSKSESSECKE SHE FRESE HESERES EEKESEEEK EKER ESE 


nen & 


RINSA LDX 
RIN5SB XID 
| LD 
SLA 
STO 
LD 
BSC 
LOK 
BS- 
LDX 


RTN5SD STK. 


LD 


€0 2. 


BS 
BSI 
MD X 
MDX« 


* 
* 
* 
* 
+ 
* 
*& 
CRASH DC 


MD « 
MD< 


* 


OlMAY66 
41549038 


L 


ROUTINE 5 — PUNCH FRCM BIT SWITCHES 


40000 
RDBS 
BiTSW 
oO 

XCHAR 
RTNSA41 
-Z 

0 

+ 

a 
RINSA+41 
Swl 
SwCMP 
LOOP,2 
XK RDY 
PUNH 
RTNSA 


REAC THE BIT SWITCHES 


SAVE NEXT PCH CHAR 


BR IF END THIS RIN 
CHECK: PUNCH READY 
PUNCH THE CHARACTER 


KEES ERSK EEK EKA ESE SKE SESE LH STKSAKE HELE SESE LES ELS 


COUNT CHARACTERS SUBROUTINE 


40000 
WRECK 9-1 
RASH 


1 SNOV66 
419643 


IS RTN COMPLETE 
CECREMENT CHSR CNTR 


PART NOw 2191232 
3 


PAGE 


30802750 
30B02760 
30802770 
30802780 


30802790 


30802800 


30802610 
30802820. 


30802830 
30B02840 
30802850 


30802860 


30802870 


30802880 


30802890 
30802900 


30802910 


30802920 
30802930 
30862940 
30802950 
30802960 
30802970 
30802980 
30802990 
30803000 
30B0 3010 
30803020 
30803030 
30803040 
30803050 
30803060 
30803070 
30803080 
30803090 
30803100 
30803110 
30BC 3120 
30833130 
30803140 


30803150 


30803160 
30803170 
30803180 
30803190 
30803200 
30803210 
30803220 
30803230 
30803240 
30803250 
30303260 
30B03270 
30803280 
30803290 
30B03300 
30803310 
30803320 
30803330 
30803340 
30803350 
30803360 


30803370 


30803380 
39803390 
30803400 
30803410 
30B03420 


PROG ID 


PAGE 


0308-2 
| 3 


¢.9 


ody a) am £44 


me Se een: 


Te can amanaeiietindiaibemsene tee ins 


re 


. | re a 

! 1 

/ / 
aes 


— 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


O6DC O01 4C000649 


U6DE 


06E0 


06E1 
O6E2 


06E3 
06E4% 


OoE6 
O6E7 
OOE9 
OoEB 


O6ED 
O6EE 
O6EF 
OOFO 
O6F 1 


OoF 3 
O6F5 


O6F6 


O6F7 
O6F & 


O6F9 
O6FA 


O6FC 
O6FD 
06 F F 
o701 
0703 
0704 
0705 
0706 


O7T07 


0709 
070B 


o70Cc 
o70C 
O70F 
0710 


o711 
0712 


DATE 


ol 


oco 


01 


o e000 


EC NO. 


4C30C6D8 


0000 
O85E 
DOTO 


E065 
4C9806EC 


1007 

4C 1006ED 
CCOOO08EB 
OCOOOS1A 


6105 
C&64 
EC5SF 
16D0 
44000809 


44000630 
TOEB 


0600 
0848 
DOSA 


EO4E | 
4C9BO6FE 


1005 
4€100703 
CCO000886 
DCOOOS1A 
6104 
C84E 
E048 
16D0 
44000809 


44000830 
TOEB 


6101 


6D00062E 


0832 


C8&2F 
DO3F 
44000788 


O2JANC6 


415450 


BSC 
* 


L CNTRL 


KASH BSC 1 CRASH 
* 


BR - ENC OF RECORD 


RET IF RCD NCT CMPLT 


RHE ERSTE EEE ERESE REVERE SSEEREES OBEK SEES ER RE TD 


- 40000 
X10SD 
DSwAS 


XMASK 
I XKRDY 
7 
XKRD2 


PNRDY 
EMESG 


ed oa 


15 
DSWAS 
POFF 
16 
tL PRDSW 


L TIME 
XKRDY 


700C0 
X10SD 
DSWAS 


RM ASK 


TIT RRDY> 


5 
RRDY2 


eer 


EMESG 
14 
DSWAS 
ROFF 
16 
L  PRDSW 


Ll TIME 
RRDYV+ 


RNKDY | 


PUNCH READY SUBROUTINE 
SENSE AND SAVE DSW . 


REMCVE RDR NRDY BIT 
et— BR IF DSw OKAY 

DSw& ERROR 
a BR IF PUNCH READY 

SET PUNCH NOT READY 
+3 


ERROR - 5 


PRINT THE ERROR 


PAUSE BEFORE RECHECK 
+) . 


EK EREEKEASE EEEKE SHE SHES SE EEKE ESE HESS EKER KE ED 


READER READY SUBROUTINE 
SENSE AND SAVE DSW 


REMOVE PCH NRDY BIT 
+- BR IF DSW OKAY 


DSW ERRCR | 
- BR IF READER REACY 
SET NOT READY MSG 
+3 _ 
ERROR — 4 


PRINT THE ERROR 


PAUSE BEFORE RECHECK 
i 


SRERKEKSE KET EKKKKKKE KKK SE SSHHEKSEK SHER HERE KSEHE RES 


* 
* 
p 3 
* “ 
XKRDY DC . 
XIC 
STC 
* 
AND 
* | 
. BSC 
* 
SLA 
BSC 
i OD 
STD 
* 
XKRD2 LOX 
LOD 
AND 
RTE 
BSI 
* 
BSI 
MDX 
x 
* 
* 
ne 
RRDY OC 
X10 
STO 
* 
AND 
* 
BSC 
= 
SLA 
BSC 
LOD 
STO 
RRDY2 LOX 
LoD 
AND 
RTE 
BSI 
* 
BSI 
MDX 
x 
xe 
* 
FEED LDX 
ST™Xx 
x 
XIO 
x 
X1G 
STO 
BSI 
* 
O1MAY66 
4154903 


 CONTRCL READER SUBROUTINE 


il 
Ll INTEX 


XICFD 


xICSO 
DSwBY 


lt BSVES 


1 SNOV66 
419643 


SET REACER INTRPT 
EXPECTED 


FEEC READER 
SAVE BUSY DStk 


CHECK BUSY DSW 





PART NO. 


PAGE 


30803430 


30803440 


30803450 


30803460 


30BU3470 
30803480 


30B03490 


30803500 
30803510 
30B03520 
30803530 


30B03540_ 


30803550 
30803560 


30B03570 


30803580 
30803590 
30803600 


3080 3610 


30B0 3620 
3080 3630 


30803640 


30803650 
30B03660 
30803670 


30802680 


30B03690 
30803700 


30803710 


30803720 
30803730 
30803740 
30803750 
30803760 
30803770 
30803780 
30805790 
30803800 
30803810 
30803820 
30803830 
30B03640 
30803850 


30803860 


30B0 3870 
30803880 
30803890 
30803900 
30803910 
30803920 
30803930 
30803940 
30803956 


30B03960 | 


30803970 
30B03980 
30803990 


30804000, 


30804010 
30804020 
30804030 
30804040 
30804050 
30804060 
30804070 


30804080 


30804090 
30804100 


PROG ID 


PAGE 


2191232 
3A 


0308-2 
3A 








IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


0714 
o716 
0717 
o716 


0719 
O71A 


0718 
071d 


O71F 
0726 


0722 
0723 
(0724 
0725 
C726 


0728 


OT2A 
0726 
o72C 
C720 
O72E 


—OT2F 


0750. 


0732 


-0733. 


0735 


0737 


0739 


073A 


0738 
073C 
0730 


~ OTSE 
O73E 
O73F 
0740 
0741 
0742 


20743 


0744 


“ 0745 


~~ 0T46 


“ OI4t: 
 OT48: 


O74S 


“BATE: 


01 


0 
0 
0 
C 
O 


ol 


Ol 


ooooo 


©COnNoO 


COOK OrFONOOO 


EC NC. 


44900830 


6111 
C339 
£035 
E831 
TOSF 


650905FD 


6VO005FC 


6103 
01. 


oDOU0E2ZE 


0818 


OSle 


081B 
DO2B 
44000786 


44000836 
C026 
6113 
180U 


COLF 
7048 


6102 
6500U62E 


0808 


-O8BOC . 


Duc 
44000788 


- 4400083C 


C817 
6112 
EG13 
E 80F 
703C 


0000 


 O8LF 


1900 
0000 
1FO1l 
0000 


1010 


OB1E 


- PAOOV 
0754 
- BAOO.... 
FEFF 


FBFF. 


- O2JANGO.-: : 


4154¢0 


~ PAUSE FOR INTRPT 
_ NO READ INTERPT 
ERRCR - 11 


GO PRINT THE ERROR 


ERE ELSE LKKEKKEKS SKK SEKHS TESKSEKESASSHESLKESRKRESS 


PUNCH ANC CONTROL READER 
SUBROUTINE ge 


RESTORE DOUBLE INT 
-1 “SWITCH | 


SET DGUBLE INTRPT 
EXPECTED 


FEEC AND PUNCH 


SAVE BUSY DSW 
CHECK BUST DSk 

PAUSE FCR INTERRUPT 

LCST IATERPT 

ERROR - 13 


GO PRINT THE ERROR 


SHEE KEKKKSEKK CHEK HK SCEKSE KES SERRE SKEEKECEKE 


PUNCH SUBROUTINE 


“SET PUNCH INTRPT 
EXPECTED 


PUNCH CHARACTER 
SAVE BUSY DSW 

CHECK BUSY DSW. 
- PAUSE FCR INTERRUPT 


NO: PUNCh IATERPT 
ERROR - 12 


SKEKEKKSKEKCKEKSK ESSE SERS SKE KSSESA SKKKSKSEKKKSKE KF 


OLMAY66.... LSNOV6S6 


4154908 


419643 


PUNCH IOCC 
SENSE DSW IOCC 
feec Toco” 
Saree 
READ: BIT SWITCHES 


READER MASK. 
- PUNCH MASK _ 


BSI t TIME 
* : is 
L DX 1/0011 
L DD DSwaY 
AND -ROFF 
OR DSwR2- 
MOX DINES 
* 
< 
* 
af | 
XFEED LDX L1 DINTI 
STxX &1 DINTL 
* iy. od 
LOX 1 3 
STX L1l-INTEX 
4 , | 
“X10 -XTOXX 
*x10 X1OFD 
* 
x0 XIOSD 
STO DSWBY 
8SI L  BSYES 
BSI L TIME 
: Lo DSwWeY 
LOX 1 /0013 
RTE 16 
Lo DSWRX 
- MDX DINES 
SEK KE KH I: 
* 
& 
x aan 
PUNH LOX 1 2 
STX LL INTEX. 
. as 
X10 X1OXX 
* : 
X10 XI CSD 
$10 DSWBY 
BST bt BSYES 
* : 
BSI L TIME 
" 3 
LCD ' DSWBY 
LUX 1 £0012 
AND  POFF 
OR DSwXx2 
MC X DINES 
* 
- 
| BSS E 
X1OXx DC “XCHAR 
pec 7419906 
XIO0SD OC 70000 
; DC /1FO1L 
- XIOFD OC /0000 
DO 4110" 
— X&ITORR DC * CARED 
DC /1A00 
ROBS DC - BITSW 
a pc . °*-73A00 
RMASK DC ©. /FEFF 
XMASK DC -: YE BEF 


PART NO- 


PAGE 


30804110 
30804120 
30804130 
30804140 
30804150. 
30804160 


30304170 
30804180. 


30804190 
30804200 


30804210 


30804220 


30894230: 


30804240 
30204250 
30B04260 
30804270 
30804280 
30B04290 


°30B04300 


30804310 


30804320 


30804330 
30804340 
30804350 


30804360 


30804370 


30804380 
30B04390 


30804400 


- 30804410 


30804420 


30804430 


30804440 
30804450 


30804460 


39804470 
30804480 
30804490 
30804500 
30804510 


30804520 
30804530 
30804540 


30804550 


30804560 


30804570 
30804580 
30804590 
30804600 


30804610 


30804620 


30804630 


30804640 


- 30804650 
30804660 
30804670 

30804680 
30604690 

30804700 

- 30804710 
_ 30804720 
30804730 
30804740 


30804750 


-- 30804760 
- 30804770 
30804780 


PAGE 


PROG ID 


2191232 
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4 
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ape eRe EN ett et 
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OS me et |e meee - ees 


18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


O74A 
074B 
074C 


O74U. 
OT4E 


OT4F 
0750 
0751 
0752 
0753 
0754 


0755 
0756 
0758 


0759 
0758 


O75F 


O761 


0763 


0765 


O7oT7 
C768 


0769 


0768 
(O76C 
O76D 


' OTE 


0770 
Oo771 
0773 
0775 
O776 


OoTTT 


0778 


OT7A 
O7T768 


0770 
_OTTE 


0780 
0782 
0783 


0785 
0786 


_ 0787 


DATE 


ooooono0ocnco0cos 


Ol 


01 
01 


00 


00 


G1 
01 
01 


01 


exo 


a 


ooo oOooooao aco 


© 
ome 


ol 
Ol 


ol 


EC NO. 


FFFF 
ocOoU 
C300 
OF DU 
0100 
0406 
O0vu0 


0000 
_ 0000 


OGOG 
0000 . 


6101 


‘©D000819 


6120. 
C4000623 


44000805 


44800161 


65000000 | 


CC0vu0623 


E500074D0 
ED00062B 


7105 


7011 


C 4000623 


18D0 
6108 
700A 


C4000623 
1600 
C4000624 
4C200777 
6109 


7601 


6110 


— €4006628 


18D0G 


-4@400080S 


1010 
‘D40095E7 
658005DD. 


C063 
4D98C87E 


1810 
DOSF 


1814 


O2JjJAN66 


4154950 


DSwR2 
D Sw X2 
DSWRXx 
ROFF 
POF F 


DSW BY 


DSWAS 
BIT SW 


OC 


/FFEF 
/0COO0 
40300 
/OFOU 
46100 
0400 
/G000 
/GO00U 
/0000 


. £G000. 


MINUS CNE 

RDR BUSY EXP DSw 
PCH BUSY EXP DSW 
DOUBLE BUSY DSW EXP 


LAST BUSY DSw 
NOT USED | 
LAST DSwER PRINTED 


SKE KEES KKKK HERAKKEK EKER SKE KHESE PHKE HKEKSEKHL ES 


5 


® 


SPUR 


x 
* 


* 
* 
* 
x 


& 
* 
+ 


_DINES 
DINES 
~ DINES 


© 


DINE6 


NIPES 


LOX 
STX 


-LDX 


LO 
BSI 


BSI 


LDX: 


LOD 
AND 


OR 


MDX 


“MDX 


LO 


i Dx 
Ld 
RTE 


-BSI 


“SLA 
-$TO 


~ LDX 


LD 
BSC 


SRA 


~$TG.. 


MDX 


OlLMAY66 
41549668 


i 
Ll 
1 
L 


L 


I 


il 


Lh. 
tl 


rl 


1 | 
EMESG+2 
20 


DSWIT 
PRDSW 


START 


PRINT 


4/0000 


DSWIT 
ROFF-1 


INTEX-3. 
5 


DINES 


DSWIT 


ae 


8 . . 
DINE4 


DSwIT 
16 
BUMRQ 


-DINE3 eZ © 


9 
DINE 


40010 
INTED 
16 


_PRDSW 


MLSCF 2 
RID 


ERRET 


SORTS~let-. 


lo 


-ERRET 
READ 
SEK RECESS RERRE SEE SEES SEES RKESE SES SEER SLES ES 


1 SNOV66 


419643 | 
prs or 
ey 


ERRCR - 20 


PRINT CSW ERROR 
SPURRIOGUS OR NON- - 
RESETABLE INTERRUPT 


ESSER HSS HERSEK SES KEK SE KHEKKSELS HSE SS ETERS HESS 


DShw ERRORS DETECTED 
DURIAG INTERRUPT 


 PRIAT DSW ERROR 


DETECTED WHILE 
RUNNING RTN 1 OR 


—RTN.2 


ERRCR - 6 GR T 


PRINT CSwW ERROR 
DETECTED WHILE 
RUNNIAG RTN 3 OR 
RTN 4 


ERROR - 8 
SEQ SVC REC ERROR 


BR IF 1ST SVC REC OK 


ERROR - 9 


ERROR — 10 


PRINT THE ERROR — 


INTRPT RECEIVED 
BLOCK TIMER RETURN 
RET TO MAINLINE RTN 


BR IF NC ERROR LAST 
RETURN TO FINISH 


ALIGNING TAPE 
IN READER 


PART NO. 2191232 
4A 


PAGE 


30804790 
30B04800 
30804810 


30804820. 


30604830 
30804840 
30504850 
30504860 
30B04870 
30804880 
30804890 
30804900 
30804910 
30804920 
30804930 
30804940 


30804950 


30804960 


30804970 


30204980 
30604990 
30805000 
30805010 


30805020 


30805030 
30805040 
30805050 
305805060 
30805070 
30805080 


30805090 
30805100 


30805110 
30805120 


30805130. 


30805140 


30805150 
30805160 


30805170 
30805180 


. 30805190. 


30805200 
30805210 


—30B05220 


30805230 
30865240 
30805250 


- 30805260 


30865270 
30805280 
30805290 
30805300 


- 30805310 


30605320 
30805330 


-30805340 


30805350 


30805360 
30805370 
30805380 
30805390 
30805400 
-30B05410 
30805420 
30805430 
30805440 
(30805450 
30805460 


PROG ID 


PAGE 


030B-2 
4A 


oo, 


id Reig ki Gi Seeercions agrees + pee amamntins Senet, 


SOOT Ot 


Nl min ea pM ee Ny el Aan A AN ELSA el sa Sadaianbintt i aba nist eden ten anche neni tn iach eet ea NN ng i manne ncn MN tahitei Dilan let Mb aee Bip BAAN Rani eae nph te a iii 


LO Cc <¥ COO. 


18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH 


C788 
0789 
0788 
o7Tsc 
O78E 
0790 


0792 
0793 
0795 
0797 
0798 


0799 


07968 
o79C 
O79E 
C7AO 


O7Al 
OTA3 


O7A4 
O7A5 
O7A6 
OTAT 


O7A9 
O7AB 
O7AC 
O7TAD 
O7AF 
o76i 


O7B2 
07B3 
O7B5 
O7a7 
07B8 
O7BA 
O7BB 
O7BC 
O7BE 


DATE 


01 
01 
01 
01 


01 
01 


Ol 


EC NCe 


00vud 
oC000T760 
Ccocs 
E50U00747 
F500U074A 
40980788 


C8BE 
E500C74N 
ECDOOO74A 
18D0 
4070 


4C800768 


0000 
C400061E 
D4000821 
08A3 


C400081E 
D045 


O89F | 
C043 
FOTT 
4C2007C5 


C 40008 1F 
FOT2 
1808 
4C2007CC 
T40107E7 
7055 


6835 | 
6500A001 
CCOOO88A 
406A 
C40005E1 
1009 
1809 
D40U05E1 
181u 


O2JAN66 


415490 


4154908 


FUNCTION TEST 


* 


+ | CHECK BUSY DSw 
* 
BSYES DC /0000 
STX LI NIPES#1 FETCH LAST DSW SENSED 
Lo OSwBY AFTER 1/0 COMMAND 
AND LI RMASK-1 
ENR Ll DSwWR2-1 : 
BSC I BSYES»+- BR IF DSW CK 
& 
LOD = DSWBY PRINT DSW ERROR 
AND Ll ROFF-1 | 
UR Ll DSWR2-1 ERRCR - 1 CR 2 OR 3 
RIE =16 
BSI PRDSW PRINT THE ERROR 


x 


& . 
XBSYX BSC I BSYES EXIT TO USER 


* 


* 
SHRKEKHKIAKHKK SKSEKELKKSRKEESARESERKEKHE LEK KK KERKHEK KE 


x 
* _ . 
* READ AND COMPARE SUBROUTINE 
*x 
* THIS ROUTINE READS THE READER BUFFER TWICE 
* TO ENSURE THE SAME DATA IS READ. THEN IT 
* COMPARES THE DATA READ WITH WHAT SHOULD HAVE 
* BEEN READ. If AN ERROR IS FOUND THIS ROUTINE 
* WILL REALIGN THE TAPE IN THE READER BEFORE 
* RETURNING TO MAINLINE ROUTINE IF THAT CPTION 
* WAS SPECIFIED. CTHERWISE ONE ERROR IS PRINTED 
* FUR EACH NON-COMPARE. 
x 
* AN ERROR WILL ALSO BE PRINTED IF THE RCUTINE 
* CANNOT REALIGN THE TAPE IN 100 CHARACTERS. 
* 3 F 
x 
ROIT OC 70000 
READ LC tL CARED SAVE LAST CHAR READ 
STO t LREAD 
xi XIORR READ CHARACTER 
¢ 
LC L CARED SAVE CHARACTER READ 
STO SAVIT 
x 
x10 XIORR REAC 
LD SAVIT. CHECK IF SAME CHAR 
ECR CARED 
BSC L RDIT12Z BR IF ERR IN REAC 
* 
x . 
RDITO LD tL XCHAR DO CHARACTERS 
EOR CARED COMP ARE 
SRA 8 . 
BSC LL RDIT2e2 BR IF NCN COMPARE 
MDX Lt COKCT,1 
| MDX RDITE EXIT 
3 
STX O NIST 
LOx tl /A001 PRInT TAPE ALIGNED 
LOD tL TEAL 
BSI PTLOG PRIAT THE MESSAGE 
LO L Sw2 TURN OFF REALIGN SW 
SLA | 9 
SRA 9 
ST3 tC Sw2 
 RDITD SRA 16 RESET BITLINE CHECK 
O1MAY66 1 5NOV66 
419643 


PART 
PAGE 


30805470 
30805480 
30805490 
30B05500 
303805510 
30805520 
30605530 
30805540 
30805550 
30805560 
30805570 
30805580 
30805590 
30805600 
30805610 
30805620 
30805630 
30805640 
30805650 


-30B05660 


30805670 
30805680 
30B05690 
30805700 
30805710 
30805720 
30805730 
30805740 
30805750 
30805760 
30805770 
30805780 
30805790 


30805800 . 


30805810 
30805820 
30805830 
30805840 


30895850. 


30805860 
30805870) 
30805880 
30805890 
30805900 
30805910 
30805920 
30805930 
30805940 
30805950 
30805960 
30805970 
50405980 
30805990 
30806000 
39806610 
30806020 
30806930 
30306040 


30866050 


3)806060 
30806070 
30806080 
30806090 
30806100 
30806110 
30806120 
30806130 
30806140 


PROG 1D 


PAGE 


NO. 


2191232 
5 


030B-2 
5 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


O7BF 
o7CO 
o7Cl 
O7C2 
o7Cc3 
O7C4 


o7c5 
O7C6 
O7TCcT7 
Oo7C8& 
O7C9. 
O7CB 


O7CC 
O7CD 


exe 


O7CF 
07D0 
o701 


07D2 
O7D3 
0704 


0705 
O7DT 


pono 


0708 
O7D9 
O7DA 
0708 
o70C 


~~ 


O7DE 


O7DF 
O7EO 
O7E1 
O7E3 
O7TE4 


O7E6 
O7ET 
O7E8 
O7E9 
O7TEA 
O7E8 
O7EC 
O7EC 


O7EE 
O7FO 
O7TF1 
O7F3 
O7F4 
O7TF5 


OTF 6 
OTF? 
O7F9 
O7FA 
O7FB 
O7FC 
O7FE 
OTFF 
0800 
0801 


ceoeoo0oo000oo0o0 aoooo0oo eo0o9g0q0000o coo00c0o0 coe 9V9O00C0 90 e009 ooo Oo ©Cooooo coo0ceoo 


DATE 
EC NO. 


DO26 
Co2c 
DC28 
6164 
6928 
T1042 


C023 
18D0 | 
C056 
6118 
4400060S 
T00D 


CO1B 


—4C2007EE 


CO1B 
£84D 
DO19 


C017 
EO4A 
DOLS 


T4FFOTEC 
7007 


coll 
6119 
18D0 
CuOF 
4400080¢ 


TODF | 


olF8 
6906 
4400 U6F 6 
6802 
4C00070C 


— 0000 


0000 
0000 
0000 
FFQO 
0006 
0064 
FFOO 


C40005E1 
1008 — 
4C1007F6 
1008 
DGF 3 
TOES 


6114 
CCU00884 


D820 
C025 
FO2s 
4C180802 
CO1F 
FO21 . 
4815 
6115 


02 JAN66 


4154S0 


RDIT1 


RDI T2 


RDIT3 


ERRET 
CORCT 
N1S7 
SAVIT 
NOL NE 
BTLNE 
TRIAL 
KFF OO 


RDIT4 


* 
RDI T6 


STO 


STO 
LDX 
STX 
MDX 


LD 
RTE 


LDX 
BSI 


MDX. 


LD 
BSC 


a ; 


STO 


LO 


AND. 


STO 


MDX 
MDX 


LD 
LDX 
RTE 
LD 
BSI 


MDX 


LDX. 


LDD 
STD 
LD 

EOR 
8SC 
LD 

EOR 
BSC 
LDX 


OLMAY66 
415490B 





ps pw 


BTLNE 
KFFOO 
NOLNE 
100 

TRIAL 
RDITE 


SAVIT 
16 
CARED 
418 
PKOSW 
RDITO 


NIST | 
RCIT4 eZ 


BTLNE 
CARED 
BTLNE. 


NOLNE 
CARED 
NCLNE 


TRIAL 9-1 
ROITS 


NOLNE 
40019 
16 

BTLNE 
PRDSW 


RDITO 


-8 
CorcyY 
RRDY 
ERRET 
FEED 


/0000 
70000 
70000 
/0000 
/FFOO 
40000 
100 
/FFOO 


Sw2 
8 
RDIT6 »—- 


8 
NlST 
RDIT3 


70014 
WASSB 
EMESG43 
LCHAR 
XCHAR 
RDIT5 »t— 
CARED 
LREAD 

¢— 


1 4/0015 


1 SNOV66 
419643 


EXIT 
COASECUTIVE READ “ERROR 


ERROR - 18 
PRINT THE ERROR 


BR IF TAPE ALIGNED 


BIT LINE OPEN CK 
BIT LINE SHORT CK 


COUNT DCWN 100 MAX 


NO ALICNMENT ERROR 
ERROR —- 19 


PRINT THE ERROR 


READER READY 
CONTROL READER 


RET TO CMPRE IF SET 
TAPE ALIGNMENT 

WORK AREAS 
SAVED CKARACTER 
SOLID-LINE CHECK 
OPEN LINE CHECK 

100 TRIALS MAXIMUM 


BR IF NC REALIGN 


DATA READ ERROR 
SET ALPHA MESSAGE 


BR IF BUF S/NB CNGD 


BR IF RDR BUF CNGED 


ae en meme or ee: 


ae = ne ceenee, 


celeb a a Scie need aac a egwoutres Co faeasa ees oo Seiar Seared 


CO000C 


PART 
PAGE 


30806150 
30806150 
30806170 
30806180 
30806190 
30806200 
30806210 
30806220 


NOo 


r 


2191232 
5A 


30806230 | 


30806240 


30806250 


30806260 
30806270 
30806280 
30B06290 


(30806300 


30806310 
30806320 
30866330 
30806340 
30806350 
30806360 
30B06370 
30806380 
30B06390 
30806400 
30806410 
30806420 
30806430 
30806440 


- 30806459 


30B06460 
30B06470 


30B06480 — 


30806490 
30806500 
30806510 
30B06520 
30806530 


30806540 


30806550 
30806560 
30806570 
30806580 
30806590 
30B06600 
30506610 
30806620 
30806630 
30806640 
30806650 
30806660 
30B06670 
30806680 
30806690 


30806700 


30606710 | 


30806720 
30806730 


— 30806740 
30B06750. 


30806760 
30806770 
30806780 
30806790 


- 30806890 


30806810 
30806820 


PROG 10 


PAGE 


0308-2 
SA 





¢ 


24 


IBM MAINTENANCE CIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


0802 
0803 
0804 
6805 
0806 


oooco 


0807 Ol 


C809 
O80A 


0808 


© 


osoc 
OBUE 
O8OF 


. 0810 
o8ll 
Odl2 
0813 
0814. 


ooocoo O- oO © © © 


Gast 


0816 
C816 
osl?7 
0818 
0819 
OB81A 
0818 
c8ic 
081D 


cCooooaoo°ce 


OB1E 
C81F 
C820 
0821 


ooo°o 


C822 
0823 


oo 


0824 


(0825. 
0827. 


OQ oO 
° 


0828 01 


“0824. 
-082B. 
-OB2C | 
-OB820D . 
-O82E. 
(08 2F 


wbnioee 


DATE 


EC NO. 


Coc 
1898 
1088 | 
C018 
4002 


4C8UCT79B 


0000 
D811 
6908 


44800162 
0817 
0000 


6203 
6A07 
10A0 
D806. 
64800809 


0000 
1000 
0000 
0000 
0003 
0000 
0000 
0000 
ouco 


0000 
0000 
0000 
0000 


000U 
6907 


0809 


44800163 


0828 
64800822 


‘0001. 
-0G01,;:. 
0000 
0000... .. 
0000 — 
0000 


 O2JANC6 | 
415490 


pi rekiucs 


RDIT5 LOD XCHAR BUILD ERROR MESSAGE 
SRT 24 
SLT 8. ERROR — 14 OR 15 
LD CARED 
ESI PRDSh PRINT THE ERROR 
* 
RDITE £SC I RDIT 
SEES KKK EK KKERE ST EKRERKSSEKRKSESKSESEKKSKHKEKSE SSE KKE 
x 
x 
* FRINT ERROR SUBROUTINE 
* 
PRDSw CC /0000 PRINT ERROR RIN 
x 
STD EMESG+45 SAVE DATA WAS + S/B 
* 
STX 1 €MESG SAVE MESSAGE IC AG 
SFSESCEESKEKSE KEKKKKEK KEKE SE EKKEKKESEKEKKE SKE EKKEKEKS 
ESI I ERROR | | * 
CC EMESG MESSAGE ADDR % 
CC LOCP CN ERR ADCR~ * 
. RSE REKG EERE KEKE ERK PERE S TEKS KKK ASSES OHLS SEKE EE 
LOX 23. 
STX 2 EMESG42 
SLT 32 CLEAR ALPHA MESS 
STD EMESG43 
| LOX I0 PRDOSW NORMAL + LCOP RETS 
Ss 
BSS E 
TIMEX DOC 41000 COUNTER 
EMESG DC 40000 _ MESSAGE ID 
DC /0000 HEX OUTPUT 
DC /0003 -wORC CCUNT. 
DC /0000 ALPHA ADRS 
. oC /0000 ALPRA ADRS 
oC 40000 DSWAS 
| DC _ 40000 DSw S/B 
‘ | 
A eo | | 
CARED OC /0000. CHARACTER READ 
,XCHAR DC 40000 PUNCH. OUTPUT CHAR 
—LCHAR DC /0U00 PREVIOUS CUTPUT CHAR 
LREAD DC 70000. PREVIOUS CHAR READ 
ERE REE SAREE EE EEE EES O60 EO OES EES EEE FOE EE 
* 
s ; - en « 
* LOG MESSAGE SUBROUTINE 
x 
PTLOG DC 40000 , 
STX 1 LGMS SAVE MESSAGE ID 
& 
STD LGMS+3 SAVE MGDIFIERS 
SEES SEES EKSK KSEE SE KEKSKKESKELERRE KEKE SELES ERATED 
BSI I LOG. Ue ye ea, @ Gin 8 
DC. -LGMS - ADER OF MESSAGE * 
EAE VARESE EEE EE ESS ESES SESS EEE KHER SES HEEESEERES 
LOX 10 PTLOG NORMAL RETURN 
* Sei dh. anneten ee Risser eee ee tecn wees 
BSS El. ee 
LGMS OC -: hese, MSG ID 
DC 40000 eES OUTPUT... 
OC. 40000 . DATA IC. 
DC 40600 © ; 
a oe 40000 
 seaacegseneceeenane seegeeeaesesseseaecesseees 
* 
* TIMED DELAY SUBROUTINE 
s 
O1MAYO6 15NOV66 


pibcunin 


Ph ae Sa tS 


we LF 


PART NO. 


PAGE 


30806830 


— 30B06840 


30806850 
30506860 
30806870 
30806880 


30806890 


30806900 
30806910 
30806920 


30806930 
- 30806940 
30806950 — 


30B06960 
30B06970 
30806980 
30806990 
30807000 
30807010 
30807020 


- 30807030 


30807040 
30807050 
30B07060 
30807070 
30807080 


- 30807090 


30807100 
30B07110 
30807120 
30B07130 
30807140 
30807150 
30807160 
30807170 
30807180 
30807190 
30807200 
30807210 


30807220 


30807230 
30807240 
30807250 


30807260 
30B07270 


30807280 


30807290 


30507300 


30807310 


30807320 
30807330 


30807340 
(30807350 
30807360 
.30B07370 
30807380 
30807390 
30807400 
30807410 | 


30307420 
30807430 
30867440 
30807450 
30807460 
.308.074.70 
30867480 
30807490 


30807500 


PROG ID . 


, PAGE 


aN oO 


A 


2191232 
6 


0308-2 
6 


Stree 8 rere eee ies, 


IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR 


PAPER TAPE READER/PUNCH FUNCTION TEST 


C830 
0831 
0833 
0834 
0836 
0837 


0839 


0838 
0830 


O83F 
0840 
0841 
0842 
0843 


0844 


0846 
0848 


O84A 


(084C 


084D 
O84E 


O84F 


0850. 


0851 


0852 
0853 


0854 
08655 
0856 
0857 


0858 
OB5A 


0858 
085C 


085D 
O85E 
C860 
0861 


0862 


0863 


C864 


0865. 
0866. 
0867:. 
20868: 


O86A 
:-0868 
“Q86C” 
»086D: 
O86E: 


0870 


DATE 
EC NO. 


1. 


o 


“0 
;0 
‘0 
Ol: 


tots Bag ae at 


1 


ae 


0000 
65001000 
69E2 


T4FFOS1l6. 


7002 
4C80C830 


65000634 
6DOOVU5ET 
44800161 


0000 
CODE 
1808 
1008 
DODC 


65000001 
66000000 
+E800870 


C5000874 
DOD2 
6201 


7010 


-COCF 


1001 
DOCD 
4820 
7016 
6202 


COLE 


DOC8 
6925 


T4FFO87D 
7011 


~6200 


7102 
692U 
74F 805 7E 
7001 
TGOA 


6203 
7008 


Cols 


,00B9 


B800E. 


-DO15 


encengeet 


6101 
:6200 
. 6908 
-6A909 


4C 8008 3F 


Pa a 
%: » “ 


084A 


O2JAKN66 
4154SU 


TIME 


DC 

LOX 
STX 
MDX 
MDX 


BSC 


* 
TIME] 
PDS wX 


LOX 
STX 
BSI 


L 
L 
I 


1 
l 


40000 
4/1000 
TIMEX 
TIMEX ,-1 
TIME) 
TIME 


TIME+4 
ML SCF +42 
START 


THE 1130 SYSTEM 


SET UP COUNTER 
DECREMENT CCUNTER 
EXIT TIME UP 


SET FOR REENTRY 


RKKREKKKKKKKKKKKKREAEKEEKKSHKEKEK KSEE SE SEKE SEES 


* . 
% 
x 


* 
MARK 


DUL P 


NRIPX 


SRIPX 


BAR X 


ENR IX 


ALLBX 


EXITX> 


* 


* 
WHAT 


O1MAY 
41549 


ope tety 2 5 3F 
Pela uy Be 


DC 
LO 
SRA 
SLA 
STO 


LOX 
-LDX 
BSC 


LD 

STO 
LOX 
MDX 


LO 
SLA 
STO 
BSC 
MDX 
LDX 

LD 
~$Tto 
STX 


MDX 
MDX 
LOX 
MDX 
STX 
MDX 
MOX 
MDX 


LDX 


MDX 


LD 
STO 
AS 
; $TO 


LOX 
.LDX 
STX 
“ STX 
2BSC 


OC 


a 
03 


Ll 
L2 


I 


i. 


2 
1 


Bul 


WHAT 


BITSX 
XCHAR 
1 


EXITX 


- XCHAR 


Ll 
XCHAR 
Z 


 EXITX 


2 


2 
BITSX 
XCHAR 
COUNX 


COUNX »-l 


EXITX 
0 

i 

KOUNX 
KOUNX 9-8 
ENRIX 
EXITX 


3 
EXITX 


~COUNX 


XCHAR 


_ ONEEX 
— . COUNX 


L SOnET ASE 


1 
2. 
1. 


2. 


I 


1 

.C. 
‘DULP-1 
-OULP+1 
MARK 


NRIPX 


“1 SNOV66 
419643 


LD NEXT CHARACTER 
SUBROUTINE 


SAVE LAST CHARACTER 
INIT TEST xRl 


- — KRZ2 
GO BUILO CHARACTER 


START NEW RIPPLE 
PATTERN 


SHIFT RIPPLE PATTERN 
SKIP NEXT CH NO B1I7S 


PLACE ALL BIT CHAR 


SKIP WHEN COUNX GO O 


SKIP EXCEPT END RIPPE 
BR TO END RIPPLE ROUT 
BR TO EXIT 


END RIPPLE PATTERN 


ALL CHARS PATTERN 


ADD ONE Ie. E-.0100 


EXIT 


$44 eeRR ROSE EERE EEE CEREERESEESS SERE EEE REET ES 


RECCRD CONTROL ACRS 


por flex aa a ete oN | 
S = oe a - oe, 


PART NO. 


PAGE 


30807520 


30B07530 > 


30B07540 
30807550 


30807560 


30807570 
30807580 


- 30807590 


30807600 


30807610 


30B07620 
30807630 
30807640 
30807650 
30807660 


30807670 


30807680 


30807690 


30807700 


30807710. 
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IuM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM | PART NO. 2191232 c FOM MAINTENANCE: (OTAGNOSTIC (PROGRAM: (FOR THE DL20SovSTEn ae 
PAGE 7 | 3 
PAPER TAPE READER/PUNCH FUNCTION TEST ie PAPER TAPE READER/PUNCH FUNCTION TEST 
ats :. oe epee rt eo ues 
0872 1 0858 DC BARX 30808200 
oe on .” paces me Ge : oe seeaness 
| * 30808220 
* eoeceeaG 08A5 0 7662 ANRDY DC | 17662 NRDY 30808910 
0874 0 FFOO BITSx DC /FFOO CHARACTER PATTERN 30B08240 Q8A6 O 32A6 DC 432h6 30B08920 
0875 0 0100 ONEEX OC /0100 CONSTANTS 30808250 O8AT 0 FFFF DC /FFFF 30B08930 
0876 0 GvCO DC "/00CO 30B08260 — * 30808940 
0377 0 OOEO DC /OOEO 30808270 08A8 0631 | END PTBGN 30BU8950 
0878 0 OOFG DC /00FO 30808280 ? 7 a 
0879 0 OOF8 DC /OOF8 30B08290 
C87A 0 VOFC DC JOOFC - 30808300 i 
0878 O UOFE DC /SOOFE 30308310 
0876 0 OOFF DC /OOFF 30808320 — 
7 * 30808330 | 
os7C 0 ocuo COUNX DC 0000 WORK AREAS 30808340 | 
O87E 0 o0v0 KOUNX DC /0000 30808350 
ESSE SKEKE TEESE HEE REG EERE SHERERTS EOET EEE EE RETE 30808360 | z 
* 30B08370 
* 30808380 oo 
* ADDRESSES FOR RETURN TO 30808390 i g 
* MAINLINE AFTER INTRPT 30808400 
+ 30808410 
O87F 1 O68F SORTS DC RTNLA ROUTINE 1 30B08420 a * 
0880 1 0695 DC RTN2A ROUTINE 2 30808430 
0881 1 O69F DC RTN3A ROUTINE 3 30808440 7 
0882 1 U6AF DC RINGA ROUTINE 4 30B08450 I ~ 
0883 1. 06C2 DC RINSA ROUTINE 5 30808460 . 
RES EKERKAEK SES RERSEKSE SEEK SKE SEKERKAKEFS ESKER 30B08470 — 
ies ; 30808480 7: . 
* ALPHABETIC MESSAGE 30B08490 ig 
* STGRAGE AREAS 30808500 es 
ies * | 30808510 ) 
0884 0vu00 ass e€ 30808520 4 
0884 1 0899 wASSB DC AWAS 30808530 : 
0885 1 089C OC ASB 30808540 $3 : 
0886 1 08ac RNRDY DC ARDR 30808550 i 
0887 1 O8A5 Oc ANRDY 30808560 
0888 1 O8é8F PNRDY DC APCH | 30808570 I : 
C889 1 O8AS5 | DC ANRDY 30808580 
C388A 0 0000 TEAL DC 0 30808590 ) 
C88B 1 0892 ope ATAPE 30808600 2 
* 30808610 
O88C 0 6232 ARDR OC 16232 RDR ERRCR 30808620 
088D 0 6200 DC /6200 30808630 = 
O88E 0 FFFF DC /FEFF 30808640 
. ¢ 30808650 | 
O88F 0 Sele APCH OC /501E PCH 30808660 = 
0890 0 2600 DC 72600 30808670 : 
0891 0 FFFF | Dc JE FFF 30808680 ; 
| : * | 30808690 me 
03892 0 9C3C. ATAPE DC /9C3C TAPE ALIGNED 30808700 
0893 0 5434 DC 15434 3 30808710 
C894 0 213C DC 7213C 30808720 
0895 0 5C€20 DC /5C20 30808730 
03896 0 1474 DC 11474 30B08740 : 
0897 0 3430 Dc 13430 30B08750 
0898 0 FFFF DC /FEFF 30808760 
| * 30808770 : 
0899 0 923E AWAS DC /923E WAS 30808780 
C894 0 9AU0 oc 79400 30808790 
C898 0 FFFF DC /FFFF 30808800 7 
* | 30808810 
089C 0 219A. ASB OC 2198 S/B — CATA ERROR 30808820 
0890 0 BC1A DC /BCLA 30808830 7 
O8B9E 0 2184 DC 12184 30BU8840 
OB9F 0 2132 OC 12132 30B08850 
08A0 0 3E9E OC /3E9E 30808860 ; 
CATE OZ2JAN66 OI1MAY66 |.5NOV66 | PROG ID. 030B-2 - “ DATE O2JAN6G6 OLMAY66 8 I15NOV66 PROG 'D 0308-2 
EC NO. 415450. 4154908 419643 PAGE 7 EC NOe- 415490 4154908 419643 PAGE 7A 
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PAPER TAPE READER/PUNCH FUNCTION TEST 


CROSS REFERENCE LISTING 


SYM8OL 


ALL BX 
ANRDY 
APCH 
ARDR © 
ASB 


ATAPE | 


AWAS 


— BARX — 


BEGIN 


BITSwW. 


BITSxX 
BSYES 


BTUNE | 


BUMKQ 
CAREC 


CNTRL 
CN10 
CN20 
CN25 


CN30 . 


CORCT 
COUNX 
_ CRASF 
DINE] 
DINE2 
DINE3 
DINES 
DINES 


CINEG 


DINT 

DINTL 
DINT2 
“CINT4 
OSWAS 
DSWBY. 
DSwO! 
DSwIC 
DSwIT 
DSwWRX 
DSWR2 
DSwX2 
DUL P 

EINT 

EMESG 


END 

ENR IX 
ERLCK 
ERRET 
ERROR 
EXITX. 
FEED . 
HANDL. 
ALO. - 
dLL 
IL2 
IL3 
ALS. . 
ANTEC 
ANTEX. 
‘KFFOO 
KOUNX 
&aCHAR 
UGS. 


DATE... 
EC Noe 


VALUE 
0864 
LEAS 
088F 
086C 
089C 
us92 
0&99 
0858 
0160 
OT54 
0874 
U785 
UTE5 
G624 
O81E 


6649 
064E 
0658 
O65F. 
O66E 


~—OTET 


037D 
O6D8 


0769 


OT6E 
O777 
O778 
OTTA 
O77D 
O5FA 
O5FD 
0608 
0610 
0753 
07T51 
6629 
062A 
0623 
074D 
0745 
074C 
4840 
0617 
uB817 


016% 
0862 
0106 
OTE6 
0162 


G8oC 
‘O70C 
0626 

 O1BA 


0194 
O1AA 


018A 
0628 
062E 
‘OTED 


O87E 


- 0820 
-y, 828... 


02 JANGG .. 
415490 


0oC 6, 


REFERENCES 

0873 

0687, 0839. 

6888 

0886 

0885 

088B 

0884 

0872 7 

0000, 0631 

0746 

084A, 0855 

0712, 07265 073 52079020799 
O7BF 5 O7CF y07D1,070B 
0612,0771 

068 1g 07445 O79C 4 OTA1 oO 7A6 2 OTAB ,07C 790700 20703 ,UTFEs 
oaus 

06DC 


064C 

0651 

0665, 066B 

0635, OVAF , OTEO - 

0857, 0858, 085%, 0867 

O68F » 0697s G6A1 + 060E 

0005 — 

060D 

o77T3 

O76D, 0776 | 

071A, 072E » 073D,0768 

Oo1Cc 

0628 

0615,0718,071D 

0613 

0600 

UGE2s OOEE, 06F8,0706 

OTL 19 C717, 07259072 A90 73%, 0739 4078840792 
O5FD, 0602 

OSFF,.0608 

U5EC » 0609, 0759,0761 20769, O76E 
072D 

0719, O78E,0795 

073C 

0671» 0674» 086Cs086D 

0625 

063D, 068&,06E38,0701, 0756 s07F9,080A,080Bs080E,08115 
0813 

0000, 000), 0000, 00002050 

0860 


0782, 0786, 07E3 

0000, 080C 

OB4E , 0853 ,0B5A, 0861, 08630868 

06945 DOA, 06C 1, OTES 

OSEF 

0000. ace 

oouoO. an ee ee 
0000 )~—O ee eee me Vile eae 
0G00 

0000, 06465 

OSF A, OSFE »060A,0778 ~ 

O5EDy CSF 1 5 O5F 39062020 7001072010730 20765 
o7CO 


0350, 085E 
O7FA, 0642 
0823208240827 
OIMAY66. LSNOVe6 | 
“41549038 = - 419643 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


LOG 
LOGBY 
LooP 
LREAT 
LRIN 
MARK 
MLSCF 
NIPES 
NOLNE 
NRIPX 
NRTN 
NLST 
ONEEX 
PDS wx 
P10 
PINII 
PINTS 
PNRDY 
POF F 
POINT 
PRDSW 
PTBGN 
PTLOG 
PUNH 
RAD 
RASH 
RDBS 
RDIT 
RDITD 
ROITE 
RDITO 
RDIT1 
RDIT2 
RDIT3 
RDIT4 
ROITS 
RDITE 
READ 
RESRT 
RID 
RIDCK 
RLCF 
RMASK 
RNR CY 
ROF F 
RQKB 
RQTY 
RRDY 


RRDY2 


RTNCM 
RTNSW 
RTN1 

RTNIA 
RTNII 
RTN2 

RTN2ZA 


RTN3 
RTN3A 
RING. 
RINGA 
-RTNGL 
-RINSA 
RINSE 
“RTNSO 
“RETBL 
SAVIT 


SINT 
SORTS 


DATE 


EC NO... 


0163 
0167 
0647 
0821 
0682 
U8 3F 
O5E5 
O75F 
OTEA 
O8&4A 
0080 


O7ES8 — 


0&75 


0638 


05D0C 
O6lE 
O61C 
0888s 
O74F 
O5E9 
0809 
0631 
0822 
O72F 
O5DE 
O6DE 
0746 
0798 
O7BE 
0807 
O7A9 
o7C5 
Oo7CcC 
O7DF 
O7EE 
C802 
OTF6 
079C 
0634 
0500 
067D 
0168 
0748 
0886 
O74E 
018C 
0188 
OOF6 
0703 
Oo7C 
0165 
O68A 
O68F 
0684 
0691 
0695 
0699 
“O69F 
0646 
-O6AF 
‘O6A4 
“06C2 
06C4 
‘Q6D0 
OO7E 
O7ES 
OSFl 
O87F 


02 JAN66 
4494990, . 


autee! 4154908 a 2 


0000, 0825 


OSE 3, O6A9,06D4 
O79E,07FF 

067D 

O68A,_ 0691 » 0699, 086E 
0619, O61LE » 06672077E.0838 
O5F 7, 0789 
07C1,0702,0704,0708 
0870 

O67C 

063A, 0782, 07CC,OTFS 
0866 


0633 
O5F 9, 0607 » OO0OF 
O5F 5, 0603,0608 
O6E9 

OOEF,. 0738 
0621,0643 
O6BCs O6F 1» 07071075810 778» 0798 2070907000806, 0614 
O8A8 

0787, 0828 

068D, 0607 

0663 

0608 

06C4 
0695, 069F ,0807 
OTOE : 
07B1,07TC4 

Oo7CB 

OTAT 

O7AD 

0707, O7F5 

o7CD 

O7FC 

O7F1 

o787 

05E 4, OSE6 

0648 ¢ 064E 9 065 6,0658,0658 ,V65F 40780 
0650 


062F » O6F9, 078C 
O6FF . 

07054 0718+0763,0793 
0000 

0000 

06932 069C » 06A4- 06AC,06C0, 06FA,OTOB,OTEL 
OoFD 

O65A 

0669 

0690 

O87F : 
0641+ O67E » 0689 
G67F . 0698 | 


- 0880 


0680, 06A2 | 
088i ee 
0688 
0882 
0681 
0682,06C8 ,0600,0883 


0661, O6TA, 067C, 0670 


07A3»07TA5,07C5 
0626, 0627 
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PAPER TAPE READER/PUNCH FUNCTION TEST 


SPUR 0755 0617 

SRIPX O84F —- O87] ~ | 
START 0161 = 0000,066C,0750,083D 
SVKB 0180 

SWCMP 0683 0648 0648 .06D3 

SWO O5DF | 

Swl 0520 0649, 065%» 06A6906D1 
SW2s( O51 0637, 07B8, O7BC,07TEE 
Sw3 U5E2 

TEAL US8A 0785 

TERM U5EB | 

TIME 0830u OOF 3» 0709 »0714e0728y0 737 y 083740839 
TIMEX 0816 0833, 0834 

TIME] 0839 0836 

TRIAL O7EC O7C 35 07D5 

WASSB 0884 OTF 7 

WHAT 0870 0848 

WRECK  06A3 0678, 0686, 06D9 


XBS YX 0799 


XCHAR O8l1F 068 5,5 U6C9, O73EyOTA9,U TFB, 0802 90840 108 4C 2084F 08514 


0856, 0865 
XFEEC U716 069D,06AD 
XIOFD 07142 .OTOF, 0723 
XIORR 0744 OGAF , O7A0,0TA4S 
XxIOSD 0740 OSE A, 0686 ,06E1.06F 7207104072420 733 
XIOXX 073E 0722, 0732 
KIT 0621 0616, 0618 
XKR DY OSEO DOBC » 06938 »06AB, 06063 06E4,06F5 
XKRD2 O6ED O6E7 
XMASK 0749 0630, O6E3 
CATE 02 JAN66 O1LMAY66 1 SNOV6E 
EC NO. 4154SU 4154905 419643 
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PART NOs 2191222 
PAGE ocol 
1132 PRINTER FUNCTION TEST 
TABLE OF CONTENTS 
PARAGRAPH PAGE * 
le PURPOSE. « « 2 © © © ec eoecvscriee#eeeeee eee ee & @e& &© © @ @ 
2e PREREQUISITES oeeeenwee ete ef © © © © © ee ee el thle le 
2-1 PROGRAM REQUIREMENTS 
Zee EQUIPMENT REQUIREMENTS 
36 OPERATING PROCEDURE Ce ee ee er | 
361 PROGRAM LOADING 
3.2 PROGRAM OPERATION 
3e2el PROGRAM CONTROL OPTIONS — FUNCTION O 
3Ze2e2 ROUTINE SELECTION — FUNCTION 1 
3e2e3 GPTIONAL CONTROL 
3e2e4 LOCK ON FUNCTION CONTROL 
3.3 HALTS 
3e3e-) NORMAL HALTS 
3e3e2 ERROR HALTS 
30% PROGRAM PERCENA TION 
325 RESTART 
Se PRINTOUTS. « «© « « are, eee © © © © © © © © ©e © ew wo ew Oe 
4el STATUS MESSAGES 
4e2 ERROR MESSAGES. 
56 COMMENTS eoeeee ee ec5weertreaeereeee ese we ee eo we wo oe 
5.1 TYPICAL PROGRAM PASS 
5.2 TEST PROCEDURE 
Se2el «=60T EST ORGANIZATION | 
Se2e2 ERROR CHECKING 
5.3 ROUTINE DESCRIPTION 
vc edel «60oTEST SEQUENCE CONTROL ROUTINE - CNTRL 
5232.3 OPTIONAL TEST ROUTINE 
5.23.4 TEST SUBROUTINES 
5-325 ERROR CONTROL ROUTINES 
50306 INTERRUPT ROUTINE 
be APPENDIX eoeeee Sas > e©f © & © © © @ @ @ @ . a ae ee ee 
601 SAMPLE OUTPUT 
1. PURPOSE 
THE 1132 FUNCTION TEST IS DESIGNED TO CHECK THE OPERATING PERFORMANCE OF THE 
1132 PRINTER ANC TO AID IN ITS PROPER ADJUSTHENT. 
Ze PREREQUISITES 
201 %4% PROGRAM PREREQUISITES 
DIAGNOSTIC MONTTOR eI 
202882 EQUIPMENT PREREQUISITES 
le (4231 CPU WITH PROGRAM LGAD FROM CARDS OR PAPER TAPE AND THE 
' FOLLOWING EC®S 419622, 419625, £19633. 
2e 1132 PRINTER WITH EC 419621. 
3e AT LEAST 2000 BORDS OF AVAILABLE CORE STORAGE. 
&e ANY CARRIAGE TAPE. SEE SECTION 522-2.8 
DATE U2JAN66 OIMAY66 O1JUL66 ISNOV66 1S5JUN67 PROG ID  030C-* _ 
€C NG. 415496.. 419643 420317 PAGE 0001 
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eceuegoees 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
| PAGE 


1132 PRINTER FUNCTION TEST 


OPERATING PROCEDURE 





3. 
THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION REFER TO SECTION 342.3 OF THE 1130 DIAGNOSTIC 
MONITOR IT DOCUMENTATION. . 
3.18% PROGRAM LOADING 
STANDARD MONITOR LOADING PROCEDURES APPLY 
THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 
le SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
2. SET BIT SWITCH 15 OFF - LOAD AND GO | 
| ON - TO HALT AFTER LOADING 
IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE (SEC 3-5) 
3. LOAD DIAGNOSTIC MONITOR, AND 1132 FUNCTION TEST. 
PSPs SF : 
3.2.1 PROGRAM CONTROL — FUNCTION O 
- -).) «SET SWITCHES 0-7 TO Ol. 
2. SET SWITCHES 8-15 FOR DESIRED FUNCTION. 
Sw FUNCTIGN 
8 RESTART | 
9 ROUTINE START MESSAGE 
10 LOCK ON FUNCTION 
1) LOOP PROGRAM 
12 LOOP ON ERROR 
13 BYPASS ERROR PRINTOUT AND 1132 PRINT 
16 HALT ON ERROR 
15 HALT | 
3- PRESS INT REQ KEY ON CONSOLE} : 
ae nt 
DATE  O2JAN66 O1MAY66  O1JUL66  15NDV66 15JUN67 PROG ID 
EC NO. 415490 415490C 419643 420317 PAGE 
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PART NOw 2191222 
. PAGE 00024 
1132 PRINTER FUNCTION TEST 
3.2.2 ROUTINE SELECTION — FUNCTION 1 
THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 
1. TO SET ROUTINE SELECTION : 
A. SET SWITCHES 0-7 TO 4le 
Be SET ROUTINE NUMBER IN SWITCHES 12-15. 
RTN DESCRIPTION 
1 EMIT SEQUENCE « NORMAL ROUTINES— 
2 PRINT SCAN CHECK INDICATOR . THE PROGRAM STARTS WITH 
3 SPACE WITH PRINTER OFF « ROUTINE l»y RUNS EACH 
| é SPACE WITH PRINTER ON e ROUTINE IN SEQUENCE 
| f. 5 RIPPLE PRINT « THEN TERMINATES AFTER 
6 PRINT ALL CHARACTERS ° ROUTINE As 
7 STRESS TEST : | 
8 CHANNEL IDENTIFICATION : 
© * SKIP WITH PRINTER OFF ; 
A * SKIP WITH PRINTER. ON ‘ 
B * BIT SWITCH CONTROL « OPTIONAL ROUTINES - RUN 
- ONLY IF SELECTED 
x = REFER TO SECTION 3e203 FOR SPECIAL INSTRUCTIONS. 
Cc PRESS INT REO KEY ON CONSOLE. 
2e TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO} 
xe 
302063 OPTIONAL CONTROL - 
le PRINT ANY CHARACTER 
TEST ROUTINE 8 ALLOWS THE C.eE. TO SPECIFY THROUGH THE BIT 
SWITCHES THE CHARACTER HE DESIRES TO PRINT AND THE COLUMN IN 
WHICH IT WILL BE PRINTED. ONLY ONE CHARACTER WILL BE PRINTED ON 
EACH LINE. 
TO SPECIFY THE CHARACTER AFTER SELECTING ROUTINE B 
A. SET COLUMN NUMBER (IN BINARY) IN SWITCHES 1-7. 
Be SET THE CHARACTER CODE IN SWITCHES 8-15. 
C. TURN ON SWITCH 0. 
2. MODIFY SPACE IDLE TIME 
IN ALL ROUTINES THE PROGRAM WILL NORMALLY TAKE 16 IDLES BEFORE 
SPACING AFTER PRINT. THIS IDLE TIME CAN BE INCREASED 
OR DECREASED AS FOLLOWS. 
A. SET SWITCHES 0-7 TO Cle 
Be SET SWITCHES 8-15 TO DESIRED NUMBER OF IDLES (IN BINARY) 
Co PRESS INT REG KEY. 
3. SPECIFY CHANNEL TO SKIP 19 
IN ROUTINES 9 AND Ay A CHANNEL CAN BE SELECTED BY A FUNCTION 
2 SWITCH ENTRYe THE ROUTINE WILL THEN SKIP TO THAT CHANNEL 
ONLY. AFTER ENTERING THE ROUTINEs THE CHANNEL IS SPECIFIED 
BY SETTING THE BIT SWITCHES TO S1XXX WHERE XX EQUALS THE DSW 
BIT CODE FOR THE DESIRED CHANNEL. 
DATE O2JAN66 O1MAY66 O1JUL66 15NOQV66 15JUN67 PROG ID 030C-* 
EC NO. 415490 4154908 415490C 419643 420317 : OO02A 
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1132: PRINTER FUNCTION TEST © 


REKSLAKSKERKSESASSSSE SKE SKKES SESS S SS CLESL ESSA KES KARAS EES 
* | CHARACTER EMITTER CODE 
EKKSAKLAKLK SRST EKSSECKKSLKASEL AK SKIS TREKS TSSESSEK EES 
* CHARACTER EMIT CODE * CHARACTER EMIT CODE * 


* 1 Fl = J 
& 2 F2 * K 
x 3 F3 * L 
x & FS * | 
© 5 F5 % Ni 
* 6 F6é % 0 
* 7 FT * p 
e 8 FS * Q 
x 9 F9 = R 
& 0 FO * E 
a = TE % G 
* $ 5B % W 
% e &B * x 
* ¢ 70 = Y 
% , 6B ® Z 
% ) SD * A 
% ~ of 6 ® B 
% { 4D  & C 
* + 4&E x 0 
* / 6I * F 
* * SC * H 
hd + 5D * I 
* * S 
* % T 
8 * U 
* * Vv 
% % 


D1 
D2 
D3 
D4 
D5 
D6 
DT 
08 
D9 
c5 
CT? 
E6 
ET? 
E8 
E9 
C1 
C2 
C3 
C4 
C6 
c8 
C9 
E2 
E3 
ES 
E5 


* 


* 





SRKECSEATEAKKKKKSKKASCKLSEKRHKSKEKKSCKEKTCKSEKKKERVSKSEEUCSK ERS 


NOTE — THIS TABLE GIVES THE CHARACTERS IN THE 


NORMAL EMIT CODE SEQUENCE. 


se 


3e2e% LOCK ON FUNCTION CONTROL 


DATE 


EC ROW 


RRR AHRRARHRHAHRHREHRHRERHARERER REED E 


PART NO. 
PAGE 


LOCK ON FUNCTION WILL LOOP ON THE PRIMARY FUNCTION IN EACH ROUTINE 


AS 


NOT 


02 JANG 
415490 

















FOLLOWS. 
RTN FUNCTION 
1 | IOLE TO CHECK EMIT SEQUENCE 
20 IOLE WITH SCAN CHECK 
3 LOCK ON 15929399 OR 39 SPACES 
4 AME AS RIN 
5 BRINT RIPPLE WITHOUT ADVANCING 
PATTERN 
6 PRINT WITHOUT ADVANCING DATA. 
7 LOOP ON PRINT 
8 LOCK ON SPACE TO CHANNEL 
OR LOCK ON SKIP TO CHANNEL 
9 LOCK ON SKIP TO SAME CHANNEL. 
A | SAME AS RTN 9 
E - IN ROUTINE 3 OR 4» THE 39 SPACES EQUALS ONE REVOLUTION 


OF THE PLATTEN WHEN THE CARRIAGE IS SET TO 6 LINES PER 


- SeSecs 


6 (O1MAY6S CIJUL66 ESNOV66 LSJUNGT 
(4354908  &15490C 419643 420317 


an 


INCH. 


PROG ID 
PAGE 
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ee eee tee deem em nn ce 
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| | PAGE 
1132 PRINTER FUNCTION TEST ~ - 
3.308 PROGRAM HALTS -— 
30301 NORMAL HALTS: 
GHALT NO. =3=———~<C~CCSEESCRR PIN ; RESTART : 
e 3001 « PROGRAM STOP OR ADDRESS STOP . PRESS START 
2.3002... HALT ON ERROR . > DISPLAY MODE-PRESS START. 
e e e RUN MODE-PRESS START ° 
: * | 
30302 ERROR HALTS 
eHALT NO. DESCRIPTION : RESTART ‘ 
(8 REG). ; e ACTION oe 
. 30Fl CHECK SUM ERROR ON FIRST . —- RELOAD i 
e e CARD OF LOADER ; e ; rs) 
. 30F2 READER DSW ERROR WHEN. . RELOAD . 
e °e LOADING LGADER : ° ; ° 
. 30F3 . CARD 2 OF LOADER DID NOT. « RELOAD ‘ 
: ng LOAD ° : 
® @ @ @ 
. 30E& « CAN NOT CLEAR CORE - DUE TO . : 
e - ERROR IN ACDRESSING UPPER e e 
e °e “CORE. e @ 
. 30F5 . READER CHECK WHEN LOADING - NPRO THEN PLACE CARDS . 
; . MONITOR GR TEST PROGRAM RUN OUT IN FRONT OF ‘ 
e e a e REMAINING DECK AND PRESS. 
e @ ° START. © e 
@ e ae e e 
2 30F6 « MONITOR DID NOT LOAD e RELOAD : 
. 30F7 . ‘CHECK SUM WHEN LOADING « RELOAD : 
“ 2 MONITOR  * i: 
e @ ; e : 2 
e 30F8 . READER NOT READY. « MAKE READER READY : 
e e e , e 
° 30F9 . INVALID INTERRUPT WHICH WILL « PRESS RESET AND START 
zi a NOT PESET . : 
. 30FA . CONSOLE PRINTER HANG UP - « FIX THE CONSOLE PRINTER . 
; BUSY WILL NOT GO OFF « GR NGP THIS WAST s 




















ceEKKSE 


3.4#%* PROGRAM TERMINATION _ 


DATE 
EC NC. 


: 1g é 
IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE Aw ROUTINE B WILL RUN ONLY IF 
SELECTED. 


_ IF ANY ROUTINE iS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 


SS6eeeen 
O2JAN66 O1MAY66 O1JUL66 15N0V66 15JUR67 | ss PROG ID 


415490 4154908 . $15490C 419643 “20317 PAGE | 


2191222 
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0300C—-c 


G003A 
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305448 RESTART 


le SET SWITCHES O-7 TO Ol. 

2e TURN ON SWITCH 8. 

3e SET DESIRED CONTROL -IN SWITCHES Baise 
4. PRESS INTERRUPT REQUEST KEY. 


DATE  O2JAN66 O1MAY66 O1JUL66 15NOV66  15JUN67 
EC ND. 415450. 4154908 415490C 419643 620317 


» . 
_ 
Jo AT i ne Set cle . 


e we 


Ne 6 NE A Or ra ny Oe nee 8 


ho 


1132 PRINTER FUNCTION TEST 


4. PRINTOUTS 

ALL PRINTOUTS ARE IN 
APPNN CORR AAAA . 
OR 
EPPNN CORR AAAA 


WHERE 


NN 
RR 


AAAA 
MESSAGE 


um, 


1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1230 SYSTEM PART NO. 


PAGE 


THE STANDARD FORMAT. 


(MESSAGE) 
(MESSAGE) _ 
IDENTIFIES STATUS MESSAGES 


. IDENTIFIES ERROR MESSAGES . 


1S THE ID OF THE PROGRAM CAUSING THE MESSAGE 


THIS WILL. BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR | 


. OC FOR. MESSAGES ORIGINATED BY 


THIS PROGRAM. 


IS THE MESSAGE SEQUENCE NUMBER 
TS THE ROUTINE NUMBER 

IS THE ADDRESS OF THE ROUTINE 
IS ANY VARIABLE INFORMATION 


&ol*e*% STATUS MESSAGES . 


A0000 


NUM PID ADRS RELF LD 
XXXX AXAXKK XXKK RAK 


THIS MESSAGE 1S PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 


THE PROGRAM ID, 


THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 





AND THE RELOCATION pac vere 


A0001 


SWS PIO 
| MXKX XXKX 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 


BY THE MONITOR. 


THE MESSAGE CONTAINS THE SWITCH SETTING READ 


TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY: PROGRAM, THE WORD HALT WILL FOLLOW THE 


MESSAGE. 


AOCOO OOOR AAAA 





ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0» IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINES 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 


ADDRESS. 


AOCO] QOOR AAAA 





NRDY 
1132 


THE 1132 IS NOT READY. 


4o2%** ERROR MESSAGES 





THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 

PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR THE 
SPECIFIC PROBLEM AREA. 


‘DATE’. O2JAN66.  O1MAY66 
EC NOw. 415490 4154908 


O1JUL66 1SNOV66 15JUN67 | _ i PROG !D 
415490C 419643 #20317 . -. PAGE 


2191222 
0006A 


030C-* 


- 0004A 


ah 
* 
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£0001 


E0003 


£0004 — 


€0005 


DATE. - 
EC NO. 


on xc Cc Cc Cy © 


SHEKKKSEKRE SSE SKKACSEKSSKEKKSEKSELKSKSESTCTESE KEE KRHKEKRKKSESK SKS 


% THE 1132 DSW % 
ewe weer eww ewe we ewe mw owe <2 on on om en ae an Cae ee ae ae om ae Oo can ee te cee Oe a ED qnarce asa an & 
x - i 
2 BIT yaks, fo | - 

% 0 . READ EMITTER RESPONSE e 
= 1 SKIP RESPONSE x 
* 2 SPACE RESPONSE * 
. 3 CARRIAGE BUSY > * 
* 4 PRINT SCAN CHECK % 
# 5 PRINTER NOT READY * 
* 6 PRINTER BUSY % 
m 7 NOT USED * 
® 8 CHANNEL 1 & 
2 9 CHANNEL 2 * 
* 10 CHANNEL 3 * 
* 11 CHANNEL 4 * 
* 12. CHANNEL 5 * 
a 13 CHANNEL 6 | i 
8 14 CHANNEL 9 | * 
* 15 CHANNEL 12 : 
5. 4 


Prrererertrrrrtttrti tit oe 


SWS INVLD 
XXXX 


THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE? | 


: Prem nowonae 


OVR CORE 


THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 





CKSUAM 


A CHECK SUM ERROR WAS DETECTED WHILE LOADING THE PROGRAM. 
THIS ERROR OCCURS UNDER ANY. OF THE FOLLOWING CONDITIONS. 


Le A CARD IS MISSING OR IS OUT OF SEQUENCE. 
2e THERE IS AN EXTRA CARD IN THE DECK. — 
3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 
4- DATA WAS LOST OR PICKED UP. DUE TO A MACHINE MALFUNCTION. 
5. DUE TO.A CPU MALFUNCTION: THE CHECK. SUM “WAS NOT. a 
CORRECTLY CALCULATED. 


“WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 





- OOON . XXXX.. 


THIS: ERROR WILL OCCUR IF. AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. WN IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSWe THIS PRINTOUT WILL ONLY. CCCUR IF THE INTERRUPT IS RESET 
BY A-BOSIs: NO. ATTEMPT IS. MADE, BY-THE ERROR ROUTINE TO RESET 
THE. ‘REQUEST. BIT. Peay ay ee Bhcte ada 


15NOV66 15JUN67 
419643 420317 


_ OLMAY66. 


_, OLJUL66 
(4154908 


* #15490C 


O2JANGE . 
eae : 


PART NO. 
PAGE 


PROG ID 
PROP ss 


2191222 
0005 


030C-s 


0605 


deerme er tet ow 


ao . fo : | / Pea ee ‘ ie ; , 3 - ‘i ve 


io ( | 
ae oy Nid Le) Rod - 


LU + ts ee 
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‘PAGE 
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EOCO)l OOOR AAAA WAS S/B - STATIC DSW ERR 
XXXX OO00C 


SOME BIT OTHER THAN NOT READY OR A CHANNEL BIT WAS ON WHEN THE DSW 
WAS SENSED BEFORE GIVING AN 1132 CONTROL COMMAND. USE THE ABOVE 
DSw TABLE TO IDENTIFY THE BITe THEN TAKE APPROPRIATE CORRECTIVE 
ACTION. 


LAST OP =~ CCCC 
EOCO2 OOOR AAAA WAS S/B - BUSY OSW ERR 
XXXX XKXX 


THIS DSW WAS SENSED IMMEDIATELY AFTER THE 1132 CONTROL COMMAND 
IDENTIFIED BY CCCC WAS GIVEN. IF THE COMMAND WAS START PRINTER 
THE PRINTER BUSY BIT (6) SHOULD BE ON. IF THE LAST OP WAS 
SPACE OR SKIP THE CARRIAGE BUSY BIT (3) SHOULD BE ON. THE 
EXPECTED DSW 1S IDENTIFIED BY S/Be 


LAST OP - CCCC 
DSW - NO INTRPT 
XXXX 


EOCO3 OOOR AAAA 


NO INTERRUPT WAS RECEIVED FOLLOWING THE LAST 1132 CONTROL COMMAND 
IDENTIFIEO BY CCCCe. THE DSW WAS SENSED AFTER A TWO SECOND DELAY. 
IF THE COMMAND WAS NOT RECEIVED» A BUSY ERROR (E0CO2) WILL ALSO 
BE PRINTED. 


LAST OP - CCCC 
DSW — PRINTER STOPPED - 
" XXXX 


THE PRINTER WAS TURNED ON, SOME EMIT INTERRUPTS WERE DETECTED, 


THE PRINTER STOPPED. NO PRINTER STOP COMMAND WAS GIVEN. THE 
OSW XXXX WAS SENSED 2 SECONDS AFTER THE LAST INTERRUPT OCCURRED. 


FOCOG OOOR AAAA 


LAST OP - CCCC 
EOCOS OOOR AAAA WAS S/B - LEVI OSW ERR 
XXXX YYYY 


THIS DSW (XXXX) WAS SENSED IN INTERRUPT FOLLOWING THE 11232 CONTROL 
COMMAND IDENTIFIED BY CCCC. YYYY IS THE EXPECTED DSW. 


EMIT BIT FAILURE 
xXx00 yYO0O 


EOCO6 OOOR AAAA 


THIS ERROR. WILL OCCUR. AF. ANY EMIT BIT 3S ALWAYS MISSING (OPEN) 

OR ALWAYS. ‘On. (SHORT). “XX WILL ‘BE. EQUAL To FF IF NO” ‘BITS ARE 
MISSING... “ANY: OPEN. BIT WILE” BE IDENTIFIED” BY A-ZERO'IN THAT. BIT: 
POSITION. VY SHOULD BE ODece ANY “SHORTED BIT MILE BE. IDENTIFIED” 
BY A 1 IN, THAT. BIT. POSITION. pee 





EOCO7 OOOR AAAA EMIT INVALD 


XXXX 


THE FIRST. EMIT. “CHARACTER: AFTER. a “START. PRINTER, WAS NOT. ae 
THE XXXX. EQUALS. THE EMIT. CHARACTER: READ. a 


IF THIS ERROR PERSISTS, BYPASS THE ERROR TYPE ouT “(SWITCH a aio. 
| TIME. PRINTER WILL THEN PRINT, AND. IN ROUTINES 4 AND Sy ANY LINE 
BEGINNING WITH AN INVALID. CHARACTER WILL BE SKIPPED. 


1S5NOV6E6 = 15JUN67 PROG ID 
419643 420317 PAGE 


DATE .. O2JAN66. | 
ec NO. 415990 


OIMAY66 . 
4154908 


_ 01JUL66 
* @15490C 


. a ye | iz Do RiP. Seiten ogee fo 
huh he! Ae 
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030C-* 


0005A — \ 
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EOCO8 OOOR AAAA WAS S/B - EMIT SEQ ERR — 
XXXX YYOO 


THE LAST EMIT CODE WAS EITHER INVALID OR OCCURRED IN THE WRONG 


.., SEQUENCE. . YY IDENTIFIES THE EXPECTED EMIT CODE. SECTION 5.4 
CONTAINS A TABLE OF EMIT. CODES. 


EOCO9 ie ite és ae PRINTER DID NOT TURN OFF 





A STOP COMMAND WAS GIVEN TO THE PRINTER BUT THE PRINTER DID NDT 
GO OFF. 
E0C10 OOOR AAAA + “MULT SPACE INTERRUPTS 


MORE THAN ONE SPACE INTERRUPT OCCURRED AFTER A SPACE COMMAND, 
OR AN UNEXPECTED SPACE | INTERRUPT SL Cennevs | 





E0C11 COOR AAAA = ——~sé«LT SKIP INTERRUPTS 


‘AN UNEXPECTED SKIP INTERRUPT OCCURRED. 





€0C1l2 OOOR AAAA MISSING CHANNEL 
MX XXX 


ROUTINE 8 SPACES TO A CHANNEL PUNCH IN THE CARRIAGE TAPE, IDENTIFIES 
- THAT CHANNEL, THEN GOES TO THE NEXT CHANNEL. THIS IS REPEATED 
UNTIL 16 CHANNELS HAVE BEEN IDENTIFIED. IF ANY OF THE 8 CHANNELS 
IS NOT SENSED, THIS MESSAGE WILL IDENTIFY THAT CHANNEL. CHECK THE 

TAPE TO DETERMINE IF THAT CHANNEL WAS PUNCHED. FURTHER ANALYSIS 

OF THE CARRIAGE CONTROL (RTNS 9 + A) WILL ASSUME THAT THE CHANWEL 
WAS NOT PUNCHED IN THE CARRIAGE TAPE. 








E0C13 0008 AAAA CHANNEL SEQ ER 


ROUTINE 8 SPACES TO A CHANNEL PUNCH IN THE CARRIAGE TAPE, IDENTIFIES 
THAT CHANNEL THEN GOES TO THE NEXT CHANNEL AFTER 16 CHANNELS HAVE 
BEEN IDENTIFIED, THE PROCESS IS REPEATED WITH SKIPS. THE CARRIAGE 
IS STOPPED AFTER EACH SKIP INTERRUPT AND THE CHANNEL COMPARED WITH 
SEQUENCE DETECTED WHEN SPACING. THIS MESSAGE IS PRINTED WHEN 

ANY DIFFERENCE IN SEQUENCE IS DETECTED ( USUALLY DUE TO A MISSED 
CHANNEL INTERRUPT OR A CHANNEL NOT DETECTED WHEN SPACING). THE 
CHANNEL SEQUENCE CAN BE DETERMINED FROM THE 1132 PRINTOUT. 


EOC] OOOR AAAA | MULT CHANNEL BITS 
AXXX 


MORE THAN ONE CHANNEL BIT WAS ON IN THE DSW (XXXX). 





E0C15 OOOR AAAA ‘CHANNEL SENSE ER 
XXXX YYYY 
CHANNEL BITS SENSED IN INTERRUPT AFTER A SPACE RESPONSE (XXXX) ARE 
NOT EQUAL TO CHANNEL BITS SENSED APPROXIMATELY 1 MILLISEC LATER 
IN MAINLINE (YVYYI. SINCE NO CARRIAGE COMMAND HAS BEEN GIVEN, THE 
CHANNEL BITS SHOULD BE THE SAME. 





DATE:  O2JAN66. OLMAY66 01 JUL 66 1SNOV66 15JUN67 PROG ID 


EC NOw 425490 415490B 415490C 419643 420317 PAGE 


2191222 
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PAGE 0006A 


EOC16 SOR MAM Acs Hrs ou CHANNEL > SENSE’ ER ieee sol 
Dy ee he ON 


. THE CHANNEL BITS SENSED l MILLISECOND AFTER A SPACE RESPONSE (XXXX)» 
_ ARE. NOT EQUAL TO THE CHANNEL” BITS SENSED Leite age dee BEFORE THE 
NEXT EXECUTION OF SPACE COMMANDe ~~ 


"£0017 OOOR AAAA -~ CARRIAGE BSY 


. THE CARRIAGE WAS FOUND BUSY BEFORE GIVING A START PRINTER. THE 

“START. PRINTER: COMMAND WAS NOT GIVEN. THE PROGRAM WILL WAIT INA 
~ LOOP UNTIL THE CARRIAGE GOES NOT BUSY: THE NRDY MESSAGE (a0CO1) 
WILL BE PRINTED EACH 10 SECONDS» 1F THE LAST COMMAND: datatad ‘SKIP, 
THE CARRIAGE DID NOT STOP ea A STOP CARRIAGE bbe eeed 


DATE O2JAN66 O1MAY66  O1JUL66 15NOV66 15JUN67 PROG ID 030C-* 
EC ND. 415490 — 415490B 415490C 419643 = 420317 PAGE O006A 
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S. COMMENTS 





PAGE 


5e1**%* TYPICAL PROGRAM PASS 


IF NO OPTIONS ARE SELECTED, THE 1132 FUNCTION TEST WILL RUN 


ROUT 


5.2888 TEST 


5e2e1 TEST 
TEST 
Se202 
ALL 
1. 
DATE O2JAN66. 
EC NOe:: 415490". 


ee LINE. 


INES 1 THROUGH A THEN TERMINATE. — 
PROCEDURE 
ORGANIZATION 
S ARE ORGANIZED AS FOLLOWS. 
le INITIALIZE THE TEST ROUTINE 
A. CLEAR THE BUFFER | 
B. STOP THE PRINTER 
C. CHECK FOR READY 
D. PRINT HEADER ON 1132 
E. SET ROUTINE TERMINATION CONTROL 
2. INITIALIZE FOR THIS PASS THROUGH THE ROUTINE. 
3. EXECUTE CONTROL COMMAND 
G. CHECK FOR ERRORS 
A. CHECK DSW FOR BUSY eh 
8B. WAIT FOR TIMED PERIOD — TIME OUT IF NO INTERRUPT. 
C. CHECK EMITS FOR VALIDITY AND PROPER SEQUENCE. 
De CHECK INTERRUPT DSW 
Es CHECK CHANNEL BITS | 
S. ANALYZE ERROR DATA AND PRINT ERROR MESSAGES. 
6. GO TO 2 ABOVE IF LOCK ON FUNCTION. 
7. ADVANCE FOR NEXT PASS THROUGH THE TEST ROUTINE. _ 


8. GD REPEAT THE ROUTINE IF NOT END OF ROUTINE. 


ERROR CHECKING 


TEST ROUTINES CONTAIN THE FOLLOWING ERROR CHECKING. 


DEVICE STATUS CHECK - THE DEVICE STATUS 1S READ AND CHECKED 
AS FOLLOWS (THIS ANALYSTS IGNORES | THE CHANNEL BITS — SEE 
ee 2o2—3)e. 


A. BEFORE A TEST ROUTINE IS STARTED. THE OSW SHOULD BE ZERO. 
ANY BITS DN OTHER THAN NOT READY OR A CHANNEL BIT WILL BE 
IDENTIFIED BY A MESSAGE (EOCOL). IF NOT READY, THE NRDY 
MESSAGE (AOCO1) WILL BE PRINTED. 


B. IMMEDIATELY AFTER ANY OPERATION. THE DS® SHOULD SHOW THE 
PRINTER BUSY AFTER. A START PRINTER OR THE CARRIAGE BUSY 
AFTER A SPACE OR START SKIP. ALL OTHER BITS SHOULD BE OFF. 


THIS DSW_IS gk eT LAND. CHECKED FOR ERRORS AFTER THE OPERATION 
1S COMPLETED. - A PESSAGE (E0CO2) WILL IDENTIFY ANY RRORS« 


Ce IN INTERRUPT. THIS OSW IS CCMPARED WITH THE EXPECTED DSW 
... AND. AN ERROR. BIT SET IDENTIFYING ANY DIFFERENCES. THE 
MESSAGE (EOCOS5).. IDENTIFYING ANY. ERROR IS PRINTED IN MAIN= 
TF THE. INTERRUPT IS EMITTER RESPUNSE¢’ THE OSW SHOULD 
SHOW PRINTER BUSY. IF CARRIAGE RESPONSE, THE DSW SHOULD. 
os). SHOW CARRIAGE BUSY. IF SPACE RESPONSE, NO BUSY SHOULD BE 
OR UNLESS THE SPACE WAS GIVEN WITH THE PRINTER ON (ROUTINES). 


PROG ID 
PAGE 


LSNOV66 
419643 


1SJUN67 
420317 


OLMAY66 


O1JUL66 
#154900 


FART NO. 


2191222 


0007 


030C-* 
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PART WO. 
PAGE 


D. BEFORE A START PRINTER COMMAND TO ASSURE THAT THE CARRIAGE IS 


NOT BUSY. 
AND AN ERROR MESSAGE (€0C17) 


START PRINTER IS IGNORED IF THE CARRIAGE IS BUSY 
1S PRINTED AND THE PROGRAM 


WILL WAIT IN A LOOP, PRINTING THE NRDY MESSAGE (A0CO1) 


EVERY 10 SECONDS. 


2- EMIT CHECK 


WHEN THE PRINTER IS ON AN EMIT RESPONSE OCCURS EVERY 11 


MILLISECONDS. 


INTERRUPT IS CHECKED FOR A VALID CODE. 


THE EMIT CODE FOR THE FIRST RESPONSE AFTER 


ALL SUBSEQUENT EMITS — 


ARE CHECKED FOR VALID CODE AND FOR PROPER SEQUENCE. 


: | . THE FIRST 100 EMITS- AFTER THE FIRST START PRINTER ARE ALSO .. 
| CHECKED FOR OPEN OR SHORTED EMIT BITS. 


3e CHANNEL BIT CHECK 


THE CHANNEL CODE SHOULD NOT CHANGE FROM THE END OF ONE CARRIAGE 


COMMAND TO THE START OF THE NEXT. 


THE CHANNEL CODE IS SENSED 


IN INTERRUPT, ON RETURN TO MAINLINE FOLLOWING A SPACE RESPONSE 


INTERRUPT, AND BEFORE THE NEXT SPACE COMMAND. 


IF ANY CHANGE IN 


THE CHANNEL CODE IS DETECTED, AN EPROR MESSAGE WILL BE PRINTED 


(EOC15 OR E0C16). 
4o INTERRUPT CHECK ee 


MMAND». 


A. FOLLOWING ANY CONTROL. .COM RUPA 


TIMED LOOP FOR THE 


THE TIMER IS RESET. 
CONTROL COMMAND IS COUNTED IN 
ALL OPERATIONS TS DETERMINED 


TF ANY CONTROL COMMAND SHOULD 


THE PROGRAM W WAIT IN A 
Nate i ME AN A*ThohedtBEs OcCurs, 


THE NUMBER OF INTERRUPTS FOR ANY ONE 


INTERRUPT. . THE COMPLETION ‘OF 
IN INTERRUPT « 


FAIL TO CAUSE AN INTERRUPT 


RESPONSE, THE INTERRUPT WAIT: ROUTINE WILL TIME OUT AND 


AN ERROR MESSAGE WILL BE PRINTED.) 
CARE YACS ie aan ERROR 


ABNORMALLY (PRINTER GOES OFF¢s. 
MESSAGE WILL BE PEENTEDS 


THE FOLLOWING FAILURES 10 GET 


GIVEN. 


IF ANY OPERATION ENDS 


INTERRUPT ARE DETECTED. 


(1) NO RESPONSE AFTER A CONTROL COMMAND. 


(2) PRINTER STOPPED. BUT A PRINTER sToP COMMAND WAS NOT 


(3) CARRIAGE STOPPED But A CARRIAGE STOP COMMAND WAS NOT 


a C. THE FOLLOWING EXTRA INTERRUPT wILe, BE DETECTED. 


(1) MORE THAN ONE SPACE RESPONSE AFTER A SPACE COMMAND. 


(2) Ena RESPONSE AFTER | a PRINTER. STOP COMMAND... 


DATE 
EC NO. 


O2 JAN66 
4154990 


OLMAY66 
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(3) SKIP. RESPONSE AFTER A CARRIAGE stop COMMAND. = 
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FOR THE 1130 SYSTEM 
| PAGE 


1132 PRINTER FUNCTION TEST | 


DESCRIPTION 


THIS SECTION CONTAINS. A DESCRIPTION OF THE PROGRAM ROUTINES ‘AND 
SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR IND 


THE 


5Se3el 


DATE 


EC WO. 


O2JAN66 
415490 


TO BE RUN NEXT. 


PROGRAM AS FOLLOWS - eee eas 
1. TEST SEQUENCE CONTROL RauTINe eas 
2. NORMAL TEST ROUTINES - 
3- OPTIONAL TEST ROUTINES 
4. TEST SUBROUTINES | 
5. ERROR CONTROL ROUTINES © 


6. INTERRUPT ROUTINES | 


TEST SEQUENCE CONTROL ROUTINE — CNTRL 


THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SWI IN THE 
PROGRAM CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS 
: IF A TEST ROUTINE HAS BEEN SELECTED IT 
ESTABLISHES A TRANSFER TO THAT ROUTINE. IF NO ROUTINE IS 
SELECTED A TRANSFER IS ESTABLISHED TO THE NEXT TEST ROUTINE 
IN SEQUENCE. 


THE ROUTINE ADDRESS TABLE (RTTBC) WHICH IS PART OF CNTRL» 
CONTAINS THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE 
SEQUENCE IN WHICH THEY ARE TO BE RUN. 


THE LAST TEST ROUTINE IN THE ‘NORMAL SEQUENCE IS IDENTIFIED 
BY THE LABLE NRTN. AFTER THIS ROUTINE IS RUN CNTRE WILL 
TRANSFER TO MONITOR END AND TERMINATE THE PROGRAM, ROUTINES 
FOLLOWING THE LABLE NRTN ARE CALLED OPTIUNAL TEST ROUTINES 
AND WILL ONLY BE RUN IF SELECTED. 


NORMAL TEST ROUTINES - 


IF NO TEST ROUTINE IS SELECTED, THESE ELEVEN TEST ROUTINES 
WILL RUN IN SEQUENCE THEN THE PROGRAM WILL TERMINATE. 


le TEST ROUTINE 1 —- EMIT SEQUENCE TEST. 


THIS TEST ROUTINE IDLES THE PRINTER FOR 200 READ EMITTER. 

RESPONSE INTERRUPTS. IT CHECKS THAT NO EMIT BITS 

ARE OPEN OR SHORTED, AND THAT ALL EMITS CODES ARE 

VALID AND IN THE PROPER SEQUENCE. 
2. TEST ROUTINE 2 — PRINT SCAN CHECK INDICATOR TEST. 
“THIS TEST ROUTINE IDLES FOR THE PRINTER FOR 100 READ 
EMITTER RESPONSE INTERRUPTS,» WITH THE SCAN CHECK 
BIT (BIT 15 IN CORE LOCATION /0027) SET TO ZERO. THIS 
WILL’ FORCE A PRINT SCAN CHECK ERROR. IF NO SCAN CHECK 
OCCURS AN EOCOS ERROR WILL PRINT. 
3. TEST ROUTINE 3 - SPACE WITH PRINTER OFF. 
THIS TEST ROUTINE CHECKS FOR PROPER SPACE RESPONSE FOR 
BOTH SINGLE AND MULTIPLE SPACES. THE PROGRAM WAITS 
FOR THE SPACE INTERRUPT AND TURNS OFF THE PRINTER 


BEFORE GIVING THE NEXT S°ACE COMMAND. LOCK ON FUNCTION 
WILL LOOP ANY SINGLE GROUP OF SPACES. 
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TEST ROUTINE 4 — SPACE WITH PRINTER ON. 

SAME AS ROUTINE 3 EXCEPT THAT THE PRINTER IS TURNED 
ON BEFORE THE SPACE COMMAND IS GIVEN. 

TEST ROUTINE 5 - RIPPLE TEST 

THIS TEST ROUTINE PRINTS A RIPPLE PATTERN OF ALL 
CHARACTERS IN EMIT SEQUENCE. THE PATTERN IS PRINTED BY 
FLOATING A "ONE*® BIT ACROSS THE PRINT BUFFER (CORE 
THIS CAUSES ONLY ONE CHARACTER 
TO PRINT ONE 

THE PROGRAM 


TO BE PRINTED FOR EACH EMIT RESPONSE. 
LINE 120 EMIT RESPONSES ARE REQUIRED. 


... WILL THEN IDLE FOR 16 EMITS BEFGRE THE. SPACE COMMAND 


66 


Te 


8. 


FUNCTION 3 SWITCH SETTING). | 


LINE THE ROUTINE WILL IDLE FOR 16 EMIT CYCLES, 


(THIS SPACE IDLE TIME CAN CE CHANGED BY A 

AFTER EACH LINE THE PATTERN 
IS ROTATED, THUS ALL CHARACTERS WILL SE PRINTED IN EVERY 
POSITION. EACH LINE REQUIRES 144 EMIT CYCLES. THIS 
RESULTS IN AN AVERAGE PRINT SPEED OF APFROXIMATELY 


IS GIVEN 


37 LINES Pen AE NULE® 


TEST ROUTINE 6 - PRINT ALL CHARACTERS | 


THIS TEST ROUTINE PRINTS LINES OF ALL ONE CHARACTER. 


ALL CHARACTERS ARE PRINTED AT THE SAME TIME. THE 

PROGRAM WILL IDLE 16 EMITS BEFORE THE SPACE COMMAND 

IS GIVEN (THIS SPACE IOLE TIME CAN BE CHANGED BY A 

FUNCTION 3 SWITCH SETTING)» SINCE CHARACTERS ARE PRINTED 
IN EMIT SEQUENCE, 48 EMIT CYCLES ARE REQUIRED FOR EACH 
LINE. THIS RESULTS IN AN AVERAGE PRINT SPEED OF ABOUT 

110 LINES PER MINUTE FOR THIS ROUTINE. 


TEST ROUTINE 7 = STRESS TEST 


THIS ROUTINE PRINTS LINES OF QNE CHARACTER WITH A 


THE ROUTINE SETS THE BUFFER 
CONTROL. - AFTER EACH 

SPACE, 
ADDITIONAL 16 EMIT CYCLES SEFORE PRINTING 

THE NEXT LINE. THIS RESULTS IN AN AVERAGE SPEED OF 
APPROXIMATELY 150 LINES PER MINUTE. FAILURES SHOWN 

BY THIS TEST ARE USUALLY THE RESULT OF LOADING OF THE 

POWER SUPPLY. 


MINIMUM. OF TIME BETWEEN LINES. 
TO ONES AND PRINTS WITH NO DATA 


THEN IDLE AN 


TEST ROUTINE 8 —- CHANNEL IDENTIFICATION 


THIS TEST ROUTINE CHECKS FOR PROPER DETECTION OF THE 
PUNCHES IN THE CHANNEL 


TAPE BOTH WHEN SPACING AND 

SKIPPING. THE CARRIAGE CONTROL TAPE MAY BE OF ANY 
LENGTH WITH ANY SEQUENCE OF PUNCHES SO LONG AS THE 
TOTAL NUMBER OF PUNCHES DOES NOT EXCEED 16-6 


THE ROUTINE FIRST SPACES TO EACH CHANNEL PUNCHED IN THE 
CARRIAGE TAPE» IDENTIFIES THAT CHANNEL BY A MESSAGE 
PRINTED ON THE 11329 THEN RECORDS THE SEQUENCE IN WHICH 
THE CHANNELS OCCUR.. 


AFTER SPACING TO 16 CHANNELS» THE ROUTINE WILL SKIP TO 
EACH OF THESE CHANNELS. THE CARRIAGE 1S STOPPED AFTER 
EACH CHANNEL RESPONSE INTERRUPT, THE CHANNEL IS 
IDENTIFIED BY A MESSAGE PRINTED ON THE 11325 THEN THE 
SEQUENCE OF THE CHANNEL RESPONSE IS COMPARED TO THE 
SEQUENCE SEEN WHEN SPACING. IF THESE SEQUENCES DO 

NOT AGREE AN ERROR MESSAGE IS PRINTED. 
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9, TEST ROUTINE 9 — SKIP WITH PRINTER OFF. 


THIS ROUTINE CHECKS SKIP TO A SPECIFIC CHANNEL. A . 
START SKIP COMMAND IS GIVEN AND EACH CHANNEL RESPONSE 
CHECKED FOR THE DESIRED CHANNEL. WHEN A MATCH IS FOUND 
A STO? CARRIAGE IS GIVEN AND THE CHANNEL IDENTIFIED 
BY AN 1132 MESSAGE. THE CARRIAGE WILL ALSO BE STOPPED 
AFTER 16 CHANNEL RESPONSES wITHOUT A MATCH. 
10. TEST ROUTINE A ~ SKIP WITH PRINTER ON] 
THIS ROUTINE IS [HE SAME AS TEST ROUTINE 9 WITH THE 
EXCEPTION THAT THE PRINTER IS TURNED ON BEFORE THIS 
SKIP COMMAND IS GIVEN AND KEPT ON WHILE SKIPPING. 
TESTS FOR INTERACTION BETWEEN READ EMITTER AND SKIP 
RESPONSES. 


THIS 


OPTIONAL TEST ROUTINE —- 
TEST ROUTINE 8B — BIT SWITCH CONTROL 


THIS TEST ROUTINE ALLOWS THE CE TO SPECIFY THROUGH THE BIT 
SWITCHES THE CHARACTER HE DESIRES TO PRINT AND THE COLUMN 

IN WHICH HE WILL PRINT THAT CHARACTER. ONLY ONE CHARACTER 
WILL BE PRINTED ON EACH LINE. 


THE COLUMN NUMBER MUST BE ENTERED IN SWITCHES 1-7, AND THE 
CHARACTER CODE IN SWITCHES 8-15. PRINTING WILL START WHEN 
SWITCH O IS TURNED ON. 

TEST SUBROUTINES 


THE FOLLOWING FUNCTIONS ARE PERFORMED BY SUBROUTINES IN THE 
PROGRAM. 


le INITIALIZE - CLEAR THE BUFFER, STOP THE PRINTER, CHECK 
FOR READY, AND PRINT THE ROUTINE HEADING ON THE 1132.6 


SET THE SCAN COUNT, 
THEN WAIT FOR 


2e PRINT — CHECK FOR CARRIAGE BUSYe 
START THE PRINTER» CHECK THE BUSY DSW, 
THE SCAN COUNT TO GO TO ZERO] 


‘CHECK FOR CARRIAGE BUSY, 
THEN WAIT FOR 


3. IDLE - SET THE IDLE COUNT, 
START THE PRINTER, CHECK THE BUSY DSW, 
THE IOLE COUNT TO GO TO ZERO. 


@. SPACE — STOP THE PRINTER» CHECK FOR CHANGE IN CHANNEL 
CODE, START SPACE, CHECK THE BUSY DSW, THEN WAIT FOR 
THE SPACE INTERRUPT. 


5. SKIP — SET DESIRED CHANNEL CODE, START SKIP, CHECK 
BUSY DSW, THEN WAIT UNTIL A CARRIAGE STOP IS GIVEN IN 
INTERRUPT. 


6. STOP THE PRINTER — STOP THE PRINTER “AND RESET ALL 
PRINTER TEST CONTROL WORDS. 


7. PRINT 1132 MESSAGE - SET UP THE MESSAGE BUFFER USING 
A MESSAGE CODE IN THE CALLING SEQUENCE. THIS MESSAGE 
CODE IDENTIFIES THE PHRASES CONTAINED IN THE MESSAGE 
TABLE WHICH ARE TO BE WSED IN THE MESSAGE. 


8. RIPPLE PATTERN - IDOLE UNTIL MATCH BETWEEN EMIT AND 
FIRST CHARACTER IN NEXT LINE’ WHEN MATCH FUUND SET 
FIRST BIT IN BUFFER,» INITIALIZE FOR PRINT RIPPLE, 
THEN GO TO PRINT SUBROUTINE} 


9. CLEAR BUFFER - CLEARS BOTH THE 1132 MESSAGE BUFFER AND 
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THE PRINT BUFFER-CORE LOCATIONS /0020-/0027. ALSO SETS 


THE SCAN CORELEDE BIT - BIT 25 IN CORE eeeee TON /0027. 


Yo. SET’ BUFFER TO ONES - SETS ALL BITS ON IN CORE LOCATIONS 


£00eo TO /002T. 


Paine uuERMOR MESSAGE 
PRINTS NRDY IF 


READY - CHECKS 1132 FOR READY. 
IF ANY BIT OTHER THAN NOT READY UNe 
NOT READY BIT ON. | 


lle 


12. FORM CHECK = CHECKS FOR ae CHECK AFTER SPACE OR 


SKIP. PRINTS NROY IF FORM CHECK. 
5.3.5 ERROR CONTROL ROUTINES 
1. INTERRUPT WAIT ROUTINE 
ALL SUBROUTINES COME HERE AFTER THE START OF AN 1/0 
OPERATION FROM WHICH AN INTERRUPT IS EXPECTED. THIS 
ROUTINE RESETS ALL ERROR CONTROL WORDS, SENSES AND 
STORES THE BUSY DSW,e THEN WAITS IN A TIMED LOOP (AT 
LEAST 2 SECONDS) FOR THE OP COMPLETE INTERRUPT. 
IF NO OP COMPLETE INTERRUPT IS RECEIVED THE FOLLOWING 
ERROR MESSAGES ARE PRINTED} 
A. EOCO2 IF BUSY DSW ERROR 
Be EOCO3 IF NO INTERRUPT 
If AN INTERRUPT IS RECEIVED THIS ROUTINE WILL CHECK 
FOR PROPER PERFORMANCE OF THE OPERATION. THE FOLLOWING 
_ CHECKS ARE MADE AND ERROR MESSAGES PRINTED IF 
- APPROPRIATE. 
A. EOCC2 IF BUSY DSW ERROR 
Be E0CO5 IF INTERRUPT DSW ERROR 
Ce. EO0CO6, EOCO7 OR EOCO8 IF EMIT ERROR - 
OD. £E0C15, IF CHANNEL CODE CHANGED AFTER SPACE RESPONSE. 
THE ROUTINE WILL THEN CHECK FOR NOT READY (USUALLY DUE 
TO FORM CHECK). IF NOT READY, NRDY IS PRINTED. IF 
READY, THE ROUTINE WILL RETURA TO THE 1/0 SUBROUTINE 
FROM WHICH IT WAS ENTERED. 
(2. PRINT ERROR MESSAGES | 
THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE | 
MESSAGE IS THE FIRST ERROR MESSAGE FOLLOWING AN 1/0 
CONTROL COMMAND A LAST OP MESSAGE WILL PRECEED THE 
ERROR MESSAGE. THIS LAST OP MESSAGE WILL IDENTIFY 
THE LAST I/9 CONTROL SPERATION EXECUTED. THE ERROR 
MESSAGE FOLLOWING REFERS TO ERRORS DETECTED IN THAT 
OPERATION. 
5.3.6 INTERRUPT ROUTINE 
ALL INTERRUPTS ARE HANDLED BY A COMMON INTERRUPT ROUTINE. THIS 
ROUTINE SENSES AND STORES THE DSW» SERVICES THE APPROPRIATE 
RESPONSE, CHECKS THE DSW FOR EXPEZTED BITSe THEN RETURNS TO THE 
MONITOR INTERRUPT ROUTINE} 
1. READ EMIT RESPONSE 
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* 22130 - 1132 PRINTER FUNCTION TEST. 
QE es ee ee ee ee cee ree ce anes eouse= 
SSESEESS SSE SHHESSESESSKEESK SSS SRSKES SHES EERE SSSI 
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oes eenenses cecceceseseuecescees seeecesessese 
s EQUATE TABLE 
$86 60800 908 $4560 508 058054 O84SSS £848 088e SETS 
* THIS TABLE EQUATES TEST PROGRAM LABLES 
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e ADDRE SSES~ 
& 
$i momen ——— ——— ne ae ee ee 
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> es ae ee ee ee ee ee eee 
BEGIN EQU 4160 BEGIN ROUTINE 
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ERROR EQU  _ START#1 ERROR LOG ROUTINE 
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.— ae ee ee re ee ee eee ee 
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0 ae ewe wren a ee ewes owe ewe wee ewes oe owen: 
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S wd ‘pc © +s PROGRAM: CONTROL 
SWl DC e—-& ROUTINE SELECTICN 
Sw2 OC aS SCAN START CHARACTER | 
SW3 OC 18 SPACE AFTER PRINT OLY 
“OC |. STRT 
oC STRT RESTART ADORESS 
* . 
MLSCF DC 8 *-# SET BY WAIT RTN AND SON 
oC *—t SET BY CNTRL AND IANRTPT 
OC SFEFF TERMINATOR 
KSEKEEKESK ESE SEKSSE KEKE SESS SKSHKO SKS SHER GEESE SE SKE 
* a TEST INITIALIZATION 
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STO RAD 
STO L RINSW SET RTN START Sw 
STO MLSCFel § SET MLSCF FOR RETURN 
BSE I START GO TO MONITOR 
@ ; 
RIOCK OC LRIN-RTTBLOL 
RTNOM OC NRIN-RTTBLOL 
3 ; 
on , ———— Ten ae eee eee oe ere 
© ROUTINE ADDRESS TABLE 
, cn ci aa snisataa' doit 
RTTBL OC TSTl EMIT SEQUENCE TEST 
pc -——ti‘éT STR SCAN CHECK TEST 
DC TST3 SPACE TEST 
pc 3—-—«ST'ST4 SKIP TEST 
oc TST5 ROTATING PAT TEST 
oc TST6 ALL CHARACTERS TEST 
DC TST7 FAST PRINT TEST 
oc TST8 CHANNEL SEQUENCE TEST 
oc TST9 SKIP- PRINTER OFF 
NRTN DC TSTA SKIP- PRINTER ON 
LRTN OC TSTB MANUAL CONTROL 
2% 
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, | TEST ROUTINE 1 

OOF $8000 SES 69548 FES FF 74 FSSEEESS ONES EESEEESES 
® CHECK EMIT SEQUENCE AND NORMAL PRINT OSW 











S se 
TSTL BSE L INTL2Z GO INITIALIZE ROUTINE 
- pc 10048 EMIT TEST 
tox 1 100 | | 
STX £1 LPCNT SET LOOP COUNT 
s . 
_  -$TX L Loop SET LOOP ADORS 
TOLA LOX L2 /8200 | 
| Lox 11 SET IDLE CNT 
BSI «& OLE 
BSE & LocK CK FOR LOCK ON FUNCTION | 
MDX. & LPCNT»-l ADV LOOP CNT 
MOX ——‘TOLA _— 
BSI L CNIRL GO TO CONTROL RTN 


s TEST ROUTINE 2 
SSSESCSSEKSSVE SSKSKSE EEE SERS ESSE SVE EVES SSEESESSSS 
@ CHECK PRINT SCAN CHECK INDICATOR 
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TST2 BSE & INTLZ GO INITIALIZE ROUTINE 
pc ~—« 0088 SCAN CHECK TEST 
ox 2 100 oo ae 
—STX U2 LPCNT SET LOOP COUNT 
s 
| STX LL coop SET LOOP ADURS 
TO2A SRA 16 _ 
. §t0 bt 39 CLEAR BIT 15 LOC 39 
«LOX =6L2 78A00 SET TO CK FOR SCAN CK 
tox 11 _ SET OLE CNT 
8SI t IDLE 
8SI t LOCK CK FOR LOCK ON FUNCTION 
MDX L LPCNTe-1 ADV. LOOP CAT 
MDX: TO2A oe re are 
BSI CNTRL GO TO CONTROL RTN 
eS . ~ 
€ 


| SST SSCKKS SSS SE KES SES SEKESESKSSESSS ESTE SESE SESSS 


O3APRET 
4196430 


1SNO V66 
419643 


OLJUL 66 


4154908 415490C 


PART NO. 


PAGE 


30C€01390 
30€01400 
30C01410 
306C€01420 
30C01430 
30€01440 
30C01450 
30001460 
39C01470 
30C01480 
30C01490 
30C01500 
30C01510 
30C€01520 


30€01530 


30C01540 
30€01550 
30€01560 
30C01570 
30C01580 
30C01590 
30€01600 
30C01610 


-30€03620 


30C01630 


-30C01640 


30C01650 
30C€01660 


- 30C01670 
- 30€001680 


30C01690 
30C€01700 
30C01710 
30C01720 
30C01730 
30C01740 
30€01750 


 30C01760 


30C01770 
30C01780 
30001790 
30C01800 


-30€01810 
_30C01820 


30C01830 


30001840 


30C01850 


— 30C01860 


30C01870 


- 30001880 


30C01890 
30C01900 
30C01910 
30C€01920 
30C€01930 


-30€01940 


30C01950 
30C01960 


- 30001970 


30C01980 
30C01990 


— 30€C02000 


30C02010 
300602020 


-30C02030 


30C02040 
30€02050 
30C02060 


PROG ID 


PAGE 


2191220 


2 


030C-2 
: 2 


ao fF AO 


— = -- 


omume mee ote wee 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEA 


0652 
(0654 
0655 


0656 


0657 
0659 
0658 
065C 
06 5E 
0660 
0661 
0663 
0664 
0665 


06 66 


0667 


0668 


066A 


066C 
0660 
0570 


0672 


06 74 


(0675 


0677 
0678 


0679 
06 7A 
0678 


Q67C 


0670 
06 TE 
06 7% 
06 80 
0681 
06 82 
06 83 


— 0684 


0685 


0686 
0687 


0688 
068A 


Ol 


Ol 
Ol 
Ol 
O1 


01 


oo ooo 


eoooo0oo0oo0oo0o0oo0oodcdeo eoo 


DATE - 


EC NO. 


440008AD 
0110 
63F4 


 ©B22 
6COOOACB 


67800679 


C7000686 
0011 
C7000687 | 


1888 


040006C8 


1090 
1808 
0021 


co20 


DOLE 


440008F7 
| 14FF0686 


TOFS 


44000946 


0000 
440009EF 


T4FFO6CS8 


TOF 1 


74026679 
7OEL 
4087 


0000 
9002 


— 0501 


9004 
0502 
9008 
0303 
9010 
0304 
9080 
0109 
9200 
0127 
0000 
0000 


440008AD 


O21E 


O2JAN66: 


415490 


=" 1232 PRINTER FUNCTION TEST 











PART NO. 2191220 


PAGE 
& TEST ROUTINE 3 30C0207C 
SSSSEEE ESTE SEKEKS SES FOSS SE ESEESESKSES SKEET STEESEUSSS 30C€02080 
* THIS ROUTINE CHECKS FOR SPACE RESPONSES 30€C02090 
* AND CHECKS THE OS cs | 30C02100 
9 a ee —_—— = 30C02110 
* ~- 30C€02120 
TST3 BSE CL INTLZ GO INITIALIZE ROUTINE —30C02130 
oC 70110 SPACE TEST -PRINTER OFF 30€02140 
LOx 3 -l2 — 30C02150 
STxX 3 T3CTL SET TEST CONTROL 30€02160 
* : ) ~ 30€02170 
? - - $TX -L tooP SET LOOP ADDRS 30002180 
TO3A LOX [3 T3CTL ‘LO CONTROL 30€02190 
- LO L3 T3CTL¢13 “LD MSG CONTROL ~ 30C02200 
STO TO38 30€02210 
LO 3 T3ICTL +14 LD NO. OF LOOPS * SPACES 30C02220 
SRT 8 30C02230 
STO t CLPCNT 30C02240 
SUT 16 30C02250 
SRA 8 : 7 — 30C02260 
STG £SAVE3 SAVE NUMBER OF SPACES 30C02270 
e nS 30C02280 
TO3Al LO — SAVES) LO NUMBER OF SPACES ~30C02290 
$To SCNT 30C02300 
e , 30C02310 
s:  - | 3 | 30C02320 
To3C )6BSI)h6hCUL SPACE . -30C02330 
. 3 ; - 30€02340 
“MDX FL SCNTe-l CNT SPACES 30€C02350 
— MOX TO3Cc | 30C02360 
- BSI CL. PRSG P2INT 1132 MSG 30€02370 
T038 OC e—% : | 30C02380 
BSI t LOCK CK FOR LOCK ON FUNCTION £30C€02390 
* : 30C02400 
MDX L LPCNT el 30C02410 
MOX TO3Al 7 30C02420 
* | 30C02430 
MOX L T3CTLs2 ADv CONTROL 30C02440 
MDX TO3A 30C02450 
«BSI CNTRL GO TO CONTROL RTN - 30002460 
* | ~ 30C02470 
T3CTL OC s—% JEST 3 AND 4 CONTROL 30C02480 
OC 49002 SPACE 1 30002490 
DC | 40501 of 30C02500 
oC 49004 SPACE 2 ~  30C02510 
Oc 40502 30C02520 > 
Oc 490G8 SPACE 3 ~30C02530 
OC 40303 | 30€C02540 
OC — £9010 SPACE 4 30C02550 
oc 10304 ~ 30C02560 
oC 49080 SPACE 9 — 30C02570 
OC 40109 | —30C02580 
OC 479200 SPACE 39 30€C02590 
OC 10127 - 30C02600 
SCNT OC | e-8 30C02610 
SAVE3 DC e—3 — 30002620 
* | _— : . 30002630 
BSS SESS SSE SESKESES SEEEEEKSS SEES SEES STESEEERS . 300602640 
. ‘TEST ROUTINE 4 —-30€02650 > 
FSESSES SEKE EEKES SESE SEEKS SEEEDEKEE SEES SEES SEES 30C02660 
* THIS ROUTINE EXECUTES SPACE COMMANDS IN ' 30C02670 
-% INTERRUPT WITH THE PRINTER ON. CHECK IS MADE — 30C02680 - 
'* FOR SPACE RESPONSE AND FOR PROPER DSW -30C02690 
FSETETSE SESS SHSSEK SESS SSKESTSSESSESSS SESS SKSEKSESESS -30C0270C 
* gPige ga AR 8 io a 30€C02710 
TST BSI LC INTLZ GO INITIALIZE ROUTINE 30C02720 
— 0C — — JO2IE SPACE TEST -—PRINTER ON - 30C02730 
s | 30C02740 
' OLMAY66 OLJUL66 1S5NOV66 O3APR67 PROG IO 
4154908 415490C 419643 4196430 PAGE 
\ He - ~ ‘i _ \ o S 
Cee -, Sea | oe. Se ee Sai : Siw, 


2a 


030C-2 
Za 
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1132 PRINTER FUNCTION TEST | 


0686 
06 8C 


06 8D 
06 BF 
0691 
0693 
0694 
0696 
0697 
0698 
0699 
069A 


0696 
069C 
069€ 
06 9F 
O6A1L 


06A3 
0645 


O6A6 


06 A8 
O6 AA 


06 AB 


06A0 
OOAE 


06 BO 
O6B2 


06 B3 


0684 


0686 
0687 


0688 


066A . 


068C 


O6BE 
06CO 
06Cl 
06C3 


06C4 


06C6 


06C7 
06C8 
06Cc9 


OATE 


ooo oeooocdco 


00 
Ol 


Ol 


01 
Ol 


Ol 
Ol 


EC NO} 


63F4 
6BEC 


6COOOACB 


67800679 


C70006 86 
D011 
C7000687 
1888 
0030 
1090 
1808 
OOEC 


COES 
04000C03 
6101 
66008200 
440008D1 
£40 00946 
0000 


440 009EF 
74FFO6CSE 


TOFO 


74020679 . 


70E1 
#4000600 


440008AD 
0408 


-61CF 


6000098C 


- 6132 


690E 


- @C000ACB” 


#4000982 


440009EF 


740 1098C 
1000 _ 
T4F FO6C6 
TOF6 


44000600 
0000 


0031 
0000 


0032 


0 2JAN66 
415490 © 


TOSAl 


T048 
i 


% 


* THIS. ROUTINE PRINTS A ROTATING PATTERN. 


Ox 


STX 


STX 
tox 
Lo 

STO 
io 

SRT 
$TO 
SUT 
SRA 
sTO 


Lo 


$ToO. 


Lox 
LDXx 
BSI 


BSI 
OC 


BSI 
MOX 
MOX 


MDX 
MDX 


BSI 


[3 
3 


3 


L 
L 


-12 
T3CTL 


Loop 
T3CTL 
T3CTL41L3 
T04B 
T3ICTL#¢14 


8 
LPCNT 
16 


8 
SAVE3 


SAVE3 
SPCSX | 
1 
48200 
IOLE 


PMSG 
G—% 


LocK 


LPCNT pi 
TO4Al 


T3CTL 92 
TO4A 
CNTRL 


SET FEST CONTROL 
SET LOOP ADORS 
tO CONTROL 

LO MSG CONTROL 


tO NO. OF LOOPS *# SPACES 


SAVE NUMBER OF SPACES 


LO NUMBER OF SPACES 
SET TO SPACE IN ENT 


PRINT 1132 MSG 


CK FOR LOCK ON FUNCTION 


ADV CONTROL 


GO TO CONTROL RTN 


F$SESSSESS SSS SSESSES SKS SESS ESESEKS SESS SEES ESSSS 


TEST ROUTINE 5 7 
SSEECHRS HOSS SHSEHS SES SESEESHESESS SESE SEEESSE EES 


THE 


* PATTERN IS GENERATED BY FLOATING A BIT ACROSS 
* THE PRINT 


* 
TST5 


s 


cd 
TOSA 
e 


s 
e 
TOoS5C 


TO50 


= 
LINES 
NO49 
LPCNT 
NO50 





BSI 
oC 


Lox 


STX. 


tox. 


STX 
STX 
BSI 
BSI 


MDX 


NOP 


MDX 
MDX 


BSI 
oc 
oc 


OC 
OC 


0 IMAY 66 


#154908 . 








BUFFER. | 
tu INtL2 GO INITIALIZE ROUTINE 
70408. —s RE PPLE PATTERN TEST 
1-49 
Ll RIPL341 SET EMIT CHAR CNT 
1 50 | SET LENE COUNT 
1 LINES 
t woop SET LOOP ADORS 
L RIPL GO PRINT ONE RIPPLE LINE 
lt LOCK CK FOR LOCK ON FUNCTION 
L REIPL341,1 ADV CHAR FOR NXT SCAN 
SAFETY NOP 
L LINES»-1 AOV LENE CNT 
~. Fos . | | 
tL ocNTRL GO TO CONTROL RTN- 
Oo. LINE CGUNT . 
49 | 
0 LOOP COUNT 
50 | 
OlJUL66 15NOV66  O3APRO7 
415490C 419643 


4196430 


co Fee, ae ae —, ty : 2 
ee OS re . i ree: i a i . 
| \ ar ae ; 
ee,  y / oe es { A j / ee 

‘ 1 


PART NO. 


PAGE 


30C02750. 


30C02760 
30C02770 
30C02780 
30C 02790 
30C02800 
30C02810 
30€02820 
30C02830 
30C02840 
30C02850 
30CC02860 
30C02870 
30C02880 
30C02890 
30C02900 
30C€02910 
30C02920 
30C02930 


30€C02940 | 


30€C02950 
30C02960 
30C02970 
30C02980Q 


30C02990 


30C03000 
30C03010 


30C03020 
30C03030 


30C03040 
30C03050 
30C03060 


30C03070 
30C03080 


30C03090 
30C03100 


30€03110 — 


30C03120 
30C03130 


30C€03140 


30C03150 
30C03160 
30C03170 
30C€031680 
30C€03190 
30C03200 
30C03210 
30C03220 
30€03230 
30C03240 
30C€03250 
30€C03260 
30C03270 
30C03280 
30C03290 
30C03300 


30C0331¢C._— 


30C03320 


30€C03330 


30C03340 
30C03350 
30C03360 


30C03370 | 


30C03380 


30C03390 | 
30C03400 


30C03410 
30C03420 


PRGG ID 


PAGE 


‘ oe 


{ 


2191220 
3 ( 


 O6CA 
O6CC 


06CC 
O6CE 
OOCF 


06D1 
06D2 


06 D3 
0605 
0606 


0608 
06 DA 
f 06 0C 
: O60€E 
O6EO 


O6E 2 
O6E 4 
ce O6E5 
06E7 
O6E 8 


06E9 
06 EB 
| 06 EC 


06 EE 


. O6F O 
| OOF 2 
O6F 3 
| 


06F5 


O6F7 


O6F 8 
O6OF9 


OG FA 
OOF C 
O6 FE 
O6F F 
0701 


0702. 


0704 
0706 
0708 


O70A. 


030C—2 DATE 


a 


Se 


00 
ol 


00 
Ol 


ol 


01 
01 


ol 
Ol 


Ol 


ol 
OL 


Ol 


Ol 


01 


3 , EC NOe. 





- 440008AD 


0808 


6100 
690a 


6COOOACB 


6132 
69F5 


66008200 
6101 
44000801 


65000000 
C4000COA 
D40009EE 
95000CEA 
4C1 806E9 


T4FFOBLA 
TOEC 
74FFO6CS 
70E8 
7002 
440009C F 
6101 
440008C6 
440009EF 


74010609 


TODE 


44000600 


440008AD 
6021 


6164 © 
69CC . 


6COOOACB | 


440 009C F 
6101 


440008C6 


6110. 

66008200 
44000801 
C4000COA 
DSO009EE 


440007EF 


02JAN66 


415490 


4154908 


1132 PRINTER FUNCTION TEST 


#SSESSSHSSESE SKSSS SKS SHES SSSES SESE SELES SESE SESESSESE SESS 


ROUTINE 6 
SSSESEEKSE KEE SESKSS SHE SESS SESH SESE SESE SKSESE SS SSS SKE SSSS 


s 


* 


on oe. Ps of * on Ps 
Se, a, ee, ha sy Kee Lo 


TEST 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 11230 SYSTEM 


* THIS ROUTINE PRINTS LENES OF ONE CHAR 
* UNTIL ALL 48 CHARACTERS HAVE BEEN PRINTED 


bs 

TST6 BSI 
oC 

& 

TO6A LOX 
STX 
STX 

s 

TO6B LOX 
STX 

= 

TO6C LOX 
Lox 
BSI 

s 

TO6D LDX 
LD 
STO 
Ss 
BSC 

e - 
MDX 
MDX 
MDX 
MDX 
MDX 

: | 

TO6E 8SI 
LOX 
BSI. 

| BSI 

od 
MOX 
MDX 
BSI 

* 

& 


L 


er 


PP PRP Pe 


INTLZ 
40808 


-46 
TOEéDel 
Loop 


50 
LPCNT 


48200 
1 
IOLE 


e~ 

EMIT 
ALEM 
CHAR 48 
TO6Es + 


[CNT »-1 
TO6B 
LPCNT o-l 
Tosc 


TO6E+2 


Al 

1 
PRINT 
LOCK 


TO6D+1,1 
TO68 
CNTRL 


GO INITIALIZE ROUTINE 
ALL CHARACTERS 


SET CHAR CNT 
SET LOOP ADDRS 
SET EMIT LOOP CNT 


SET OSw S/6 
SET IDLE CNT 


XRI=EMIT TABLE POSITION 
CHECK IF CHARACTER [IS 
STORE EMIT 

TO BE PRINTED 

VES IF BRANCH 


SKIP LE INTRPT CNT#=1 
AFTER SO CONSECUTIVE 
EMITS — SPACE 
THEN CONTINUE 


SET PRINT BUFR TO ONES 
SET SCAN CNT 


CK FOR LOCK ON FUNCTION 
ADV TO NXT CHAR © | 


GO TO CONTROL RTN 


+S STSEKS SEE SEKSESE HSS SERS EKEEESSE STKE SESESEESESESSES 


TEST ROUTINE 7 
#SESCTESE KES SEKEKSEKE SETS SSSESESSE SEES SESECESESES 





tu 

& 

TST? BSI 
DC 

& 
LOX 
STX 

& 

STK: 

TO7A BSI 
LOX 
BSI. 
LOX 
LOX 

BSI 

LD 
STO. 

= 
BSI 

s 

O IMAY 66 





* THIS ROUTINE PRINTS LINES OF ALL ONE CHARACTER 











Lo INTLZ GO INITIALIZE ROUTINE 
78021 STRESS TEST 
1 100 SET LINE COUNT 
1 LINES 
t Loop SET LOOP ADORS 
tL al SET PRINT AREA TO ONES 
ro SET SCAN CAT 
L PRINT GO PRINT 
1 16 SET FOR 16 IDLES 
L2 8200 SET OSW S/B 
L 10LE 
L EMIT 
t ALeEM 
L LOCK  —sCK- FOR LOC® ON FUNCTION 
OLJUL6E  15NDV66 03APRET7 
154906 «419643 4196430 


an a a. ne ae yore 
Co) oe a 


PART 
PAGE 


30C93430 
30€C03440 
30C€03450 


30C03460 | 


30003470 
30603480 
30C03490 
30C03500 
30003510 
30003520 


30€03530. 


30C03540 
30C03550 
30€03560 


30C03570 
30C03580 - 


30003590 
30C03600 
30C03610 
30C03620 
30C03630 
30C03640 
30C 03650 
30C03660 
30C03670 
30C03680 
30C 03690 
30C93700 


30C03710 | 


30C03720 
30C03730 
30C03740 
30003750 


30C03760 > 
30C03770. 


30C03780 
30C03790 
30C03800 
30C03810 


30603820. 
30€03830 


30C03840 
30C03850 
30C03860 


30C03870 


30C 03880 
30C03890 
30C03900 
30C03910 
30C03920 
30C03930 


30€ 03940 | 


30C 03950 
30€C03960 
30C03970 
30C03980 


30603990 | 
30004000 | 
30004010 
30604020 
30C04030 
30004040 - 
30004050 


30C04060 


30C04070 


30C04080 


30C04090 | 


30C04100 


PROG ID 


PAGE 


NO. 


2 


t 


2191220 


3A 


030C-2 
3A 





























IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191220 ; | IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191220 
| | PAGE & { ae PAGE 4A 
4132 PRINTER FUNCTION TEST = eo eer S oe | 2 _ 1132 PRENTER FUNCTION TEST... . 
O70C O1 74FFO6C6 MOX & CLINES»e—l UPDATE LINE COUNT -. 30004110 | 0755 0 6A74% SYX 2 SHIFT 30004790 
O70E O TO0ED 4 MDX TOTA - 30604120  . 0756 OL 4C200748 - BSC t TO8A),Z .BR FOR 2ND CHECK - 30004890 
- OTOF O1 440606000  & — BSI Lk. CNTRL - GO TO CONTROL RTN . , 30004130 ; 0758 O1 740L07CA  MOX CL SHIFT». | -.- 30004810 
Bik ° Saas a PE oo. @ Vigne - 30C€04140 .. O754 01 740107CB TO8AZ2 ROX L SHFT2e] _ - 300046820 
| SRETESCSKS SSS FEKTE SES SESE S SOE SEES SHES SE SESESES 30004150 Sl ig-s gets & pee. Sees : oo 30004830 
—® INITIALIZATION FOR ROUTINES. 899~¢ AND A - -30C04160 ; - O75C 01 440009EF TOosB BSI t LOCK | CK LOCK Sw _. 30004840 
SEKSESH SESS SEKRSSE SES SHEETS SSKESEE STEE SESSSSESS 30C04170 - . OT5E 0 C068 ». LO. —. SEQSW | PaeF. - 30004850 
® THIS ROUTINE IDENTIFIES THE SEQUENCE OF PUNCHES | 30C04180 - OT5F 01. 4CLB80764 - BSC & TOR» |. : _ 30C04860 
® IN THE CHANNEL CONTROL TAPE. - 30C04190 .... O761 O1 . T4FFO6CE  MOX LL. LPCNT,-1 DEC LOOP CNT _. 30004870 
fc a a ae ~ 30C04200 - 0763 0. 70CB /... MOX TOBA a . 30C04880 
bes te, SE C.F 6 He Bee te - co - .30€04210 | va oe i Mla, 7 es tele s2A - 30€004890 
0711 0 0000 INS9A DC e-¢ a ie -. -30C004220 . 0764 0. C068 TOBsC LD — WVCHNRE se, _ .30€604900 
. OT12 O CO6C _ --- £o  -“SWE9A ; Me ak eR seh 300604230 . 0765 O1 FeOOOBFF . EOR & KFFOO 7 30C04910 
0713 O1 4C2GOT75 | BSC L [BGAXe2 BR IF INITIALIZED * 30004240 | _. 0767.0 9060 .STO . TEMPS -- 30C€04920 
~. 0715 0 6869 -- STK -- Swega Be eee! ae ee -. 30004250 ; iS, he hl : | a ee 30004930 
- 0716 O01 440008AD ‘BSE &  INTL2Z - GO INITIALIZE ROUTINE 30604260 c | 0768 00 65000000 TO8D LOX AL] *-# XR1=CHANNE L_ NUMBER - . -30€04940 
0718 0 7000 ~~~. DC 7000 . *°30C042T70  OT6A 01 44280A5B | BSE Lb ERRIZ2etZ PRINT MISSING CHAN MSG $$30C004950 
, @ ~  - 30€04280 ; _ . O76C 01.74010769 | MDX & TO8D+1»,l ADV TO CK NEXT CHAN 30C04960 
0719 00 65000080  €OxX Ll 176 SET FOR 176 SPACES 30604290 i O76e 0 C059 LO TEMPS | . 30004970 
0718 0 69AC STX 1 LPCNT ‘30C04300 O76F 0 1001 | — Sta. 1 | SHIFT TO NEXT CHAN 30004980 
-o71C O 1810 SRA. -.sd«'26 ' 30€04310 ; 0770 0 0057 J STO TEMPS bul, ee _ 30004990 
o710 0 610F : tox 1 15 yee - ,30C04320 re 0771 02 4C200768 = BSC t 19080,2 °}3#4«Bk IF MORE ERRORS - 30€05000 
O71E O1 OS50007BE STO 1&1 CH1I2S-1 _ 30C€04330 & ss | - 30C05010 
0720 0 TIFF . .MOX L-)l | = _ 7 _ 30004340 : | | : ne : 28 no 4 oe .. - 30€05020 
0721 0 7OFC  .MOX °° S=4 30004350 i 0773 0 1810 | SRA 16 - 30€05030 
0722 0 6101 tox | a 30C04360 O774 O 0052 STO SEQSW _ -30C05040 
0723 0. 6945  $YxKX  & Toepeh - | 30004370 : : ; & | ee | | - 30C05050 
. 0724 O1 6DOOOTCA . STX LI SHIFT > . 30C04380 .. o7 75 OL 440008F7 I89AX BSI Ct SPACE AOVANCE TO THE NEXT + 30C05060 
0726 Ol 6DOOOTCB . STX tL SHFT2 30004390 .  OT77 OL OCOOOBLA - &®IOQ b& SENSE-12 $$CHANNEL PUNCH BEFORE _.30C05070 
0728 Ol C40009B4 to t «sooo . | | ; - 30C04400 fo O779 O1 ECOOOBEE OR tL WAS STARTING TEST ROUTINE 30€05080 
O72A O1 040007C7 : STO t SEQSW SET SEQ Sw — - 30€ 04410 | 0778 O 1008 ; $LA 8 : . | 30€05090 
. é = | 30004420 es .. O77C OL 4CA00711 BSC I INB9AezZ - . 30605100 
& pee conte eae anienen aneenis emer er renee ee - 300604430 _ . O7T7E O TOF6 OX 1 8SAX | . o 30€C05110 
_ @ SPACE TO CHANNELS ~~ a 3 - 30004440 : io dase. Dus ee ee | | a | -  30C05120 
eae eae a ee eee ~-- 30004650 O77F O ocOoOd - $4B9A DC Sue | 30C05130 
* : ) . 3 Pa a 30C04460 . » es 2 , wy : be ee, 30€05140 
O72C Gl 44000946 BSI t PNSG MSG— SPACE TO CHANNEL 30C04470 f a as 4 & SF CORSE SED FE EES SES SESE E SESSESE SESS TVSESSEE SESS 30C05150 
“OT2E 0 9C00 oc 79C00 - 4SG CONTROL 30004480 . hE 4 cc. TEST ROUTINE 8. sen & He a8 30C05160 
s sie 300604490 _ <n a FSS STESES SSE SSESESS SES SEEKS SH SESTSEES SESE SESEES SES 30C05i370 
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* FOR REPEAT OF CHANNEL SEQUENCE. ~ 30C04690 2 2 : wy - hie --30C05370 
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074A O1 C40007CC LO L° LTSEQ “LOAD LAST SEQUENCE '  30€04720 0796 00 66005000 LOX L2 /5000- _ SET BUSY DSW S/B _ 30€05400 
074C 0 1200 SLA -20 —. CHECK FOR REPEAT . 30€04730 O798 OL 44000919 8 BSE SKIP f he 3 - 30005410 
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O7AE 


= 


O7 AF 
0761 
0762 
0783 
0784 


- 


Qo 


0786 
OTB? 


oo eoode ecoooeoooeocs 


0758 
O7BA 
o76C 


ooo 
a 


o76C 


© 
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SLCA 30 IDENTIFY CODE 
SLT 32 
to 3 CH12S-1 LD SEQUENCE FOR THIS CHAN 
RTE 2 Q-~— : ek Se aie 
oR 3 CH12S-1 
RTE 1o : RTE BY SHIFT FACTOR 
SLT: 20 
ANO TEMPS CK FOR PROPER SEQ 
BST L: ERR1I3Zet— BR IF SEQ ERR: 
. $70- | TEMPS ..: om ——_ 
2 i i De Lea G5. | | 
to. t WAS. "£0 OSW 
StA -  §=6 8 : . 
BSI CHMSG MSG- CHANNEL X 
-0C + #££8500 
LOx {l TO8xlel 
‘ ee ae 
MOX 4tl-1l 
MOX TO8F 
s | | 
BSI t tLOcK CK FOR LOCK ON FUNCTION 
MDOX L& LPCNT,»-1 DEC LOOP COUNT 
MDX TOBE BR IF NOT FINISHED 
s -_ . eas ~ 
BSI cL CNTRE 
s 
— ao ree ee ee es ee ee eee 
s CHANNEL SEQUENCE TABLE 
ne eee pases 
& 
CxHi2sS OC s—s8 
CH9SQ OC s—-8 
CH6éSQ OC c—f 
CH5SQ OC e—8 
CH4SQ DOC t-s = 
CH3SQ OC w—8 
CH2SQ DC s—3 
CxH1SQ DC — BB : 
SEQSW OC s-& SEQ SW 
TeaPpse OC s-% 
DC Bek 
SHIFT OC s—% 
SHFT2 OC s—6 
LTSEQ OC s—s ee 
VCHNL OC s—-¢ BIT SET. FOR EACH CHAN DET 
i 7 
2— —_— —_ ——-—— 
s PRINT CHANNEL MESSAGE 
Gan Freer amen aes eee ees quenesus queer areas 
® 
CHasGc OC . t—8 
BSC t CHAZ, 
Sto TEMP8+¢l1 SAVE CHANNEL CODE 
LOX 1T 
SLCA 10 IDENTIFY BIT 
SLA l 
BSC t& ERR1LGeZ ERR IF MORE THAN 1 BIT 
e 
to SEQSW uD SEQ Sw 
OR Ll CHl2Ss 
STO 1 CH1I2S 
sta LTISEQ 
Lo SEQSW tO SEQ Sw 
SRA i ADV SEQ 
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s A : 
Lo ll CHTBL LO ASG 
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O7E2 


O7E4 
O7TE6 


O7E7 
O7E9 
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O7ER 
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O7F9 
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G8 00 
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0610 
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0821 
0823 


DATE 
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$TO to 
to i CHMSG 
STO CHAl 
BSI tL PMSG PRINT 1132 MSG 
CHM1 DC t-¢ MSG CONTROL 
¢ | 
om TEMPS) 
CH42 MDX L CHMSGel 
| BSC I CHMSG 
aos | 
CHTBL OC JF IF2 12 
— OC /=900 9 
oC 4F600 6 
oC 4—500 5 
OC | 4F400 4 
oc 4&300 3 
OC 7F— 200 2 
oc fF 100 1 
* 
$SESKERT EES £EB8E SES SEEKS SEESESE SESE SEEEEEESE 
s TEST ROUTINE 9 


SSF SEKSES SSS EETHS OHS FESEHECE SESE SESS SKEEES EES 

@ THIS ROUTINE WILL SKIP TO EACH CHANNEL IN 

* ORDER, STARTING WITH CHANNEL ONE. PRINTER Is 
* OFF DURING THE SKIP OPERATION. 
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B 
TST9 BSI & INTLZ GO INITIALIZE ROUTINE 
| OC 12020 MSG CONTROL 
oc 42020 MSG CONTROL 
BSI Lt INS9A : 
‘ 7 
LO =t «8000 
STO TEMPS a 
a , : 2 
STx & LOOP SET LOOP ADDRS 
TO9A BSI L& SPACE ‘ 
LO LL Sw2 LD SELECT CHANNEL SWS 
SLA 8 Py 0% ) 
BSC bt TO9B,2 BR IF Sw ENTRY 
& 
| LD TEMPS LD SKIP SEQ Sw 
AND VCHNWL CHECK FOR VALID CHNL 
BSC L TOK, 
a | ; 
TO9B BSI CHMSG MSG- SKIP TO X 
GC /AD00 MSG CONTROL 
BSI t stop STOP THE PRINTER 
a , , 
LO TEMPB 41 LD SKIP SEQ Sw 
LOX 2 /5000 SET BUSY DSW S/B 
BSI tL SKIP : | 
& 
me 
LO & WAS LO OSW , 
SLA 8 LOOK AT CHANNEL BITS 
BSI CHMSG MSG— CHANNEL X 
oC 78500 MSG CONTROL 
BSI Lt LtocK CK FOR LOCK ON FUNCTION 
s : 
TO9C LD TEMPS LOD SKIP SEQ Sw 
SRA 1 SHIFT FOR NEXT CHANNEL 
STO TEMPS : re 
SRA 8 
BSC Lk TO09Ar2 LOOP IF NOT ZERO 
BSI &. CNTRL 
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FSESKSEKSE SES SESSKS SSS SSSTSESEESSSE SESS SEEVESSES 


O3SAPR67 
4196430 


1SNOV66 
419643 


OLJUL 66 
415490C 


O LMAY66 
4154908 


(oa Re tale bitin atalino nate Sasaatinics, eo tn 


OOCT 


PART NO. 


PAGE 


2191220 
SA 


30C06150 — 


30C06160 
30CG6170 


30C06180: 


30C06190 


30C06200. 
30C06210. 


30C06220 


30C06230 
30006240 
30C€06250 
30C06260° 
30C06270 - 
30C06280° 


30C06290 


30C06300 


30€C06310. 


30C06320 
30C06330 


30C06340. 
30C06350 
30C06360 © 


30C06370 
30C06380 
30C 06390 


30C06400 


30€06410 
30C06420 
30006430 
30C06440 


30C06450 
30006460 


30C06470 


30C06480 
30C06490 


30C06500 
30C06510 


30C06520° 


30C06530 


30C06540 . 
30C06550 . 


30€C06560 
30C06570 
30C06580 
30C06590 
30€C06600 
30C06610 
30C06620 
30C06630 
30€06640 
30€C06650 
30C06660 
30C06670 
30C06680 


300606690 
30006700 


30€06710 
30C06720 


30€06730. 


30C06740 
30C06750 
30C06760 


30C0677T0 | 
30C06780 


30C06790 


30C06800 . 
30C06810 
30C06820 © 


PROG ID 


PAGE 


030C--2 
SA 


pa 














IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1132 PRINTER FUNCTION TEST 


0825_ 


Os2T 
0828 


O82A 
08 2C 


08 2C 
08 2F 
0831 
08 3.3 
08 34 


08 36 
08 37 
08 38 


08 3A 
08 38 
08 3C 
08 30 
08 3F 
06 41 
08 43 


08 45 


0847 


0849 


0648 
0840 
08 4E 
08 50 
0651 


0853 
0855 
08 56 
0858 
0859 
0858 


085D 


O6SF 


0860 


0862 


—™=@ _ee 


00 
OL 


00 
ol 


ol 
Ol 
01 
Ol 
ol 
Ol 
Ol 


Ol 
Ol 


DATE 
EC NO. 


440CG08AD 


AO2E. Cit; 
44000711 


C40009B84 
0098 


6COOOACB 
440008F 7 
C40005E1 
1008. 
4C20083A 


co91 
E095 
4C160853 


4093 
ap00 


6101 
66008200 


44000801 
650003E8 


6D000BFD0 


Cc4c007c9 


66005200 
44000919 


C4000BEE 
1008 
440007CE 
8500 
440009EF 


c40007C8 
1801 
040007C8 
1808 
4C20082F 
44000600 





‘#4000840 
‘0000 


44800163 


O8A6 . 





O2JAN66 


415490 


F Pg ws 
44 


x 


* ON OURING THE SKIP OPERATION 


s— -—- eeeeeneamaat 
s ie 
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& a) i 
: to t& «8000 
$Tta TEMPS - 
* ; 
STX & ‘LOOP 
YTOAA BSI CL SPACE 
to t Sw 
SLA 8 =.8. 
a BSC t TOAB,Z 
s 
4 Lo - TEMPS 
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es BSE tL SKIP 
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TEST ROUTINE A 

FSH SESE TESS CEEKE SSE ESSE EEESEESE SEES SEEEEESE SSS 

* THIS ROUTINE WILt SKIP TO EACH CHANNEL IN 

* ORDER, STARTING WITH CHANNEL ONE. PRINTER IS 
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SLT 
$To 


BSC 


STx 


“LOX 


TOBC 


TOBD 


STX 


LOX 


LDOXx 


BSI 


to 


BSC 


MDX 
MDX 


OX 


TOBE 


. STO- 


RBSWS 


TEMPB 


BSHS 
“PCOLN 
“K16 

_.K00 30 
“SETUP 
ChHID 


OIMAY66° O1JUU66° ISNOV66 
415490C 


MOX 


MDX 


LD 


SRT 


D 


$TD 


tox 


Lox 


Lo 
SRA 
OR 


LOX 
BSI 


BSI 


MDX 


BSS 
oc 
oc 
OC 
oc 
oc 
OC 
DC 
DC 
oC 


OC 


DC 
DC 
oc 


4154908 


i3 
3 


il 
[2 


NAN 


OTe Tee 
) ) oo) ee 


SS ee 


wi 
ee 


RBSWS 


BSwWS 


—=—-TOBB, 42 


TOBA 
ML SCF] 


WAITS 


‘Loop 


50 
LPCNT 


18200 
1 
IOLE 


EMIT 
CHID 


TOBE, + 


ICNT e-l 


TOBA 
“LPCNT 9-1 


TOBC 


-TOBF 


PCOLN 


16” 
‘X16 


TEMPS 
TEMPB 41 
TEMPS 


‘K8000 


0 ‘ 
32 


32 


: je 


PRINT 
“LOCK 


TOBA 
o- 


‘BSwsS 


43A00 


— 
oe 
‘e-8 
‘ge . 
16 


9030 


0 


“AB SW 
i ee 


419643 


1130 SYSTEM 


READ THE BIT SWS 


USE SWS IF SW ZERO ON 


LOOP UNTIL Sw ZERO ON 


REMOVE SW ZERO 


PUT 8-15 IN EXT 


STO COLUMN NO. SWS 1-7 


“STO CHAR ID 


BYPASS PRINT UNLESS A 
VALID CHARACTER ID 


SET LOOP AODRS 
SET EMIT LOOP CNT 


SET OS SJB 
SET IDLE CNT 


CHECK IF CHARACTER IS. 
TO BE PRINTED 


YES IF BRANCH 


SKIP IF INTRPT CNT=1 


BR IF MISSED AN EMIT 
LOOP FOR 50 


SEQUENTIAL 


EMITS 


SPACE IF NO MATCH 


LO COL NO. 


XR1=BUF WORD BIT POSITION 


XR2=BUF WORD NUMBER 


SET BIT IN BUFFER - 


SET SCAN CNT 


‘CK FOR LOCK ON FUNCTION 


1OCC TO READ BIT SWS 


PRINT COL STORED HERE 


O34PR6T 
4196430 


PART NO. 


PAGE 


30C07510 
30C07520 
30C07530 
30C07540 
30C07550 
30C07560 


“30C07570 


30C07580 
30C07590 


-30C07600 


30C07610 


(30C07620 


30C07630 
30C07640 
30C07650 


-30C07660 


30CO07670 


30C07680 


30C07690 
30C07700 


-30C07710 
'30C€07720 


30C07730 
30007740 
30C07750 
30C07760 
30C07T70 
30C07780 
30C07790 
30007800 
30C07810 
30007820 


-30€07830 


30C07840 
30C07850 
30C07860 
30C07870 
30C07880 


-30C07890 
-30C07900 


30C07910 
30C07920 
30C07930 
30C07940 
30C07950 
30C07960 
30C07970 
30C07980 
30C07990 
30C08000 
30C08010 
30C08020 
30C08030 
30C08040 
30C08050 


30C08060 
30C08070 
30C08080 
'30C08090 
30C08100 


30C08110 
30C08120 


30C08130 
‘30008140 


30C08150 
30C08160 


30C08170 
30C08160 


PROG 1D 
PAGE 


2191220 


6A 


030C=-2 
6A 
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IM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SVSTEM PART NO. 2191220 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOw 2191220 
€ PAGE 7 , PAGE 7A 
c 1132 PRINTER FUNCTION TEST . “—_— oats - | | 1132 PRINTER FUNCTION TEST. 
C * 30C08190._ ; O8EB O01 6EOO0AD0 STX L2 OP SW St¢T LAST OP SW 30C08870 
#SESTTE FOES EKEES SES SEETSE SESSEEES EKECHSESEESSES 30C08200 . O8ED OO 67000200 |. tox L3 /0200 _ BUSY OSwW S/B 30C08880° 
* INITIALIZE SUBROUTINE . os 30C08210 | OBEF O1 6FOOOBIC STX L3 TBOSW. — SAVE BUSY OSW S.’B 30C08890 
C = BESTE SH SSS OF SSE HEESESESESESHESESE SESS EERESEESED 30C08220 | O8Fl O01 OCOOO09B2 XIS t STPRT-1 START THE PRINTER 30C08900 
| . | 30€08239 O8F3 O1 440G0AE6 | BSI t WAIT WAIT FOR INTERRUPT 30C08910 
O8ACD O OOOO | INT&GZ OC s-3 hae 30C08240 — O8F5 O01 4C8008D8 BSC If PRCOM . 30C08920 — 
c O8AE. 01 44000934. BSI. & stop STOP THE PRINTER 30008250 | * | | | 30C08930 
s 30C08260 | | 2S SESS SHS CESSES LSE SESS ESSE SESS ESTES SESE ESTE 30C08940° 
_ 0880 01 4400098A | BSI> t CLEAR | SET PRINT BUF TO ZERO 30C08270 | ar sf SPACE SUBROUTINE 30C08950 
08 82°01 D*eQ0OOACB. STO tL coop... RESET LOOP ADDRS 30C08280 © Le ES &SSC SERS EES FESS EEE SEKKEKESESE SE SESSEESEESSESS 30C08960 
| og | = Bey eine | 30C08290 | . - < | | 2oCOs7To 
0884 01 44000839 BSI & READY CK FOR READY. ‘ 30C08300 | O8F7 0 O00O - SPACE DC = B= anit 30C08980 
= } * _ — 30C08310 | O8F8 O 4041 BSI STOP STOP THE PRINTER 30C08990 
0886 0 4040 BSI SPACE ; 30C08320 . O8F9 Ol C&000AE6 LD tL wWAayT 30C09000 
O8B7 0 403F BSI SPACE 30C08330 O8Fe@ O01 4C180909 BSC tL SPCL_~eH BR ON FIRST SPACE 30C09010 
a s 30C08340 O8FD O 6116 LOX. 2/16 | ERROR NUMBER 30C 090 20: 
0888 O01 C48008AD | tO 8 86f INTLZ LD MSG CONTROL 30C08350 | O8FE O1 OCOOOBLA KIO & SENSE-1 SENSE DSw 30C09030 
O88A O01 4C€1808C2 BSC L INT29% BR IF ASG CONTROL=ZERO 30C08360 | 0900 01 D4&000AE4% _ STO & CHWAS¢L 30€09040 
x 30C08370 | 0902 01 F4000AE3 EOR t CHWAS CHECK FOR CHANGE 30C09050 
ossC 0 D002 STO INT1 SET CONTROL 30C08380 | 0904 0 1008 SLA 8 IN CHANNEL BITS 30€C09060 
O8BOD 01 44000946 BSI tL PMSG PRINT 1132 ASG 30008390 | 0905 01 44200A8B BSI L ERR1G659Z ERROR IF CHANGE 30C0907TU 
O86BF O 0000 INTL OC s-s SG CONTROL 30C08400 7 0907 Vl 44000853 BSI L FORMS 30C09080 
& | 30C08410 * . 30C09090 
O8CO 0 4036 BSI SPACE 30C08420 0909 00 66002000 S$PC1 20K L2 /2000 30C09100 
06Cl 0 4035 BSI SPACE 30C08430 | 7 . 0908 O01 6E000BFB STX L2 EXPCTel SET EXPCT FOR SPACE 30C09110 
| es 30C08440 O90C 01 66000054 LOX L2 ASPC | | 30€09120 
G8C2 01 7401L08AD INT2 MOX & INTLZ ok 7 : 30C08450 O90F O1 6EQOOADO STX t2 OP Sw SET LAST OP Sw 30€C09130 
O8C4 O1 4C8008AD BSC & INTLZ. RE TURN 30C08460 r 0911 01 OCOOOBF4 XIO tt STSPA=-1 START SPACE | 30C09140 
s 30C08470 0913 01 C4000989 LO tL «LOO0O LO CARRIAGE BUSY BIT 30C09150 
SOSSKLS S SSS SHSESST SHS SSKSKSE HSS SESS SESH SKSSSESSTS 30C08480 0915 O1 44Q00AE6 BSI Lt WAIT WAIT FOR INTERRUPT 30C09160 
& | PRINT SUBROUTINE os 30C08490 | s 36C09170 
SOS SHSKS S OSE SESKS SSS FEEKSKETSES KE SKSS SESKSS SES : 30C08500 | 0917 01 4C8008F7 BSC I SPACE RETURN 30C09180 
e 30C0e510 : : S — | | | 30C09190 
08C6 0 0000 PRINT OC t—8 | 30C08520 | . FKEKEEEKS SHS SSSSSE ES HOECTS SESE SESE SESS CEES ES OES 30C09200 
O8C7 O1 C40005E2 to t& Ssw3 | ee 30008530 Z  & SKIP | | | 30C09210 
O8C9 01 D*000B8FD STO t IJOLCT SET FOR PRINT | . 30C08540 : SSF SESCSETSS CHKKRS SHS SHES SSKSKSE SKE SESS SKSKSOSSSS 30C09220 
08CB 00 66008200 LDX L2 78200 | SET FOR PRINT OSt& 30C08550 a * 23 a 30€09230 
O8cD 0 400A 8SI PRCOM a, . 30C 08560 0919 0 0000 SKIP OC s-¢ | 30€C09240 | 
O8CE 0 4028 BSI. SPACE - | 30C085T0 091A 0 0010 sto SKPTO SET CHANNEL CODE IN SKPTO 30C09250 
O8CF O01 #C8008C6 BSC I PRINT | 30C08580 So 0918 O1 6EQOOBFB STX 2 EXPCTel SET FOR SKIP INTRPT. 30C09260 
| : * | Sf: -~ 30C08590 091D O01 44000853 | BSI t FORMS | 30C09270 
OFS OSSSE SSS SHEET SSE ISTE SESFESKE OHSS SSOSSESSS 30C08600 O91F O 6210 LOX 2 16 | 30C09280 
e IOLE SUBROUTINE 30C08610 | . : 0920 0 6Al1L8 STX © 2 SKCNT SET FOR MAX OF lo SKIPS 30C09290 
&OCSOSS SEES SEEKS SSKSESERECSSISLSESSSE SOSSSSSOS 30C08620 0921 O01 C40009B9 LO t& «1000 30C09300 
a — ; 30C08630 0923 01 ECOOOBFA OR Lt EXPCT SET FOR SKIP WITH 30C09310 
08D1 0 OOOO fOL1E OC s-3 30C08640 fe 0925 O01 D&000BFA STO bk EXPCT PRINTER ON 30C09320 
O8D2 01 6D000BFD STX 01 IOLCT SET TOLE CNT 30C 08650 0927 01 6600005B LOX L2 ASKP SET LAST OP Sw 30C09330 
08D4 0 6100 LOX 10 | mo 30C08660 | 0929 01 6EOOQ0OADO STX L2 OP SW FOR SKIP ; 30C09340. 
0805 0 4002 BSI PRCOM 30C08670 i 0928 O1 OCO009B4 X10 LC STCAR-1 START SKIP | 30C09350 
O6D6 01 4C8006D1 . BSC ff IDLE Pie. <0 30C08680 © O92C O01 C4000989 LO t «1000 LD CARRIAGE BUSY BIT 30€C09360 
* ) | | 30C08690 — (O92F O1 44000AE6 BSI tL WAIT | 30C09370 
$C ee ee eee ee ee ree ree re ee 30C08700 | : ; * . | | | 30C09380 
s PRINT COMMON 30C08710 . 0931 0 4008 | BSI STOP i. | : 30C09390 
¢— a ee 30C08720—=CO«w 0932 O1 OCQOOBLA SKPL XIO kL SENSE-1 SENSE OSW 30C09400 
s | : ei | 30C08730 0934 0 1003 ’ SLA 3 . LOOP HERE UNTIL | 30C09410 — 
0608 0 0000 PRCOM DC -9 | | 30C08740 | 0935 01 4#C900919 BSC [ SKIPe- CARRIAGE BUSY GOES OFF 30C09420 
O8D9 O01 6D0CCSFO STX £1 SCNCT SET. SCNCT FOR IDOLE 30C08750 | 0937 0 TOFA. MOX SKPL ; 30€09430° 
O80B Ol GEOQOOBFA STX L2 EXPCT 30C08760 7 s _ ee | 30C09440 
s 30C08770 | 0938 0 oO0O0 | SKPTO DC e-8 ~ $KIe@ TO CONTROL 30€C09450 
O8DD O1 OCOOOBIA PRCR XIO. LL SENSE-1 . SENSE DSH et | 30C08780 | 0939 0 0000 . SKCNT DC o-8 SKIP COUNT 30C09460 
O80F O01 04000A0D STO L OSwt STO IN MSG | | 30C08790 * ) | - ae 30C09470 
O8ElL O 1003 . SLA. 3 | . . 30C08800 $SOSSSEKE SES SEEKS SKE UESESE SEES EESEESEESSESRESSHESSS 30C09480 
O8E2 O01 4C1OO8E7 : BSC tL PRC2,- BR IF CARG NOT BUSY 30C08810 | —— * | STOP THE PRINTER 30C 09490 
O8E4 O01 44000A92 | BSI lL ERRIT PRINT ERR MSG 30C08820 : | : © SS SKKE SEES HERSEE SES ORS TERSSKES SESE SSESSESSESS 300609500 
O8E6 0 TOF6 MDX PRCL 30C08830 | : 2 | | 30C09510 : 
* , a 30C08840 093A 0 0000 stop oc t-6 30C09520 
O8E7 01 44000853 PRC2 BSI L FORMS | . 30C08850 0938 01 OCOOOBEC X10 tL STPPT-i STOP PRINTER 30€09530 | 
O8E9 01 6600005E LDOx 2 APRT | | | 30C08860 0930 0 1810 SRA 16, 30€C09540_— 
DATE . O2ZJAN66 OLMAY66 O1JUL66 I5NO0V66 O3APRE67 PRUG 1D 030C-2 | DATE O2ZJANG6 OILMAY66 O1LJUL66 8 I15NOV66 8 O3APRE67T PROG 1D 030C-2 


EC NO. 415490 415490B 415490C 419643 4196430 PAGE 7 EC NO- 415490 4154906 415490C 419643 + 196430 PAGE TA 
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ve | 


040008 F 4 


093E 
0940 O1 D4000BFA 
0942 01 D4000B1C 
0944 01 #C80093A 
0946 0 0000 
0947 O1 C40005DF 
0949 0 1000 
094A 01 4€280974 
094C 0 4CED 
094D 0 10A0 
094E O1 C4800946 
0950 0 610E 
0951 0 4828 
0952 9 TI1OF 
0953 0 1002 
0954 0 D05D 
0955 01 6TO00DAE 
09570 7001 
0958 0 7301 
0959 0 C058 
095480 1140 
095B O1 4C180974 
095D 0 F056 
095E 0 0053 
O95F Ol CSOO0DCE 
0961 0 0001 
0962 00 C4000000 
0964 0 £052 
0965 O1 &C180958 
0967 0 FO4F 
0968 0 18C8 
0969 0 1008 
0964 0 0300 
0968 0 1090 
096C 01 4C180970 
O96E 0 7301 
096F 0 0300 
0970 0 7301 
0971 G1 74010963 
0973 0 TOEE 
0974 0 6131 
0975 00 66008200 
0977 0 6310 
0978 01 6FOOOBFD 
0974 01 6C0009B8 
097C. 01 44000808 
O9TE O1 74010946 
0980 01 4C800946 
0982 0 0000 
DATE 02 JAN66°. 
ENO. & 15490 
ue 


1132 PRINTER FUNCTION TEST 


STO 

STO 

STO 

BSC 
= 


onl ae ee 


EMTSW 
EXPCT 
TBOSW 
STOP 


RESET 1ST EMIT Sw 


RE TURN 


SSS SHES S OES SETES SES ONSET SEEEESES EESESSESEREED 


s 


L 


PRIAKT 1132 
SKS SKSSESSSES SSEHEESSS SESS ESESESESESES SSEEEEEESEESVSS 


Gm S 
SwO0 
13 
PMS4,7Z 


STOP 


32 
PSG 
14 

oZ 

15 

l 

SAVE 
BUF. 
PMS1?e]. 


l 

SAVE 

0 
PNS4_t— 
x 8000 
SAVE 
PMTAB 
++) 

sf 
TERM 


—PMSle te 


TERM 
8 
8 
O 


16 
PMS3_9+ 
l 

O 


l 
PMS241,1 
PMS2 


49 
48200 
16 
10ccT 
MSGSW 
PRCOM 


PMSGel 
PMSG 


MESSAGE SUBROUTINE 


DO NOT PRINT IF 
BYPASS MESSAGE SWITCH 
IS ON 


LD MESSAGE CONTROL 


CK FOR EXTENDED TABLE 


KR3=BUFFER ADDRS 


PUT SPACE IN MSG 
LD MESSAGE CONTROL 
SCAN CONTROL 

BR IF CONTROL ZERO 


SAVE CONTROL FOR NXT SCAN 
LD MSG ADDRS 


LO MSG CHAR 
CK FOR TERMINATOR 
BR IF TERM 


RESTORE CHAR 
SHIFT OUT 2ND CHAR 


STO CHAR IN BUF 


BRItG IN 2ND CHAR 
BR IF ZERO 

ADV BUF ADORS 

STO CHAR IN BUF 


ADV MSG ADORS 


LD SCAN CNT 

LO EXPECTED INTRPT DSW 
SET FOR 16 IDLES 
BEFORE SPACE 

SET MSG SW 


GO PRINT MSG 


‘RETURN 


SSE SSSSES HSS SESS SVES SHEE SKSKSSESSESES SESE SSKKSSSKS 


RIPPLE PATTERN SUBROUTINE 
SSESSSST SHES CESKESESSSESESASTKESSS SEES SESE SETSSS 


Ps 
PRSG OC 
Lo 
SLA 
«BSC 
s 
BSI 
‘ 
SLT 
Lo 
it Ox 
BSC 
MDX 
SLA 
STO 
LOX | 
HOX 
 & 
PMS1 MOX 
LD 
SLCA 
BSC 
EOR 
STO 
LO 
STO 
& 
PMS2 LD 
EOR 
BSC 
Ps 
EOR 
RTE 
SLA 
STO 
* . 
SLUT 
BSC 
MDX 
SsTa 
& 
PMS3 MDX 
MDX 
MOX 
s 
PMS LOX 
Ox 
LOX 
STX 
STX 
BSI 
s 
PMS5 MDX 
* BSC 
¢ 
* 
s 
Ripe OC 
O 1M AY 66 
4154908 
—~ ara 
eee J 


cs 
O1LJUL66 15NO V66 O3APR67 
415490C 419643 


419643) 


ones pe obtentee | fo Rae, 


PART NO. 


PAGE 


30€C09550 
30CC9560 


30C09570 


30009580 


30€C09590 | 


30C09600 
30C09610 
30€ 09620 
30C09630 
30009640 
30C09650 
30€ 09660 
30C09670 
30C09680 
30C09690 
30C09700 
30C09710 
30C09720 
30C09730 
30C09740 
30C09750 
30C09760 
30C09T70 
30C09780 
30C09790 
30C09800 
30C09810 
30C09620 
30C69830 
30C09840 
30C09850 
30C 09860 
30C09870 
30C09880 
30C09890 
30C09900 


-30C09910 


30C09920 
30C09930 
30009940 
30C09950 
30009960 
30009970 
30009930 
30C09990 
30C10000 
30C10010 
30C 10020 
30C10030 
30C 10040 
30C 10050 
30C10060 
30C10070 
30C10080 
30C 10090 
30C10100 
30C10110 
30C10120 
30C17130 
30C10140 


—30C€10150 


30C 10160 


30C€10170 


30C10180 


30C10190 


30C10200 


-30€10210 


30C€10220 


PROG ID 
PAGE 


2191220 
8 


030C-2 
8 
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nr 


eS cage tee eae 


we nee oe re ie mone eee ne ne eon eee emma em ewermmens te mmm tee ree ane t etme ome cnn) ne nema 4 
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03 83 
09 84 


09 86 
0988 
0989 


0988 
09 8D 
09 BF 
0991 
0993 
0995 


0996 
0998 
0999 
O994 


0998 
o8g9c 
C990 
09 9F 
O99F 
O9A0 
O9Al 
O9A2 
O9A3 
O9 A4 


O9A5 


09 BO 


O904 
0988 
o9BC 
0980 
O98F 
o9Cl 
Oo9C2 
o9c3 
O9C4 
.09C6 
o9cs 


~-09C9 


~- 09CcB 


DATE 


COoO0OCAC0CACCCO 


cococooo 


Oi 

oOo 
O01 
00 
oF 
Ol 


01 
01 


Ol 


coo 


© = 


oooooo0o0o0o0o°co 
=~ © 


oo 
ue 


6132 
6D0006C5 


66008200 
6101 
440008D1 


67000000 
C7COOCEB 
94000COA 
4C1 80998 
74FFOBLA 
TOED 


T4FFO6CS 
7OED 
1610 
7001 


Cols 
61F0O 
62F8 
7301 
7005 
63CE 
6BEA 
1801 
7101 
7302 


6FOOOBEC 
60000800 
6E000BD2 
6176 

D4000020 
440008C6 
4C800982 


0000 
0000 
3480. 
8000 
3404 
FFEF 
FFFF 
0000 
1000 


0000 


 63F8 


1OA0 
D4000C03 
DFOO0028 
7302 
TOFC 
6301 
6F000027 
04000988 
63E£0 
O7OOQ00CE 
7301 


O2JAN66 
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(1132 PRINTER FUNCTION TEST 


RIPL1 LOX 
STX 
s 
RIPL2 LOX 
LOX 


BSI 


LOXx 
LO 
S 
BSC 
MOX 
MOX 


RIPL3 


MDX 
MDX 
SRA 
MOX 


LO 

LOX 
LOx 
MDX 
MOX 
t DX 
STX 
SRA 
MDX 
MDX 


RIPL4 


STX 
STX 
STX 
LOX 
STO 
BSI 
BSC 


RIPLS 


s 

BSS 
OC 
OC 
OC 
OC 
OC 
OC 
OC 
OC 


SAVE 

STPRT 
K 8000 
STCAR 
ONES 

TERMS 

MSGSW 
K 1000 
s 


ww Wh 


50 


-LPCNT 


£8200 


l 
IOLE 


s—8 
CHAR#49 
EMIT 
RIPLS4 9 
ICNTe-l 
RIPLL 


LPCNT 1 
RIPL2 
16 


RIPL4el 


K8000 
—-1¢ 
-8 

1 
RIPLS 
-50 
RIPL341l 
l 

i 

2 

BL ANK 
PI5S¢l 
PI6é¢1 
118 

32 | 
PRINT 
REPL 


s—$ 

13480 
48000 
13404 
JFEFF 
/FFFF 
s—2 

41000 


SET EMIT LOOP CAT 


SET OSw S/B 
SET IDLE CNT 


COMPARE START SCAN 


CHAR wITH LAST 
~ EMIT CHAR 
LOOP IF NOT EQUAL 
SKIP IF INTRPT CNT=1 


IF AFTER 50 CONSECUTIVE 
EMITS A MATCH IS NOT 
FOUND, LEAVE SPACE 
THEN CONTINUE 


SET BUFFER WITH FIRST BIT 


SET SHIFT REGISTER 
SET STORAGE REGISTER 


RESET EMIT CHAR CNT 
SHIFT LAST LINE 
IN PATTERN 


SET FOR PATTERN SPACE 


SET SCAN COUNT 
SET 1ST BUFR WORD 
GO PRINT | 


START PRINTER 


START CARR [AGE 


PRINTER MSG SW 


weriititicrittitittiiitt tit t ttt ett tT 
CLEAR BUFFER SUBROUTINE 
KSESSKEK ETE RE ESS SSE OEKEETESSEEE SHEE SEES SSEESS 
* THIS SUBROUTINE CLEARS 32-39 AND 


= 
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PART NO. 


PAGE 


30€C 10230 
30C€10240 
30C10250 
30C10260 
30C 10270 
30C10280 
30C 10290 


—30C10300 


30C 10310 
30C 10320 
30C 10330 
30€ 10340 
30C 10350 
30C 10360 
30C10370 
30C10380 
30C 10390 


- 30C10400 


30C 10410 
30C10420 
30C10430 
30C10440 


30020450 


30C 10460 
39C 10470 
30C 10480 
30C 10490 
30C10500 
30C10510 
30€10520 


-30C10530 


30€10540 
30€10550 
30C 10560 
30€ 10570 
30C10580 


— 30€10590 


30C10600 
30010610 
30C10620 
30010630 
30C 10640 
30C 10650 
30010660 
30C10670 
30C 10680 
30010690 
30C10700 
30610710 
30C10720 
30C 10730 
30C10740 
30€10750 
30C10760 
3010770 
30C10780 
30C 10790 
30C 10800 
30C10810 
30C10820 
30C 10830 


- 30€10840 
'30C10850 
-30€10860 


30C10870 


- 30C10860 
-30C10890 


. 3010900 


* SETS BIT 15, LOC 39. 
Sencacea as ince aise cea areata et 
s 
CLEAR DOC Oo es | 
LOX 3 -8 PRINT AREA 
SLT 32 
7 STO Lb SPCSX CLEAR SPACE Sw 
CLlo STv L3 40 ; | 
ge MDX 32 
MOX Ci1i0 | | a 
LOX 321 SET SCAN COMP BIT 
STX 1&3 39 | 
STO L MSGSW RESET MSG Sw 
LOX 3.-32 re te ae = 
Ct20 STO L3 SUF*32 
mDox- 31. 
OLMAY66 O1LJU 66 ISNOV66 OSAPRET 
4154908 415490C 419643 4196430 
oa ey fo OX é s \ SS _ si >» 
. / : \ 
oy Sy Re ay a 


PROG 
PAGE 


ID 


Eteaesalitrrand ler anacrrensetenuenestiegrearased 
Venta ribo amb Skin nee eae CA a Shanes ar ONE es 


2191220 
8A 


030C-2 
6A 


5 


sacl nme soya 


: . - 
4 
‘ 
4 
7 


LU 
/ 





\ 


a il ht Lee salah 


‘i 2 
f Y 
) 
y 
io F 
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aera: PO et 


CO 


center ne mane mnemonic tt 


ZOmOmGl 


2 C 


1132 PRINTER FUNCTION TEST 


o9cc 
osc 0 


O9CF 
09DO0 
0902 
0o9D3 
09D 
09 06 
0908 
0909 
O9DA 
09 0C 
0900 


O9 DF. 


O9E1 
O9E2 
O9E4 
O9ES 
O9ET 


OSEA 
O9EB 
O9EC 


O9ED 
OJEE 


O9EF 
O9FO 
O9F2 
O9F4 
O9F5 
O9F? 


O9FS 
O9FA 
O9FB 
O9FC 
O9FE 
OAOO 


OA02 
OA 03 
OA 04 
OA 06 
OA08 
OAOA 


OAOCc 
0A OD 
OA OE 


OA10 


OAl2 
OA13 


DATE 


01 
00 


Ol 
01 


ooo. 


01 
Ol 
Ol 


00 
01 
01 


ol 


ol 
Ol 


Ol 


EC NO} 


~TOFC 


4CB009BA 


0000 
C4000BLA 
DOIA 
63F 8 
CCO009B6 
DFO00928 
7302 
TOFC 
C4000B1A 
FOlO 
4C2009E1 
4C8009CF 
4008  — 
66008200 
6101 


- 44000801 


C4000COA 
FOO4 | 
4820 
TOF6 


TOES 


0000 
0000 


0000 
C40005DF 
EC800166 
100A 
4C9009EF 
4CB00ACB 


0000 


6101 


6260 

CCOOOA9A 
44000ABA 
4C8009F9 


0000 
6102 | 
66000120 
CCOOO0A9C 
44000ABA 
4C800A02 


6103 
6220 
CCOOOA9E 


T4000BFB 
7003 


74COOBLA 


O2ZsAN66 


415490 


eOX 


BSC 
* 


#S$ESSESES SESE SESHSE SES SEES SSESSESSES SEVE SEEKER SESE 


SET PRINT BUFFER TO ONES 
FSCKESES SOS SHKE SHES SEES SES SSESS SESE SEES SESSS 


& 


sf 

Al oc 
Lo 
STO 


Lox 


LOD 
AllO STO 
- MOX 
MOX 
Lo 
EOR 
BSC . 
BSC 
Al2oO BSI 


A130 (LOX 


LOX 
BSI 
LO 
EOR 
BSC 
MOX 
MDX 
* 
AlSwW OC 
AlEM OC 
* 


* 


* 
tocKx oc 
LO 
OR 
SLA 
BSC. 
BSC. 
e. 


* 


* 

ERR1 OC 
LOX 
LDX 
LOD 
BSI 
BSC 


ERR2 OC 
LOX 
LOX 
LoD 


BSI. 


BSC 


ERR3 LOX 
LDX 
LOD 


HDX 
MDX 
MDX 


O 1M AY 66 
41549068 


I 


L 


om 5 
i 





i ae ma ata 


ci.20 
CLEAR | 


) 
ICNT 
AlSW 
-8 
ONES 
40 

2 
A110 . 
ICNT . 
ALSW 
A120,2. 
Al 
CLEAR 
486200 
1 
IOLE 
EMIT 
ALEM 
Z 
A130 
Al¢l | 


s—% 
tok 


e—-3 
SwQ 
ERLCK 
10_—=i«;. 
LOCK,—- 
Loop 


SET PRINT 


AREA TO ALL ONES 


BR IF INT OCCURRED 


LEAVE 


CLEAR BUFFER 


SKIP IF PROPER EMIT 


ae 


LOOP IF NOT 
REPEAT LINE 


INT COUNT Sw 


EMIT SAVE 


LO SwO 


COMB WITH MONITOR SwO 
CK LOCK ON FNC SW 

BR IF NOT LOCK ON FNC 
LOOP ON LAST FUNCTION 


ERROR MESSAGE SETUP 


SSS SEEKS SEEK SSSKS SKE SETHE SESCSESESS SHES SSESSS ESS 


LOCK ON FUNCTION ROUT INE 
Cee eeseeese seces ene seesseeseees sess cesses ses 


SSSERESSS SKS SESSTS SHE SHES SSESKSSEESE SEES SKKERS ESS 


SSEKSSSE ESSE SKEKS SSS SEES SKSTEKSESSSE SESE SESESST ESS 


: e-t STATIC DSW ERR 
| SET MSG NO. 

2 40060 SET DATA CONTROL 

t mSGl LO ALPHA SG 

tL ETYPE GO PRINT MSG 

I ERR RE TURN 
| s-¢ BUSY OSw ERR 

12 SET MSG NO. 

t2 4/0180 SET DATA CONTROL 

tL M™SG2 LD ALPHA SG 
t ETYPE GO PRINT MSG. 

{ ERR2 RETURN 

1 3 NO INTRPT 

‘2 40620 SET DATA CONTROL 

tL SG3 LD ALPHA MSG 

L EXPCT+4l1 CK FOR EXPCT SPACE/SKIP 
: ERR3X BR IF SPACE/SKIP 

i ICANT CK FOR SOME INTRPTS 

OLJUL66 I5NOV66 O3APR67 
4 15490C 419643 4 19643D 


Pt a ae 


PART NO. 


PAGE 


30C10910 
30C10920 
30C10930 
30C10940 
30€10950 
30C10960 
30C10970 
30C10980 
3010990 


30C11000 


30C€11010 
30C11020 
30C€11030 
30C11040 
30C11050 
30C11060 
30C11070 
30011080 
30C11090 
30011100 


30€C11110 


30C11120 
30C€11130 
320011140 
30C11150 
30C11160 
30C€11170 


30C11180 — 
30C11190 


30€11200 
30C11210 
30C11220 
30C€11230 
30C11240 
30C11250 
30611260 
30C€11270 
30C11280 
30C11290 
30C11300 
30C11310 
30011320 
30C11330 
30C11340 
30011350 
30C11360 
30C11370 
30011380 
30€11390 
30C11400 
30C 11410 
30C11420 


30C11430. 
30€11440 


30C11450 
30C11460 
30C11470 
30€ 11480 


30C11490 © 


30€C11500 
30C€11510 


30C11520 . 


30€11530 
30011540 


30C11550 


30C13560 
30C11570 
30C11580 


PROG ID 


PAGE 
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1132 PRINTER FUNCTION TEST 


OA15 


OA 16 
0A18 


OA LA 
OA1B 


OA1C 


OALE 
OALF 
0A 20 
OA 22 
OA23 


‘OA25 
OA27 
OA28 


0A29 
OA2ZRB 
OA20 
OAZE 
0A30 
OA31 


0A 33 


OA35 
OA 36 
OA37 
0OA38 
0A39 
OA3B 


0A 3C 
OA SE 
OA 3F 
0A 40 
0OA41 
OA43 


OA45 
OA 46 
OA 47 
OA48 
0A 49 
OA4A 


OA4C 


0A 4D 
OA4E 
OA4F 
0A 50 


OA51 
OA52 
0A53 
0A 54 
OA 55 


OA56 
OA57 
OA58 


OA59 


OASA 


OA 5B 


DATE 


oOo eoco0oo o00e00 acdodso ©CC0COCO CCCO00O COOCCO 


Ol 
01 


pee 


~~ = 


peo 


Eo NOs 


71004 


44000ABA 
4C800AE6 


6104 
CCOOOAAO 
70F8 


0000 
6105 


66000600 


C87F 
44000ABA 
74FFOBLA 
7001 
700A 


C4000810 


4C2 80A4C 


1001 
4C2 80A56 
1001 
4C2 80A51 


4CB8OOALE 


0000 
6106 
6203 
C868 
44000ABA 
4C800A35 


0000 
6107 
6208 
C865 
4400 0ABA 
4C800A3D 


0000 
6108 
6218 
C85F 
4070 
4C800A45 


6109 


6200 


C85B 
406A 
T0E2 


6110 


~6200 


C858 
4065 
700D — 


6111 


6200 


C855 
4060 
7008 


0000 


02 JAN66 
415490 


ERR 3X 


ERR4S 


ERR5 


ERR 5X 


ERK6 


ERR7 


ERR6& 


ERR 


ERR10 


ERRIL1L 


& 
ERR12 


MDX 


BSI 
BSC 


tLDXx 
tDD 


“MOX 


OC 

LOX 
tox 
toD 
BSI 


MOX 
MDX 


MDX 


LO 


BSC 
SLA 
BSC 
SLA 
BSC 


BSC 


OC 

LOx 
LOX 
too 
BSI 
BSC 


DC 

LOX 
LDXx 
to0 
BSI 
BSC 


OC 

LOX 
LOX 
LOD 
BSI 
BSC 


LDx 
iL DX 


LOD 
BSI 
MDX | 


LOX 
LDX 
t00 
BSI 
MOX 


LOX 


LOX 


Lodo 
BSI 
MDX 


DC 


O1MAY66 


4154908 





— &15490C 


ERR4 BR IF SOME 
L ETYPE GO PRINT MSG 
I WAIT RE TURN 
1 4 PRINTER STOPPED 
tL. 4SG4 LO ALPHA SG 
ERR3X | 
t—-8 LEVEL 1 OSW ERR 
1 5 SET MSG NO. 
L2 /0600 SET DATA CONTROL 
4SC5 LD ALPHA: MSG 
L ETYPE GO PRINT MSG 
tL ICNT,-1. CK FOR MULT INTRPTS 
e+} % & 2. 
ERR 5X 
Lt eEBITS LD DSW ERROR BITS 
L ERRO,+Z BR IF PRINT RESPONSE ON 
l ‘ 
tL ERRL1 42 BR IF SKIP RESPONSE ON 
1 : 
tL ERR1O,+4+2Z OR IF SPACE RESPONSE ON 
I ERRS RE TURN 
$—* EMIT BIT FAILURE 
1 6 SET MSG NO. 
2 40003 SET DATA CONTROL 
MSG6 LO ALPHA MSG 
tL ETYPE GO PRINT MSG 
I ERRGE RE TURN 
+-% EMIT INVALIO 
17 SET MSG NO. 
2 40008 SET DATA CONTROL 
MSG7 LO ALPHA MSG 
t ETYPE GO PRINT MSG 
I ERR7 RETURN 
-—% EMIT SEQ ERR. 
1 8 SET MSG NO. 
2 /0018 SET DATA CONTROL 
4SG8 tO ALPHA MSG 
ETYPE GO PRINT MSG 
I ERRS RETURN 
19 PRINTER DIO NOT TURN OFF 
20 SET FOR NO DATA 
4SG9 tO ALPHA ASG 
ETYPE GO PRINT MSG 
ERR5X 
1 410 MULT SPACE INTRPTS 
20 SET FOR NO DATA 
4MSG1O LD ALPHA MSG 
ETYPE GO PRINT SG 
ERR5X a 
4] All MULT SKIP INTRPTS 
2 0 SET FOR NO DATA 
MSGl1l LD ALPHA MSG 
ETYPE GO PRINT MSG 
ERR5SX 
e—¢ MISSING CHANNEL 
O1LJUL66 1SNOV66 O3APR67 
419643 4196430 


mo i rte pe 


CESSES 


PART NO. 


PAGE 


30€C11590 
30C11600 
30C11610 | 
30C 11620 
30C11630 
30C11640 
30C11650 
30C116690. 
30C11670 
30C11680 
30€C11690 
30C11700 
30C11710 
30C11720 
30C11730° 
30C11740 
30€11750 
30C€11760. 
30C11770 
30C11780 
30C11790 
30€11800 
30C11810 
30C11820 
30€C11830 
30€C 11840 
30C11850 
30C11660 
30C11870 
30€11880 
30C 11890 
30C€11900 
30C11910. 
30C11920. 
30C€11930 


eect a bent ela 


30C€11940 | 
30C11950 | 


30C11960 
30C11970. 
30€11980 
30C11990 
30C 12000 
30C12010 
30C12020 
30C12030 
30€12040 
30C€12050 
30C€12060 
30C12070 
30C€C12080 
30C12090 


30€12100 — 


30C12110 
30C12120 
30C12130 


30Ci2140_ — 


30C12150 
30C12160 
30C12170 
30C12180. 
50€12190 
30C 12200 
30C12210 
30C12220 
30€12230 
30C12240_ 


30C12250 


30C12260 


PROG ID 
PAGE 


TEC 


2191220 


9A 


030C-2 


9A 











1132 PRINTER FUNCTION TEST 


OASC Ol 
OASE 
OA 5F 
OA60 
OA61 
OA62 
OA63 


— 


OA65 
0A66 
‘OA6T 
OA68 
OA69 
OAGA 
OA68 
OA6C 
OA6D 
OA 6E 

 OAGF 
OA70 
OA71 
OAT2 
0A 7% 


QqQoeooeeoeodecnoe eaocoooco0o0odceo eooaoods 


pe pee 


OA T6 
OATT. 
0478 
OATA 
OATB. 
OATC. 
OA7D 
OATE 


~~ 


foo 


OA 8O 
OA 81 
OA 83 
OA 85 
OA 86 
OA 87 
OA88& 
OA 89 
OAS8B 
OA BC 
OASE 
OA SF 
OA90 


~ © 


~~ 


— 


pn 


OA92 
0A93 
0A 9% 
OA95 
VA96 
OA9T 


ocoooc]e eooocoeoqcoocoeco oo0oo0c0oece 


rm 


OAg9A 
OAQA 
OA9B 
OA9C 
OASC 
OASE. 
OA 9F 
OA AO 
OAA1 
OAf2 
OA A3 
OA A4 
OA AS 


el el oe ood ool ol ol oo 


DATE 


. EK NO. . 


CS5000A64 


0078 


6112 
6204 
C&4E 
4057 
“CB800458 


0001 
0002 


0003 


0004 


0005 


0006 
0009 — 
oooc 


0000 
6113 
6200 
C841 
4048 
C4000986 
4C800A6D 


6114 
6220 


C40007C9 


1808 
0061 
C837 


-403C 


C HNUN 


ERR 1S 


ERR14 


4COOO7EB 


0000 
66000801 
C4000BEE 


EO5SF 


D051 
C82E 
4031 
4C800A80 
0000 
66001800 
cazt 
402A 
4CBO0A8B 


0000 
6117 
6220 
C622 
4023 
&CB00A92 


0000 
OCcEB 
OCcF1 


_ OCEB 
OCFA 


ODOA 
oo00 
OD14 
0D18 
Oces 
ODO2 


0029 
0000 


O02 JAN 66 
415490 


ERRIS 


ERR 16 


ERR 17 


MSG) 
MSG2 
MSG3 
4SG4 
MSGS 


4SG6 


LD 

STO 
LDX 
LOX 
LOD 


BSI 


BSC 


oc 
oc 
OC 
OC 
oc 
DC 
oc 


oC 


OC 

Lox 
LDA 
LoD 
BSI 
to 

BSC 


LOX 
LOX 
LD 

SRA 
STO 
00 


BSI. 


BSC 


DC 
LOX 
Lo 


AND 


§TO 
LOD 
BSI 
BSC 
oc 

LOX 
LoD 
BSI 


BSC . 


OC 

LOX 
LOX 
tO00 
BSI 
BSC 


BSS 
oc 
DC 
oc 
oc 
oC 
oc 


OC. 


oc 
OC. 
oc 
oc 
OC 


0 1MAY 66 
4154908 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


L1 CHNUM-1 LD CHANNEL NO. 

CHANEL SET IN KSG 

1 sl2 SET MSG NO. 

2 70004 SET DATA CONTROL 
MSG12 LD ALPHA MSG 
ETYPE GO PRINT MSG 

I ERRL2 RETURN 
1 
2 
3 
& 

5 
& 
9 
12 
+-* CHANNEL SEQ ERR 

1/13 SET MSG NO} 

2 0 SET DATA CONTROL 
MSG13 LD ALPHA MSG 
ETYPE GO PRINT MSG 

L ONES | 

I ERRL3 RE TURN 

1/14 MULT CHANNEL BITS 

2 0020 | 

t TEMPS+l LO INVALID CHANNEL CODE 
8 
OSuw | 
MSG14 LD ALPHA MSG 
ETYPE GO PRINT MSG 

lL CHM2 RETURN 
#-* = CHANNEL SENSE ERR 

L2 /0801L | SET DATA CONTROL 

L WAS LD INTRPT DSW | 
KOOFF MASK ALL BUT CHAN BITS 
ERM4 STO IN MSG 
MSG15 LD ALPHA MSG 
ETYPE GO PRINT MSG 

I ERRIS RETURN 

$-S 
—L2 71800 
MSG15 
 «ETYPE 
I ERRL6 
- G 
1 sl? 
2 70020 
“MSGLT 
- -ETYPE 
1 ERRLT 
E oO 

 AWAS WAS S/B 
ASOSW STATIC DSW 
AWAS WAS S/B 
ABDSW BUSY DSW ERR 
AOSW OSw 
ANINE NO INTRPT 
ADPR | DSW PRINTER 

— ASTPO | STOPPED 

—AWAS. WAS S/B° 
ADSW1 LEV DSw ERR 
_ AEBF EMIT BIT FAILURE 
40000 
OLJUL66 15NOV66 93APROT 
415490C 419643 196430 


PART NO. 2191220 
PAGE 10 
1132 
30€12270 OAA6 1 
30C12280 OAAT 0 
30C€12290 OAAS 1 
30C12300 OAAS 1 
30C12310 OAAA 1 
30C12320 OAAB 1 
30C12330 OAAC 1 
 30C12340 OAAC 1h 
- 30012350 OAAE 1 
30C12360 OAAF 1 
30C12370 OABO 1 
30C12380 OAB1 O 
30C12390 OAB2 1 
30012400 OAB3 1 
30C12410 OAB4 1 
30C12420 OAB5S O 
30C12430 OAB6 1 
30012440 OAB7 1 
30012450 % OABS 1 
30C12460 | OABS 1 
30C12470 
30012480 an 
- 30012490 
30C 12500 
30012510 = 
30C12520 OABA O 
30C€12530 OABB O 
30C12540 - OABC O 
30C12550 OABC O 
30C12560 . OABE O 
30C12570 
30C12580 OACO O 
30€612590 OAC2 0 
30C€12600 OAC3 0 
30C12610 OACS 1 
30C12620 OAC6 O 
30C12630 OAC? O 
30C€12640 . 
30C 12650 OAC8 O 
30C12660 a OACA 1 
-30C12670 OACce O 
30C 12680 
30C€12690 OACC O 
30C12700 OACE O 
30C12710 | OACF 1 
30C12720 OA00 O 
30C€12730 | 
'30C12740 
30C12750 
30C12760 
30C12770 
30C12780 OA D2 
30C12790 OAD3 O 
30C12800 OAD4 O 
30C12810 OADS O 
30C12820 OADA O 
30012830 OAD? O 
30012840 
30€1 2850 OAD8 O 
30C12860 OADS O 
—30C12870 OADA O 
30012880 OADB O 
- 30012890 OADC O 
30C12906 OADD O 
30612910 OADE 0 
30C12920 OAOF 0 
- 30612930 OAEO O 
30012940 OAEL O 
PROG ID 030C-2 DATE 
PAGE 10 «NOs 


0038 
0000 
OCEB 
OO03F 
0017 
0020 
0D051 
0010 
C058 
0010 
0D48 
0000 
OD4C 
0043 
0071 
0000 
004C 
0068 
ODOA 
ODA6 


~ 0000 


6917 
6A18 
0818 
4400093A 


T4000AC6 
7005 
44800162 
OACC 
0000 
é8FE 


44800162 
OAD3 
0000 


4C8OOABA — 


8000 
OO7F 


0000 


Gool 
0000 
0004 
0000 
0000 
0000 


0000 


0000 


0000 
0000 


- 0000 


0000 
co0o0 
0000 


~ 0000 


0000 


02 JAN66 
415490 


PRINTER FUNCTION TEST — 


MSG7 OC 
MSGB DC 
MSG9 OC 
MSG10 OC 
MSG1l1 OC 
MSG12 OC 
MSG13 oc 
MSG14 DOC 
MSG15 OC 
MSG17 DOC 


IBM KALNTENANCE DIAGNOSTIC PROGRAM FOR THE 


AEMT 
40000 


_AWAS 
- AESER 
‘ APRTR © 


AONTO 
AM SP 
AINT 
AM SK 
AINT 
AMC 
40000 
ACHAN 
ASER 
AINVC 
40000 
ACHAN 
ASNER 
ADSW 
ACBSY 


1130 SYSTEM 


EMIT INVALD 


wAS S/B 

| EMIT SEQ ERR 
PRINTER 
OID NOT TURN OFF 
MULT SPACE 
INTRPT | 

- MULT SKIP 
INTRPT 
MISSING CHANNEL 


CHANNEL 
SEQ ERR 
INVALD CHANNEL CODE 


CHANNEL 
SENSE ERR 


KSEE SESCKSEST SSE SESEESSKS SESESS SSESVES SESS SEKE SESE 











.  - PRINT ERROR MESSAGES 
KSEKESSEKSES SSS SSEKKSSSESSEKSSSEKSESESKHKE SVES SSS SES SEES 
& 
ETYPE OC s-% = eS 
: STX TABLE SET ID IN MESSAGE TABLE 
STX 2 TABLE #2 STQ DATA WORD CNTRL 
STO ALPHA 
BSI « STOP STOP THE PRINTER 
= ; ; 
MDX t OPMSW 
MOX ETYPl : ne 
BSI & ERROR PRINT LAST OP 
oc ETYP2 
OPMSwW OC -*% MUST BE ZERO FGR OP ASG 
| STX OP MSW 
= 
ETYP1 BSE i ERROR 
oC TABLE 
Loop oc 0 LOOP ON ERROR 
& 
ETYP2 BSC I ETYPE ~ RE TURN 
OC 48000 
oC ALOP 
OPSw OC ¢-& 
s 
* ERROR MESSAGE TABLE 
¢— siete anges a ee lees aes 
2 
BSS E 1 
TABLE OC +-*2 MESSAGE NUMBER 
| oC 40004 HEX/DECIMAL SW 
DC +—% DATA wORD ID | 
ALPHA DC +—% 1ST ALPHA MESSAGE ADDRESS 
ERM3 OC +-% -2ND ALPHA MESSAGE ADDRESS 
s ; 
ERM4 DC s-3 MOOIFIERS 
Cc t-—8 
CHANL OC —¢ STORE ERR CHANNEL 
EMTwWS DC s-# STORE EMIT WAS 
EMTSB DC e-% STORE EMIT S/8 
DSWw DC: +-% STORE OSW WAS 
OSWSB DC 40000 STORE OSW S/B 
BOSW OC o-s BUSY DSW WAS 
~ Oc _ $—8 BUSY DSW S/8 
TOSw OC e-% INTRPT OSW WAS 
0 1M AY66 OLJUL 66 1SNOV66 OSAPRET 
41549508 415490C 419643 4196430 
ye SS 5 ey Fy 
. 
ae Sa ee ae ere Se ee a ~~, 


PART NO. 2191220 


PAGE 


30€12950 
30C12960 


30C12970 | 
30C12980 


30C12990 
30C13000 
30C€13010 
30C13620 
30€13030 
30C€13040 
30C€13050 
30C13060 


~ 30C13070 


30C13080 
30€13090 
30€013100 
30€13110 
39C13120 
30€13130 
30€13140 
30C€13150 
30C13160 
30C13170 
30€13180 


~ 30€C13190 


30C13200 
30€13210 
30C€13220 
30€13230 
36C 13240 


~ 30€13250 
30013260 


30C13270 
30C13280 
30€13290 
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30€13420 
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30C 13440 
30C13450 
30C 13460 
30013470 
30C13480 
30C 13490 
30€13500 
30C13510 
30C€ 13520 
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30C13610 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN FOR THE 1130 SYSTEM PART NO. 2191220 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191220 
| PAGE Li (- QQ PAGE LIA 
1132 PRINTER FUNCTION TEST c 1132 PRINTER FUNCTION TEST 
( ) 
QAE2 O 0000 | oc. . t—2 INTRPT DSW S/B 30C 13630 ( Ci 0B24 O1 44200Al1E BSI tL ERRS-Z 30C14310 
OAE3 0 0000 CtmasS OC es CHANNEL OSW WAS 30613640 ore & 3 30C 14320 
OAE4 GO 0000 oc s-8 | 30€13650 — 0826 O01 C4000C07 to & CKESW 2 &., 30C€14330 
OAES5 O OOFF KOOFF OC JOOFF 30€13440 ( 9° 0828 0 OOO01 STO e+} 30014340 
. s 30€13670 0829 00 44200000 BSI L B=-8,Z BR IF EMIT ERR 30€ 14350 
SOE SSSSS SSS SS SSE SES SESSES SESEESS SEES SEESESSSSS 30C€13680 s 300614360 
s INTERRUPT WAIT ROUTINE 30C 13690 ( mt 0828 O OB8EE KIO SENSE-1] : . 30C14370 
SRESSSSS VSS CESSES ESS SESESEESESSSS SESTESESESSESSS 30C13700 082C O E0BS AND KOOFF MASK ALL BUT CHAN BITS 30C14360 
s | 7 | 30C13710 ; 0820 0 0085 STO CHWAS STO IN ERR MSG 30€14390 
OQAE6 0 0000 WAIT OC e—s 30C13720 | t _ OB2E O1 FSO00BEE EOR LL WAS COMPARE WITH INTRPT 9SW 30C€ 14400 
OQAET O £834 oR TeoSu - BUILD BUSY OSW S/B 30C 13730 0830 0 1002 SLA 2 (30C€14410 
OQAE6 0 OOF? STO BOSW+l SET IN S/8 30013740 i x 0831 01 4C€100837 BSC L RTRNLe- BR UNLESS AFTER SPACE 30€ 14420 
OAE9 O1 C4000C03 tD Lk SPCSX SET SPACE COUNT 30C€ 13750 a € 7 - 30C14430 
OAEB 01 104000502 STO & SPCSW | 30C13760 | 0833 0 1006 SLA 6 LOOK AT CHANNEL BITS 30C 14440 
OAED 0 082C X10 SENSE-1 SENSE BUSY OSW 30€13770 0834 0 6115 . tox 1 /15 LO MSG NUMBER 30C 14450 
OAEE 01 E4000C00 AND & KT7FOO 30C13780 ( 0B35 O01 44200A80 BSE UL ERR1L5,Z BR IF NOT EQUAL 30C 14460 
OAFO 0 OOEE sto B0SW SAVE BUSY DSH 30C€13790 & 30€14470 
% ) 30C13800 0837 O1 4CB800AE6 RTRN1 BSC I WAIT -30C14480 
OAF1 0 1010 SLA 16 | 30C 13810 C |. * | 3 300614490 
GQAF2 Q 0003 .$Ttoa OPNSW 30€13820 ¥KESSESRSSS SSESEKS SSS SESESESESSSESS SECS SSESSESESSS 30C 14500 
OAF3 0 0026  §to. ICNT RESET ICNT 30€13830 - : * | CHECK READY 30€14510 
OAF4 0 0028 $TO EBITS RESET EBITS. -30C13840  €) a | © $$ SESES SSS SESEEE SSE EEESE SSS ESSE SESE SESE SS EES 30C14520 
OAFS O01 04000C07 STO t CKESW RESET CKESW 30C013850 : | * THIS SUBROUTINE CHECKS THE DSW FOR 30€14530 
OAF7 O1 04000C03 STO L SPCSX - 30013860 _ * READY CONDITIONS 30C 14540 
& | 3 | | 30C13870 Cc ‘-) e — 30C 14550 
CAFS 00 65001000 L£0x &1 41000 SET INTERRUPT 30C13880 * 30C 14560 
OAFB O 6922 STX 1 WCNT WAIT CNT 30C13890 : 0839 0 o000 READY OC ss 30C€ 14570 
s an 30C 13900 0 oA 083A 0 61FD Lox 1-3 30C14560 
QAFC O01 65000805 WAITL LOX LA WALT | . 30€13910 0838 O 692D STX 1 OLYCT 30C14590 
OAFE O1 740005E6 MOX LL MLSCFel CK FOR INTERRUPT 30C€ 13920 | 083C 0 O8DD ROYL xIO SENSE-1 SENSE OSW : 30C€14600 
0800 0 700F MDX §.§ WAIT4 BR IF INTERRUPT OCCURED 30€13930 ( to 0830 O1 E4000BFF ANDO t& KFFOO CK BITS O-T7 30€14610 
ie | 30013940 OB3F.0 0090 STO OSww STORE OSW IN MSG TABLE -30C14620 
0801 01 6D0005E5 WAIT2 STX Li MLSCF SET RETURN ADDRESS 30C13950 0840 01 4C980839 BSC I READYs+= READY IF BRANCH 30C 14630 
0803 00 44800161 BSI {£ START GO TO MONITOR 30€13960 dt 0842 0 E025 | AND ROYMK MSK NROV SIT 30014640 
& 30€13970 0843 O1 74030869 MOX & OLYCTs3 | 30C14650 
0805 O1 74FFOBLE WAITS MOX LL WCNT»o—1 DECREMENT WAIT CAT 30C13980 . | 0845 0 7007 MDX Rov2 : 30€14660 
0807 0 TOF4 ROX WAIT, | | 30€13990 | oO) a 7 & 7 ; 30C 14670 
e 30C 14000 0846 O01 442009F9 BSI L& ERR1I,Z TYPE ERROR MESSAGE 30C 14680 
o30s8 0 0O8ll X10 SENSE-1 SENSE NO INTRPT OSW 30C 14010 s : | 30€14690 
0809 0 0003 STO DOSww SET IN MSG 30€14020 C 0848 00 44800163 BSI I toG TYPE 30€14700 
OB0A O C005 | to BDSWel iD BUSY DSW S$/8 30614030 —=«. 084A 1 OB6A oc STM MESSAGE 30C14710 
0808 0 F0D3 EOR BDSW CCMPARE WITH BUSY DSW 30C 14040 | s | 30€14720 
OBOC OL 44200A02 BSE LL ERR252 BR IF BUSY OSW ERR 30C 14050 | C 0848 0 1810 SRA 16 SET TO DELAY FOR 30C 14730 
, s 30C 14060 3 | 084C 0 DOIC sto DLYCT TEN SECONDS © 30C14740 
OBOE O01 4COOOA0C BSC Lt ERR GO PRINT NO INTRPT MSG 30C 14070 0840 01 6500083C RDV2 LOX t1 ROY 30C 14750 
s 30C€14080 © 084F G1 6DO00SE6 STX Ll MLSCFOl , 30C€ 14760 
0810 01 C40005E0 WAIT4 LD Lt Swi | | 30C14090 0852 O01 4CO00B10 BSC L WAIT4 CK ROUTINE SELECT Sus 30C14770 
0812 00 44880161 BSI ££ START »* CK FOR RTN SELECT 30€ 14100 * |  30C14780 
0814 O01 94000500 S t RID CK FOR NEW ROUTINE.  . ....: 30CIO6L EQeeene-- nepenseee | FSSSESES ESS SESTE SEE SHEE SESEESES SESESEESESEES 30C 14790 
0B16 00 44980161 BSI I STARTet#= 8R IF ROT NEW RTN 30C14120 = e FORM CHECK | 30C 14800 
0818 O1 44000600 BSI & CNTR 30C 14130 _ SSESSSSS SES SERKE SKS SOHEESTSESESEESES SESS SEESSSSSS 30C€14810 
; s | 30C14140 i | * THIS SUBROUTINE CHECKS FOR A FORM CHECK 30C 14820 
OB LA 0000 BSS E 30014150 * AFTER A SPACE OR SKIP COMMAND 30C 14830 
081A 0 0000 ICNT OC on 30C14160 | ft — — a ne . 30C14840 
0818 0 3700 SENSE OC 43700 SENSE WITHOUT RESET 30C14170 s a ‘ 30€14850 
- 0B1C O 0000 TeDSw OC 8 - | 30014180 0853 0 o000 FORMS 0C - @=8 30C 14860 
0810 0 0000 EBITS OC 2 INT OSw ER BITS 30614190 0854 0 61FD tox 1-3 - 30C€14870 
OB1E QO oo00  WCNT Oc s—8 30C14200 : 0855 0 6913 SX 1 OLYCT 30C14880 
| s | 30C 14210 0856 0 O8C3 FORM] X10 SENSE-1 | | —30€14890 
o— ocean -30€14220 ; 0857 0 1005 i SLA 5 . 30C14900 
@ ENTER HERE AFTER INTERRUPT 300614230 0858 O1 4C900853 BSC I FORMSe- BR IF NO FORMS CK 30614910 
s ' 36C14240 . e | | 30€14920 
a, | | : -30C14250 -OB5A4 OL 74030869 MOX L ODOLYCT.3 | | 30024930 
-O0B1F 0 Coco RTRN LO BDSWel LO BUSY OS S/B 30C 14260 3 ‘ OB5C 0 7005 MDX FORM2 : 30C 24940 
0820 0 FOBE EOR  BOSW COMPARE WITH BUSY DSW 30C14270 oa 0850 00 44800163 BSI I t0o6G TYPE 30C 14950 
0821 OL 44200A02_ BSI bt ERR2e2 BR IF BUSY OSW ERR 30C14280 7 O85F 1 OB6A | oc STM MESSAGE 30C14960 
; s | 30C14290 f - s. 30C14970 
823 0 COF9 Lo EBITS CK FOR INTRPT OSH ER 30€14300 0860 0 1810 SRA }~=16 SET TO DELAY FOR 30614960 © 
DATE | O2JANG6 OLMAY66 OLJUL66 I5NOV66 O3APR67 PROG 1D 030C-2 DATE O2JAN60 OI]MAY66 OQ1JUL66 15N0¥66 O3APRO67 PROG 1D 030C-2 
e& nO. 415490 4154908 415490C 419643 4196430 PAGE Al | 7 EC NO. 415490 4154908 415490C 419643 4196430 ts PAGE AAA 





be Gieads sa tee lense cactus Cry ae u Fe ar ec ee Ot ee eS Re gee Oe Gia ee a he, —— SAD cn, cee Rae a I 


























































































































IBA MAINTENANCE DSAGNOSTIC PROGRAM FOR THE 1130 SVSTEN PART NOW 2191220 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191220 
| PAGE h2 GC | G PAGE «82a 
4132 PRINTER FUNCTION TEST | 1132 PRINTER FUNCTION TEST. 
C CG eat oes 
0861 0 0007 3 $To OLYCT TEN SECONDS 30C 14990 C: 6 & IDLE CNT=0, SET TO RETURN 30C 15670. 
| s a 30C 15000 t—— — —— 30C15680 
& | 30€15010 a ee i. 6 = 30C15690 
0862 01 65000856 FORM2 LOX 1 FORMI 30C15020 C C 099 0 1810. SRA 16 : 30C 15700 
0B64 01 SD0005E6 STX C2 MLSCFeR 30C€15030 . O89A 0 6310. LOx 3 16. SET FOR 16 EMITS 30C15710 
0866 O01 4C000B10 BSC & WALT4 CK ROUTINE SELECT Sus 30C 15040 ae | 0898 O01 74000C02 MOX & SPCSW,O0 CX SPACE~PRINT ON SW 30C€15720 
| s ) 30C15050 i ( 0390 0 7003 MDX PI2 30C€ 15730 
0868 0 FBD0 RDYMK OC . 4€800° | 30C 15060 7 a | * 7 =e | 30€15740 
0869 0 0000 OLYCT OC 4) DELAY COUNTER 30C15070 : O89E 0 0065. ? STO RTRNS SEY TO RETURN TO MAINLN 30C€15750 
, | ¢ 30C15080 ne oS OB9F 0 6865 STX 3 STPCT. THEN TURN PRINT OFF 30C 15760 
086A 0 0001 ST”. 6 oc 1 MESSAGE NUMBER | 30C 15090 O8A0 O 706A HOX — SKINT 30C1i5770 
0868 0 0oO000 . OC 40000 HEX/DECIMAL SW 30€15100 . a : ¢ oe 30C15780 
o86C O OOO] OC 40001 DATA WORD ID | 30C15110 * —< Se mane omenenes 30C 15790 | 
0860 1 OD85 oc ANRDY 30€15120 all SPACE WITH PRINTER ON 30C15800 . 
O86E 0 0000 OC: 0 30€15130 ~ to —_ : 30C15810 © 
OB6F O 1132 | oc 41132 MACHINE TYPE 30C15140 ( ee bot ates? a 30€15820 
He . “ Si ss. 30015150 OBAl O01 T4FFOCO2 PI2 MDX & SPCSWe-l DEC SPACE COUNT ne 30C15830 
& ee eee | | 30C15260 | OBA3 O 1000 - NOP. Ace ; 30C 25840 
BSE SSESS OSS OEOSE SSE SEETESEETEESS ERE EEE EE BST 30C15170. | | | C: 08 A4 O 6860 STX 3 STPCT 30C 15850 
& INTERRUPT ROUTINE | | 30C25180 OBAS 0 C063 — tb - Kl2000 bei gt kay Me | 30C 15860 
SSE SCSSEES SSS SHES SES SESEESKSSESESS SSESSSEESSSSS 30€C15190 OBA6 O01 ECOOOBIC | OR &  TeOSH BIULO BUSY DSW 30C15870 
s 30€15200 — Cc fe OBA8 01 D&000AEO | STO bt BDSWel a | 30C15860 
0870 0 o00o0 PIRT OC. So8 Be stp ot . . 30C15210 | OBAA 0O 67002200 LOx L3 42200. ~ SET EXPECTED SPACE 30C 15890 
0871 O01 6E000C30 STX L2 10uT2el SAVE XAR2 30C€15220 | OBAC' 0 6B46E. : STX 3 EXPCT*lL RESPONSE DSW | 30C 15900. 
038730 2810 —. SRA 16... | | | 30015230 oe _08A0 00 67009200 LOX. £3 4/9200. SET EXPECTED EMIT 30€15910 | 
0874 O01 O4000BFC STO & ExPCTe2 oe had aa, 2 30C15240 | OBAF O- 6B4A | STX 3 EXPCT RESPONSE OSH 30C 15920 
0876 00 670005DC tox &3 1500 RESET INTERRUPT | 30C 15250 0BBO 01 66000062 : LOX L2 ASPIN 30€15930 
0878 0 6BAS STX 3 WCNT. WAIT COUNTER 30C15260. | © O8B2 01 6EOOOADO | STX t2 OPSwW SET LAST OP SH 30615940 
0879 O1 T7401 0B1A MOX & ICNTL CNY ENTERRUPTS | 30C15270 a . =) bd , 30€15950 
0878 O 1000 : woP ° 30C15280 . 08B4 O 083F xI0 ST SPA-1 SPACE 30€15960 
~ 4 : & Be | 30€15290 Cee % - oi = =. aie Bock . 30C15970 
O87C O1 CCOOCOBEE -. MIG & SRSET=-1 . SENSE AND RESET OSW 30€15300 08B5 O01 OCOOOBLA &IO & SENSE-1 SENSE BUSY DSW 30C15980 — 
OB7TE O DO6F STO WAS SAVE DOSw | 30€15310 | 0887 GO £048. AND K7TFOO MASK EMIT RESPONSE AND 30C15990 . 
C37F O01 G4000C04 STO LL. RTRNS a ee 30€ 15320 ; a : Ss _ ; CHANNEL BITS 30€16000 
06883 O1 4C1OOCOB | ~ . BSC LL SKINT,=- BR IF NOT PRINT RESP 30€135330 | | 0868 01 O4000AD0F STO tC 6DSH . SAVE 8USY DSW 30€ 16010 
S | | 30C1 5340 088A O01 4CO00C3C BSC t f0uUT2 “he 30€ 36020 . 
& “= , eee eons 30015350 — (: gO ee at ate * ras | a. | at, 30C 16030 
s READ EMIT INTERRUPT | 30C15360 . . O88C O01 74FFOBFO PI3 MOX LL SCNCT e-2 DEC SCAN CNT 30C 26040 | 
re — —_ . | 30€15370 OBBE © 7006 MDX PI4 - GO SET UP PRINT BUFFER 30€ 16050 
& | : 30C25360 C Pe * | e ; | 30C16060 
0883 0 O86E PINT XIO. ROEMT = READ EMIT 30C€15390 | s — — ——- 30C16070 
0884 0 COTS — to. ‘EXPCT 2 Pade 30C€ 15400 s END OF PRINT 30C€ 16080 | 
0885 0 DOT6 | sta EXxPCT¢2 BUILD EXPECTED OSW 30C 15410 0 + 30C 16090 
0886 O1 44000C4D BSI t CKERT Cx EMIT SEQUENCE 30C 15420 | , : | ce te | 30C16100 
a | oo wg ox - 30C€15430 | OSB8F Ol 440009BA BSI tL CLEAR SET BUFFER TO ZERO 30C 16110. 
0686 0 CO6T. io _ SCNCT CHECK FOR PRINT 30C15440 fe o6C1 00 67008200 : LOx 2&3 78200 — SET EXPCT FOR 30C€16120 - 
0889 O01 #C€30088C BSC LL PI3,2- BR IF PRINT | 30C 15450 O8C3 0 6836 STIX 3 EXPCT . - NORMAL PRINT DSW. 30C16130 | 
a ae | 2 ae: 7 30C15460 O8C4 O 7066 MDX SKINT - ays 30C16140 
0388 0 CO71. Lo IOLCT CK FOR IDLE 30C15470 | CT. a co ape 2, ae 30C16150 
06B8C O01 4€200896 BSC L PI1,2 BR IF IDLE 30C€ 15480 | | | +— — Se ee eee 30C 16160 
ee... s | eg —— 30€ 15490 © os a ae s  - ; SET UP PRINT BUFFER 30C 16170 
O88E Ol 74FFOCOS MOX LL STPCT 2 30C15500 C | *— —_ —_—- a 30C16160 | 
0890 0 TOTA ROX SKINT _ = 30C15510 . oe | 7 s : a4 30C26190 
an oo 2 e | | ei. 30€1552C | 0osc5 0. 10A0 PIG SUT. 32 | a oe 30C 16200 © 
1B ee eraen ae eee ee eee a eee ana eee meee 30C15530_ (. O8C6 O01 C4000¢88 to t MASGSH CK MSG SH : 30016210 . 
s STOP PRINTER... |... 8. . 90015540 - nog vecememonge | 0o8C8 O1 4C200C9F , BSC L MSCAN2Z IF Sw ON- GO SET UP MSG 30C 16220 
. a , pee eT a 3015550 ‘ OBCA O1 678005E1 . LOX 13 Sw2.. a fe 30C 16230 
oo e-.. , 30C€15560 OSsCC O 1847 SRA Ti 30C 16240 . 
0891 0 0068 STO EXPCcT 30C15570 oscoO 0 YW3FF. AOX 3-1. _ ~ oe es 316250 © 
0892 0 0089 STO TBOSW. hice oo fe 2 - | 30C15580 OBCE 0 7OFD MOX s=3 oe : os 30C16260 . 
0893 0 0060 : Sto EMTSwW . RESET LST EMIT SW 30C€ 15590 | C.2. OBCF OO 67000000 PIS DX L3 SF INITIALIZED TO -16 30C162T70 | 
0894 0 0857 _ ., KEO .  . STPPT-2 STOP PRINTER. 30C15600 | 08D1 00 66000000 PI6 LOX L2 -*- © INITIALIZED TO -8 30C162680 .. 
0395 0 7o75 ADX SK INT 30C15610 ie 08D3 0 C228 Lo 2 40 £0 WORD TO SHIFT 30C 16290 
_ | e@ .- Ee ae 30C15620 f ae 0804 6 18Clh° RTE hb SHIFT BIT 30C 16300. 
0896 O01 T4FFOBFD Pil MOX & F£OLCT ei DEC IOLE CNT 30C15630 06805 0 0228. $sTQ0 2 40 30C16310 
0898 O 7072 WOK SKINT ey alae” eet 30C15640 a 0BD6 O 7301 | MOX 321 ..:.) DECREMENT WORD CAT 30C16320 
Ae Utne ® * 30C15650 - ae : 08D7 0 7007 — | HDX . PIT 30C16330. 
i 30015660 — op08 0 720i | MOX 22. AOV TO NEXT #ORD 30C 16340 | 
| | _ c y 
DATE “O2JANG6  OIMAY66 O1JUL66 I5NOV66 O3APR67 PROG ID 030C=-2 : DATE O2JANG6 OIMAY66 O1JUL66 AISNOV66 O3APR67 PROG 10 030C~-2 
E NO. 415490 4154908 415490C 419643 419643D PAGE 12 ys “Ss eC: NO. 415490” - 4154908 415¢90C 419643 4196430 PAGE A2Aa 
{: "4 
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IBM MAINTENANCE OLAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1L32 PRINTER FUNCTION TEST 


068 D9 
OB DA 


08 OB 
06 OC 
08 00 


08 OF 
OB EO 
OBE2 
OB E4 
OBES 
OB E6 
OB ES 


OBES 
OBEA 
OBEB 


OB EC 
OB EC 
08 EO 
08 EE 
OB EF 
OB FO 
OB F i 
OBF 2 
08 F3 
06 F4 
0B F5 
06 F6 
OB FT? 
O6FS 
O68 FS 
OS FA 
O8FB 
OB FC 
OB FO 
OSFE 
08 FF 
oc 00 
oc Oo} 
oc 02 
oc 03 
0c 04 
ocos 
Qc 06 
aco? 
oc 08 
oc os 
OC OA 


oc oB 
ococ 
oc oo 


OC OF 
aio 
oc il 


oci2 


OATE 


ooo oo 
—) 


oo 


ooc Sovcoceo 


eoeooooo0oocoeoce@ecctoeccooooeoocoeorooococo 


= =) f- 3 - k=) 
oo 


oO 


01 


EC NO}. 


7001 
TOE4 


63F0 
1090 
06000028 


co2l 
ECO0002T 
04000027 
6BEB 
6AEC 
740 10BEC 
T7022 


63CF 
6B01 
T7009 


0000 
0000 
3440 
0000 
3701 
0000 


OCOA 
3200 
0000 
3401 
0000 
0000 
BFOO 
0000 
0000 
0000 
0000 
0000 
EFOO 
FFOO 
TFOO 
0001 
0000 
0000 
0000 
Go00 
0000 
0000 
0000 
1200 
0000 


COE2 
1001. 
4C100C23 


Coes 
ESEB 
DOEA 
74000938 


| O2ZJANEE 
415490 



































MOX se] 
MDX PI3¢3 FINEISHED- STOP PRINT 
¢ 
Ox 3 -16 RESET SHIFT CNT 
SLT 16 
STO 2 40 SET NEXT WORD 
a | 
PIT? io KOOoO] 
OR i 39 RESTORE SCAN COMP BIT 
STO & 39 
STX 3 PI 541 SAVE XRl 
STX 2 P1l6el SAVE XR2 
MOX & BLANK»sl WHEN ZERO- PUT SLANK 
MOX SK INT IN PATTERN 
S 
Lox 3 -49 PUT BLANK 
STX 3 BLANK IN PATTERN 
MOX PI4 
s 
, — 
*® CONSTANTS AND STORAGE 
s ey — Eanes epuethas aseerrs> 
s 
BSS E 
BLANK DC t—6 PATTERN BLANK CNT 
STPPT OC 43440 STOP PRINTER 
WAS oc s-8 INTERRUPT DSW 
SRSET OC 43701 SENSE ANDO RESET DSH 
SCNCT OC s-8 SCAN CCUNT 
STPCA OC 43402 STOP CARRIE AGE 
RODENT DOC EMIT READ COUNTER 
oC 43200 SCANNED 
EMTSw OC t-8 FIRST EMIT Sw 
STSPA OC 43401 START SPACE 
ANODEM OC ss 
OREM OC B—- 
ANDOR OC 48F00 EMIT CK CONSTANT 
oc 40000 
ExPctT OC s-8 EXPECTED INTRPT OSH 
oC Bum | 
DC = % 
rou.cy OC t—8 [OLE COUNT 
KEFOO DC /EFOO 
KFFOO DC 4FF00 
K7FOO DC STF0O 
KOOO1] DC 40001 
S$PCSu OC es SPACE WITH PRINT ON SW 
SPCSX OC t—- 
RTRNS DOC o—-8 
STPCT GC e—s STOP PRINTER COUNT 
CHARC DC e—s8 TEMPORARY STORAGE 
CKESW DC +2 ERROR SWITCH 
EMTCT OC S-s EMIT COUNTER 
K1200 OC 41200 
EMIT OC o—s 
& 
¢— eee ee er ee 
, SKIP INTERRUPT 
e panes aeaee nie: ei irom 
& 
SKINT LD 4AS LO oSW 
SLA 1 
BSC LL SPINT oe BR IF NOT SKIP 
Ss : 
LD EXPCT¢] &tD EXPCT SKIP OSW 
OR EXPCT+2 BUILD EXPECTED DSW 
sto EXPCT¢2 
MOX & SKPTO CK SKIP TO 
OLMAY 66 O1JUL66 L5NOV66 O3APR67 
4154908 415490C 419643 4196430 


PART NO. 2191220 


PAGE 


30€ 16350 
30€16360 
30C16370 
30C 16380 
30016390 
30C 16400 
30616410 
30016420 
30C16430 
30016440 
30016450 
30016460 
3006470 
30016480 
30016490 
30C16500 
30C 16510 
30€16520 
30C16530 
30016540 
30C16550 
30016560 
30016570 
30C16580 
30C 16590 
30C16600 
30016610 
30C16620 
30C 16630 
30C 16640 
30016650 
30C 16660 
30€16670 
30C 16680 
30C16690 
30016700 
30C 26710 
30016720 
30C 16730 
30C16740 
30€16750 
30C 16760 
30C16770 
30016780 
30016790 
30€16800 
30C16810 
30C 16820 
30C16830 
30C 16840 
30C 16850 
30016860 
30C16870 
30016880 
30C16899 
30C1¢900 
30C 16910 
30C 16920 
30C16930 
30016940 
29016950 
30C16960 
30C 16970 
30C 16980 
30€16990 
30C17000 
30C17010 
30C17020 


PROG ID 
PAGE 





OoOoc’e 


13 


030C-2 
13 


ors 
S 


( 


O 


é 


Cc 


an, on 


Ao A A BO 6 


—e 


oo tees é i; ee 


EY OO Hem wee Oe 


a 








Van a yas % a 
es es Wy & . 


or, 


“i fa Ww 1) OO 0 © 
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oc 14 
oc 15 


oo 


oC16 Ol 
oc1s8 0 


oc19 Ol 
OciB O 


ocic oO 
ociod Oo 
OC1lE Ol 
oc 20 0 
OoC22 0 


oc 23 
0c 24 
oc 25 
oc 27 
oc 28 
oc 29 
OC 2A 
oc 28 
oc2c 
oc 20 


= 


= 


OC 2F 
G7 30 
oc31 
0C32 
0c 33 
0C 34 


oeeooeooco ooo0o0oo0oo00dodco 


oc35 0 
0C36 Ol 


oc38s Ol 
OC3A Ol 


oc3c 00 
OC3E Ol 
0c40 0 


oc41 0 
oC42 Ol 
0C44 0 
oc 45 0 
oC 46 Ql 
oc4s O 
0oC49 Ol 
OC4B Ol 


Oc40 0 


DATE 
& NO. 


7001 
7003 


T4F F0939 
7003 


OCOOOBFO 
7016 


cool 
1008 
F4000938 
4C200C3C 
TOF6 


COCA 
1002 
4C100C35 
6310 
Coo2 
E8D2 
EOD3 
0000 
CoD5 
4C200BAl 


COce 
EOCc9 
Docs 
1810 
DOC7 
7003 


COCceE 
4C280C3C 


67000B1F 
6FO0OOS5SES 


66000000 
74006810 
TOOA 


COAC 
O4000AE1 
FOBT 
E08s8 
04000810 
FOAS 
D4000AE2 
4C800870 


0000 


O02 JANG6 


415490 


MDX 
MDX 


SKINL MDX 
MOX 


SKIN2 XIO 
MOX 


SKIN3 £0 
SLA 
EOR 
BSC 
MDX 
s 


s 
e 
& 
SPINT LO 
SLA 
BSC 
LDX 
to 
OR 
AND 
sta 
LO 
BSC 





& 

SPIN1 LO 
ANDO 
sto 

SPIN2 SRA 
Sto 
MDX 

‘4 : 

Gao 

x 

& 

, : 

rout 0 
BSC 








& 
IOUT, LOX 
STX 


& 

OUT2 LOX 
MOX 
MDX 


to 
$sT™| 
EOR 
AND 
STO 
EOR 
STO 
TOuUT3 BSC 
s | 











i3 
3 


2 


i 


L 
I 


SK INL 
SKIN2 


SKCNT e-l 
SKINS 


STPCA-1 
SP IN2 


WAS 

8 

SKPTO 
IOUT 2 eZ 
SK E82 





STOP CARRIAGE AFTER 16 
SKIP INTROTS WITHOUT 
A MATCH 

STOP CARRIAGE 


COMPARE PRESENT CHANNEL 
WITH DESIRED 
BR IF NOT EQUAL 





SPACE INTERRUPT 


WAS 

2 
IOUTs- 
16 
EXPCT +41 
EXPCT 42 
KEFC) 
EXPCT #2 
SPCSW 
PI2eZ 


KEFOO 
EXPCT 
ExecT 
16 | 
EXPCT 41 
rout. 








BR IF NOT SPACE 

SET TO HOLD PRNTR ON 
LD EXPCT SPACE OSW 
BUILD EXPECTED DSW 


CK SPACE-PRINT ON SW 
BR IF ON 


REMOVE CARRIAGE BUSY 


RESET SKIP/SPACE EXPCT 


RETURN FROM INTERRUPT 


RTRNS 
IOUT2 eZ 


RTRN 
MLSCF +L 


s-2 
EBITS 
1ouTs 


WAS 
10SwW 
EXPCT 42 
KEFOO 
EBITS 
WAS 
[OSwel 
PIRT 








GO RTRN IF NOT PRINT 


SET MLSCF 


RESTORE M2 
SKIP IF NO OSW ER 


LO OSW 
STO DSW WAS 
COMPARE WITH EXPECTED OSW 


SAVE ER BITS 
BUILD OSW S/B 
STO OSW S/8B 


FCESESES SHE CAHSEE SES FEKETE SSSETS SHOES SESSTSESESS 
CHECK ENIT 
FSF SEKES SLE SESTE SKS SEES SSSESSES SEES SESE SESE OSES 
* THIS SUBROUTINE FINOS THE FIRST CHARACTER 

* EMITTED IN THE TABLE 





& 
CKENT DC 


O IM AY 66 


154908 











mF 
O1LJUL66 LSNOV66 O3APR67 
4154690C 419643 4196430 


PART NO. 


PAGE 


30€ 17030 
30C17040 
30C1 7050 
30C17060 
30C17070 
30C17080 
30C17090 
30€17100 
30C17110 
30C17120 
30€17130 
30€17140 
30C17150 
30€17160 
30C17170 
30€17180 
30€17190 
30C17200 
30C17210 
30C17220 
30C17230 
30C17240 
30C17250 
30C17260 
30C17270 
30€17280 
30C€17290 
30C17300 
30€17310 
30C17320 


30C17330 


30€17340 
30C17350 


30C€17360 


30C17370 
30C 17380 
30C€17390 
30C17400 
30C 17420 
30C€17420 
30C17430 
30C17440 
30C€17450 


30€17460 


30C€17470 
30C17480 
30€17490 
30€17500 
30€17510 
30C€ 17520 
30€17530 
30€ 17540 
30€1 7550 
30C1 7560 
30C1 7570 
30C175860 
30C 17590 


30C17600 


30C€17610 
30C€17620 
30C17630 


30€1 7640 — 


30C17650 
30C 17660 
30C17¢70 
30C17680 
30C17690 


30€17700 - 


PROG ID 


PAGE 


ry 


2191220 
13A 


030C-2 
13A 
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| 
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PAGE 14 C vy PAGE 4A 
1132 PRINTER FUNCTION TEST c ; 1132 PRINTER FUNCTION TEST 
OC4E 0 COBS to CKESw 30C17710 ( ot of ae bes SSS STESSS SKS HE SSH SSS HSSEESSESSSS SEES EESSESESSEEE 30C18390 
OC4F O01 4CA00C4D BSC TT CKERTeZz | -30C€17720 | -@ THES SUBROUTINE SCANS THE PRINTER MESSAGE 30€C 18400 
.0C51 0 CcoBs Lo EMIT. | 30C17730 * AND SETS THE PRINT BUFFER FOR THE NEXT EMIT. 30018410 
OC52 01 04000AD8  ~C STO & EMTWS STO EMIT WAS 30C17740 1 O) +—-—--- . 7 —30C18420 
oe ees + a : are 3 : -30Ci7750 ¢ : | | | | 30C 18430 
5% O01 74000BF4 MDX LL EMTSW Cx FOR FIRST ERET 30C 17760 OC9F 0 63€0 MSCAN LDX 3 -32 SET TO SCAN BUFFER 30018440 
056 0. 7038  .  _MOX CKEM6 BR IF NOT FIRST 30C 17770 is OC AO 0 10A0 . SLT 32. > ea | 30018450 
& 7 30C17780 | OCAl 00 0C000020  $T0 LL 32 30C 18460 
Oc57 0 COoB2 —. Lo EMIT eS -30C17790 ¢ | 30C1 8470 
ocS58 QO E89E , 3 OR OREM | CK FOR MISSING EMIT BITS 30C17800 OCA3.0 6200 . .. EDR 2 0. 30C28480 
0C59 0 0090 . . $T0 OREM FFOO IF OK 30017810 OCA4 01 4CZ200CA9 MSL BSC L MS292 CK FOR NEXT BUF WORD 30C 18490 
OCSA QO COAF . ge) EMIT | 30C€17820 OCA6 0 7201 —MOX 21 _ oa 30C18500 
0C58 0 EO9A. a AND ANDER CK FOR SHORTED EMIT BITS 30C17830 i OC AT O1 C40009B4 to tL «8000 _ 30C 18510 
0Csc 0 bOS99 —. $0 ANDEM 0000 IF OK 3C0C 17840 , wee: s - | ~~. jn, 2% 30C 16520 
@50'0 FO9YV get -EOR OREM CK FOR EMIT BITS OK 30017850 OCA9. 0 OOOF MS2. STO TEMP | SAVE MSG CHAR POSITION 30C18530 
CCSE © FOAO Joe. EOR KFFOO ag | = 30C17860 c OC AA 01 C7OO0DCE LD 3 BUFt4¢32 LD NEXT MSG CHARACTER: ~30€028540 
OCSF O1 &C200C75 BSC CL . CKEM5 eZ CONT IF ALL EMIT BITS OK -30C17870 | OCAC O1 F4000COA €OR L EMIT COMPARE CHAR MITH EMIT 30€18550 
aN oe eee 48 oe ee a 30C€17880 — OCAE O01 £C200CB3 BSC ££ MS3e2z BR IF NOT EQUAL 30C18560 
“610 6300 rn 4) 2 | 3.-48 FIND FIRST CHARACTER 30C17890 io| ocBO O CcO00s LO TEMP IF EQUAL SET BIT EIN -30C18570 
O62 01 CTOOOCEA -CKEML LD &3 CHAR?+48 EMITTED IN 30C 17900 0CB1 0 EALF OR 231 PRENT BUFFER — 30018580 
64 0 90A5 ae Ss EMIT SEQUENCE TABLE 30C€17910 OCB2 0 D2IF $T0 231 7 a 30C18590 
265 O1 4C€180C60 , BSC L . CKEM2,e FOUND IF BR 30C17920 - * | Be ae 30C18600 
067 0 7301 | .. MDX 31. GO TO NEXT TABLE ENTRY -30C17930 - 0863 0 COOs . MS3 LOD  TERP SHIFT TO NEXT ASG 30C1 8610 
-0C66 0 T0F9 OX - CKEML —30C017940 oe4 0 1601 SRA ee oo CHAR’ POSITION 30C18620 
~ 069 OL 67000A3D ~~. COX L3 ERR? -30C17950 C:. oc85 0 7301 _ Hox 31 ADV TO NEXT CHAR — 30C 18630 
'0C6B 0 6898 “STR 3 CKESW 30C17960 - OCB6 0 TOED HDX AS} we. x | | 30C18640 
Oec O 7006 MOX CKER4 30C17970 2 - OCB? Ol. 40000035 >. (8$C t OUT s -30C18650 
ca oe e : | 30017980 i : & 30C1 8660 
oéD 0 6886  CREH2 STX EMTSH RESET AST SCAN SH 30€17990 z oc8S$ 0 0000 Teepe oc GS-3 “30C.1 8670 
OC6E 0 7301 ‘MDX 31 DECREMENT XR FOR NEXY CHAR 30C16000 _ & 7 | | se Ase | | 30€18680 
@6F O 7001 “os MDX CKEN3 AND SAVE a -30C18010 yo ( SSTSCHESSES SESS SESS SESS SOSSESSS SESS SE OE SSSSS 30C 18690 
- O70 0 6300 7 Lox 3-468 IF XR3 = O, RESET 30€18020 : & EMIT CHARACTERS | 30C18700 
oc7i O01 6FOO0CO6 CKEM3 STX L3 CHARC 30C€ 18030 ae FSS SHSS SSIS SSSKELKSS SEKSESSESLSS ES SSSS SHES SVSSS - 30C 28710 
oc7z73 01 4C800C4D CKEM4 BSC I CKERT .. 30018040 © THIS IS THE TABLE OF CHARACTERS IN THE ‘'30C18720 
| ; : 2. bn oe _30€18050 ar ne ee © PROPER SCAN EMIT SEQUENCE 30C18730 
 Q@75 O1 74FFOCOS CKEM5 MDX LCL EMICT .-l CNT 100 EMITS - 30018060 ees e— ——— 30018740 
 OcC77 O 70C4 . : MDX 1ouT2 THEN SKIP 30C18070 | : a e = — | 30C 18750, 
oc 78 O01 67000A35 -LOx ERRS a ; 30C 18080 OCBA 0 F100 CHAR OC .4F100 i 30C18760 
o7a 0 6B8C STX CKE Sw ‘SET ER Sw FOR ER 6 30C 18090 oc868 O F200. | oc /F200 2 30C18770 
oc76 01 CCOOOBFE too ANOEN LO ERROR CODE 30C€18100 iC -ocBc Oo. F300 oC 4—300 3 30C18780 
oc 7D 01 OCOOQ0ADS $To - ERM4 SET IN MESSAGE ~30C186110 | 0oc8D0 0. F400 oc _.4F 400 & 30€18790 
 OCTF O01 CCOOOBFS 00 - ANDOR . REINITIALIZE EMIT 30€18120 OCBE 0 F500 oc 4500 5 30C16800 
OC6i O1 OCOQOBF6 ‘$TO - ANDEM CHECK wORD 30C18130 - OCBF O F600 oc _ F600 6 30C18810 
0C83 0 6364 “LOX 100 - 30016140 occo 0. F700 oc 4F700 v ~ 30€18820 
0C84 0 6883 STX ERMTCT RESET EMIT CK CHT 30C18150 OCCcl1 O F800 cc 4F800 8 30C18830 
oc85 021 OCOOOBEC - MIO STPPT—1 STOP PRINTER 30C18160 oi -OCC2.0. F900 oc —4F900 9 30C 18840 
ocs8? 0 1810 ~ SRA 16. — 30C18170 0CC3 0 F000 . oc 4F000 o- 30C1 8850 
0C88 01 DS000BFA $TO EXPCT 30C18180 .0CC4 0 TEOO oc . STEOO oad 30C 18860 
 OCBA O12 0400081C sta TeOoSw 30C18190 Le occs 0 5800 oc 45800 $ - 30C18870 
 OC8C O1 D4000BF4 - $70 EMT Sw RESET 1ST EMIT SW . 30018200 occé 0 4800 oc 446800 ° —30C186880 
OC8E 0 TOA9 MDX tOuTh 30C 16210 occ7 0 7000 oc 47000 © = —30C18890 
| : e 7 _30C16220 occs8 0 6600 oc 46800 9 30C 18900 
—& — —- — _30€18230 occ9 0 $000 oc —4§000 a 30C18910 
© THIS SUBROUTINE CHECKS THE CHARACTER EMITTED 30C 18240 oCcCA 0 6000 oc 46000 - 30C18920 
@ WITH THE TABLE OF CHARACTERS IN THE PROPER SEQ 30C 18250  OCCcB Oo 4000 oc 44000 ¢ 20€18930 
o— —————= 30C18250 occc O E00 oc 44E00 oe 30C 18940 
¢ | 30C) 8270  @co OQ 6100 . DC 46100 4 30C 18950 
OC8F O01 67800C06 CKEMS LOX CHARC RESET XR3 AND CHECK IF 30C18280 ocCcCE 0 5C00 oc 45C00 & 30C€ 18960 
~ 0C91 01 CTOOOCEA tO CHAR*+48 CHAR EMITTED 30C18290 OCCF O 5000 oc 45000 ¢ 30C 16970 
0C93 01 D4000A0C Sto EMTSB STO EMIT S/B- 30C18300 oc00 0 0100 pc 40100 J 30C18980 
0oC95 01 94000COA $ EMIT IS IN THE PROPER SEQUENCE 30C18310 ocoOlL O 90200 oc 40200 K 30C€ 18990 
oc97 O1 4C180C6D BSC CKEM2 ¢e YES» IF BRANCH 30C 18320 oc02 0 0300 OC 40300 a 30C 19000 
-0C99 01. 67000A45 cox ERRB —30C18330 oc03 0 0400 OC 40400 R ' 30€C19010 
-0C9B O13 6FOQOOCOT ‘STX CKE Sw SET ERRGR Sw —30C 26340 .OD4 0 0500 oc 4/0500 Nn 30C19020 
oc9g9c 01 4C800C40 BSC CKERT 30C18350 ~0C05 0 0600 OC 40600 oO 30C 19030 
: ome 2 al a | —_— 30C1 6360 ocdDé O O700 oc 10700 | 30€ 19040 
BSS SKSSS SSS SESSS OSS SESS ESSSASESE SSSKSSSESSSSSS 30C18370 oco?7 0 0800 oC 40800 Q 30C€19050 
* MESSAGE SET UP 30C28380 Ope 0 9900 oc — £0900 R * 30C19060 
C. aN 
 OATE =.=: O2ZJANGE OI1MAY66 O1JUL66 ISNOV66 O3APRE7T PROG I0 030C-2 | DATE 02 JAN66 OIMAY6G OLJUL66 LSNOV6E6 8 O3APRET PROG 1D 030C-2 
EC ROe 415490 4154906 415490C 419643 4196430 PAGE 14 c . EH NO 415490 4154908 4 15490C 419643 4296430 PAGE h4A 
\ i) 
Cc ) 
C , 
~ ay ~~ ia a pe ~~ ~~ ~ ~ res: . 
| | ) \ \ . ~ a ) — — é ) aX * > = ~ ‘ is ay = ~ \ x 
eee Ne” ree. Bel / { } ; \ \ 
; aes g eae ew cei = = oe Sle ees —) Se en | Se 7 -. ow _, _) iw <a a 7 


Cy 4 “os wee 








aa Ca ae oo 


Ge On ONS EOESLS EOE OF OESEESES TSC EST OT SESE Stee ; | 
, / / P | | f : ‘ ! \ ‘ : \ ‘ < a a . FOS, SS . -_ 
7 ~ ~ = WS ; NW Sy ee, Se os, ey co Nu c ee | Se May | a = i ed eS e C) C) 
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1132 PRINTER FUNCTION TEST 1132 PRINTER FUNCTION TESI 





ocos 0 cs500 oc 4CS00 E -30C19070 { 0012 0 569E oc 1569€ 30€19750 
OoCDA O C700 DC 4C 700 G -30C19060 0013 0 FFFF a oC JF FEF 30C19760 
OCDB O £600 oc “J€600 — & 30C19090 7 | * | 30C19770 
ococ Oo e700 pc fET00 x 30€19100. 014 0 329A AOPR OC 329A OSW —-PRINTER 30C 19780 
ocoo0 0 £800 oC 4E 600 v 30C19110 0015 0 9221 oC £9221 30C19790 
 @COE O €E900 pc -+=—« SE 900 Z —30C19120 0016 0 2184 OC . 12184 30C19800 
ocOoF c C100 oc C100 A 30€19130 (. aa .. 30€19610 
OCEO O C200 oc 4C200 8 30C19140 C017 0 5662 APRTR DC 15662 PRINTER ~ 30€19820 
OceEL Oo C300 DC -_ £0300 C 30C19150 0018 0 769E DC . ST69E 30€19830 
OCE2 0 C400 .OC 40400 0 30C19160 0019 0 6200 Oc 46200 —30C19840 
CCE3 O C600 OC C600 F 30C19170 COLA O FFFF OC SF EFF 30C19850 
cCeE4 0 Ccs00 oc 4C 800 | 30€19180 e ' 30C019860 
oces 0 C900 oc -4€900 I 30C19190 ( 0018 0 9AIE ASTPD DC —ASASE STOPPED 30€19870 
OCE6 O E200 oc 4E200 $ 30C 29200 OOlC O 5256 OC 15256 30C 19860 
OoceT O £300 OC 7E300 T 36C€19210 C010 0 5636 OC 15636 30C19890 
OCES8 O £400 oc 4E400 U 30C19220 i OD1E O 3200 DC 43200 30C19900 | 
oces O €E500 oc  4&500 v 30€19230 OLF O FFFF DC FFF 30€C19910 
OCEA O F100 OC 4€100 R 30C19240 & 30€19920 
| * 30C€19250 C) 0020 0 3222 AONTO OC 43222 OID NOT TURN OFF 30€19930 
SSESCSSSS SKS SHSKE SKS FEKETE SOSSESS SESS SCSESSHSSS 30€19260 0023 0 3221 Oc 43221 30C 19940 
* ALPHA MESSAGES 30C€19270 0022 0 7652 oC 47652 30C19950 
SOS SSESS SHE OHSEHESS SESTESSSSTCSE SSVOSSESESSSOS 30C€19280 C 0023 0 9E2l oc 49E21 30C19960 
2 | 30€19290 0024 0 9EB2 oC S9EB2] 30C19970 
OCEB O 923E AWAS OC 19 23€ was S/8 30C19300 0025 0 6276 OC 46276 30€19960 
OCEC 0 9A21 OC f9A21 30€19310 C 0026 0 2152 OC 42152 30C 19990 
OCED O 219A oC J2i9A 30C 19320 CO27 0 1212 oc fi12i12 30€C20000 
OCEE O BCILA oc JBCLA 30C19330 0028 O FFFF oC SFFFF 30C20010 
OCEF O 2100 OC 42100 30€019340 Ci s | 7 30C€20020 
CCFO O FEFFF oc SE FFE 30C19350 0029 0 5256 AEBF OC 45256 EMIT BIT FAILURE 30C20030 
s 30C19360 OO2ZA 0 3676 oc $3676 30C20040 
OCFIL O 2164 ASOSw OC 42184 STATIC DSW ERR 30C219370 C 0028 0 219A DC T2198 30€20050 
OCF2 0 Y9AIE oC S9A9E ' 30C19380 OO2C 0 2652 DC 42652 —30C 20060 
OCF3 0 3€9E oc S3ESE —30C19390 020 0 629E DC I629E 30C20070 
OCF4 0 221E oC J221E 30C19400 i CO2ZE 0 2184 oc 2384 _ 30C20060 
OCFS 0 2132 oC 12132 — 30C19410 G2F 0 3672 OC. 13672 30020090 
GFE O 9A92 oc S9A92 30C€19420 0030 0 229E oc - $S229€ 30C 20100 
OCFT O 2136 oc 42136 30C19430 0031 0 211A oc —«OAULA — 30C20110 
OFE O 6262 oc 46262 30C19440 0032 0 229€ oC S229€ —-30C20120 
acFS 0 FFFF - oc JE FFF 30€19450 0033 0 2112 oc f2ii2 30C 20130 
e 30€C19460 qs 0034 0 3E22 Oc  J3E22 ~ 30020140 
OFA O 2184 ABOSu OC $2184 BUSY DSW ERR (30019470 0035 0 SEB2 oc  JSEB2 30C20150 
OCFB8 O 1LAB2 oc JLAB] : 30C19480 0036 0 6236 oc . $6236 30C 20160 
GOCFC O DARE oc 79AAG 30C€ 19490 C -. 0037 0 FFFF oC SEEFE 30C201706 
OCFD O 2132 oc 42132 30€19500 | . s 30C20180 
OCFE O 9AS2 oc J9A92 30C19510 0038 0 3672 AEMT OC 43672 EMIT INVALD 30020190 
OFF O 2136 oc 42136 30C 19520 ) 0039 0 229E OC # # §&¢229€ 30C20200 
0000 0 6262 oc . 46262 30C19530 003A 0 2184 oc 42164 30C20210 
@ol 0 FEFFF oc SFEFF 30C19540 0038 0 2276 oC 42276 30€20220 
. - 30019550  < 003C 0 B863E oC JB63E | 30€C 20230 
0002 0 2184 ADSW1 OC 42184 LEVI OSwW ERR - 30C19560 0030 0 SE32 BC . JSE32 30€C20240 
0003 0 5E36 oc I5E36 ~30C19570 OO3E O FFFF fa OC JE FEF 30€20250 
0004 0 86FC oc /B6FC 30€19580 { | s ? . i - 30020260 
@mo0s 0 2132 oC 42132 —36C19590 OO3F G 2184 AESER DC 42184 ENZET SEQ ERR 30C20276 
@mo06é 0 9A92 oC 49492 30C19600. 0040 @ 3672 — DC . £3672 — 30€20280 
OD07 © 2136 oc 42136, 30C19610 my 0041 0 229£ oc 4229E -30C 20290 
0008 0 6262 DC 16262 30C 19620 0042 0 2200 oC 42100 30C 20300 
0009 0 FFFF oc CE FFF 30€19630 . 0043 0 9A36 ASER OC /9A36 30020310 
| : 3 s -< 30( 19640 cy 0044 0 6621 OC 46621 30C 20320 
 ODOA 0 329A AoSw OC G329A OSa 30019650 0045 0 3662 OC 13662 30C 20330 
000s oO 93221 7 oc 9221 30C19660 0046 0 6200 oc 46200 30C2034C 
opoc 0 FFFF oc JEFFF 30C19670 i. Y 0047 0 FFFF oc JF FFF '30C20350 
s 30C 19680 ee & 30C20360 
@00 0 2121 ANINT DC 42123 NO INTRPT 30C 19690 C048 0 7222 ARC OC 47222 MISSING CHANNEL 30C20370 
ODOE 0 6476 oc . 48476 : -30C19700 - ‘- C049 0 YQ9ADA oC S9ASA 30C20380 
GOOF O $221 oc 75221 30C19710 CO4A 0 2276 oc 12276 30C€20390 
s . -30C19720 | 0048 0 1621 . oc 42622  30C€20400 
O10 0 2276 AINT OC. 2276 30€19730 C ry 004C 0 1E26 ACHAN OC 41E€26 — 30C20410 
0011 0 Y9E62 | oc 49E62 . 30C19740 0040 0 3E76 oc  S3ET 30020420 
A 7 : 
DATE O2JAN66 O IM AY 66 OLJUL66 LISNOV66 4 O3APRE6T PROG 10 030C-2 OATE O2JAN66 O IM AY 66 O1LJUL66 15N0 V66 OBAPRE7T PROG ID 030C-2 
E NO. 415490 4154908 415490C 419643 4196430 PAGE is | = & NO. 415490 154908 415490C 419643 4196430 PAGE iSA 
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004E 
004F 
0050 


0051 
0052 
0053 


0054 
0055 
0056 
0057 


0058 
0059 
OOSA 


0058 
005C 
0050 


ODSE 
00 SF 
0060 
0061 


0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
OD6A 


0068 
00 6C 
0060 
CD6E 
006F 
0070 


CO7i 
O72 
0073 
0074 
0075 
0076 
ooTT 
00786 
ooT9 
OOTA 
0076 
OO7C 
0070 
OO7TE 


OO7F 
00 80 
00812 
0082 
0083 
0084 


0085 


00 86 
0087 


SATE 


& NO. 


©oo SECeeooo soocooooecooooo eecoooo aecooocoooo oe0o e000 S800 SS90 ooo ooo 


7636 pc 
5£00 OC 
FFFF oc 
& 
72B2 AMSP DC 
5E9E oc 
2100 oc 
. & 
9A56 ASPC OC 
3E1E | DC 
3600 oc 
FFFE pc 
s 
7282 AMSK OC 
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1442 READER/PUNCH FUNCTION TEST 1442 READER/PUNCH FUNCTION TEST 


TABLE OF CONTENTS 2.2°** EQUIPMENT PREREQUISITES 


THE FOLLOWING EQUIPMENT IS REQUIRED. 
PARAGRAPH _ PAGE A. 1131 CENTRAL PROCESSING UNIT CCPU) WITH PROGRAM LOAD FROM 


CARD OR PAPER READER, 


Dg PURPOSE ° e e e e ° e e e e e e e ° ° e e ry e e e ® e e e e ° l B. 1442 CARD READ/PUNCH MOD 6 OR a 


Qc. ‘PREREQUISITES ix. «4 <0 di & hohe A ee OS Oe BR ae eae ae | C. AT LEAST 1400 WORDS OF AVAILABLE CORE STORAGE. 
2. 1] PROGRAM PREREQUISITES Cvsevds sedvenagvevdv ge 
2.2 EQUIPMENT PREREQUISITES | 3. OPERATING PROCEDURE 
a | THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
Be”, SORE CSTETING HUF eaerehes. 2 pi ie ch enn s Gk Bh ay wie ee RE aka Bk AE ae eA | FOR OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC 
3.1 PROGRAM LOADING i . | | MONITOR II DOCUMENTATION. 
3.2 PROGRAM OPERATION eune ets | 
3.2.1 PROGRAM CONTROL - FUNCTION 0 3.1 PROGRAM LOADING 
ee a ee Seer tee ares | | STANDARD MONITOR LOADING PROCEDURES APPLY 
oe i | | | | | THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
3.3.2 ERROR HALTS a | aides -EDURE 
3.4 TERMINATION | | | . | 7 : | 
mee pre | | | a | 1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT. MARGIN. 
—- 3 2. SET BIT SWITCH 15 OFF - LOAD AND GO | ‘ 
Bice MPG thac an ter ts ee TORRE en SS ee Gea” ME meee ee ei A 7 ON - TO SPECIFY OPTIONS BEFORE RUNNING. 
OS feeeae esc ces” oe IF HALTED AFTER LOADING, SELECT PROGRAM 
OO 4 OPTIONS THEN TURN OFF HALT SWITCH OR 
Sie, COMMENTS: S08 a Ske eo Sh ee eu we ee ah een we ee, BA | | : FOLLOW NORMAL RESTART PROCEDURE CSECTION 3.5). 
. Ye , a4 . 3, LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. | | a 
5.1 TEST PROCEDURE : 
5.1.1 TEST ORGANIZATION 4%. SELECT PROGRAM CHE Se ee DESIRED. 
5.1.2 ERROR CHECKING | 3 . 
5.2 ROUTINE DESCRIPTION _ ee 
5.2.1 TEST SEQUENCE CONTROL ROUTINE — CNTRL 3.2 PROGRAM OPERATION. 
5.2.2 NORMAL TEST ROUTINES - | | | ; 
5.2.3 OPTIONAL TEST ROUTINES | : 32.2.1 PROGRAM CONTROL OPTIONS FUNCTION 07 
5.2.4 TEST SUBROUTINES | i, BER SUIT CHEe ques ocak. 
ee 2. SET SWITCHES 8-15 AS DESIRED. 
5.2.6 INTERRUPT ROUTINES € | EAE Ral ee Na a ENA, RR SSR a RE ERIN RE OE eC RR Meee 
Bc. “APPENDIO 4: Sp ew ee ES EO. Se eS Sn ee sr ae ree 
} , . | 8 — - RESTART | | 
a USN Pa ce nergy Be : ee eS 9 SINGLE CYCLE CONTROL AND ROUTINE START MESSAGE | 
| 10 + LOCK ON FUNCTION 7 | 
11 LOOP PROGRAM 
| | 12 LOOP ON ERROR 
| | es a 13 BYPASS ERROR PRINTOUT 
1. PURPOSE | | gh Bes | oe, s —_ 14 HALT ON ERROR 
THE 1442 CARD READ/PUNCH DIAGNOSTIC PROGRAM CHECKS THE. = 4 . | 15 HALT 


OPERATING PERFORMANCE OF THE 1442 CARD READ/PUNCH. - 3. PRESS INT REQ KEY ON. CONSOLE. " ¢e oar as - 
2. PREREQUISITES | 
2.1% PROGRAM PREREQUISITES 


1130 DIAGNOSTIC MONITOR II. 


2JAN66  O1MAY66 15NOV66-O1MARG67. ~=—«O1APR69. OIMAY69 PROG ID 030F-* DATE = O2JAN66 O1MAY66 15NOV66  O1MARG67 O1APR69 O1MAY69 PROG ID 030F-* 
ee Abs eee: 415490B 419643 419643B 571036 5710368 PAGE 1 EC NO. 415490 415490B 419643 419643B 571036 571036B PAGE 1A 
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| | | 7 : : PAGE | 2 
1442 READER/PUNCH FUNCTION TEST 
3.2.2 ROUTINE SELECTION - FUNCTION 1 
THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 
1. TO SET ROUTINE SELECTION 
A. SET SWITCHES 0-7 TO 41. 
B. SET ROUTINE NUMBER IN SWITCHES 12-15. 
RTN DESCRIPTION 
1 PUNCH AND FEED . NORMAL ROUTINES~_ 
2 READ ROTATE PATTERN -, THE PROGRAM STARTS WITH 
3 PUNCH 40 COLUMNS . ROUTINE 1, RUNS EACH 
uy PUNCH FLIPPED PATTERN . ROUTINE IN SEQUENCE 
5 READ FLIPPED PATTERN . THEN TERMINATES AFTER 
6 = CLUTCH TEST . ROUTINE 6. 
7 ¢ PUNCH FROM SWITCHES . OPTIONAL ROUTINES 
8. GANG PUNCH . THESE ROUTINES RUN 
: | . ONLY IF SELECTED. 
* = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 
C. PRESS INT REQ KEY ON CONSOLE. 
2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 
3.2.3 OPTIONAL CONTROL 
1. SELECT CLUTCH DELAY 
IN THE CLUTCH TEST CRTN 6) THE DELAY BETWEEN START READ COMMANDS 
CAN BE SPECIFIED BY THE SWITCHES. TO DO THIS, SET SWITCHES 0-7 
TO 81, 8-15 FOR THE DESIRED DELAY, THEN PRESS THE INTERRUPT 
REQUEST KEY. EACH-BINARY INCREMENT SET IN THE SWITCHES INCREASES 
THE DELAY BY 8 MILLISECONDS. 
2. PUNCH FROM SWITCHES 
ROUTINE 7 WILL PUNCH ALL CARDS WITH THE PATTERN SET IN SWITCHES 
0-11. AFTER THE ROUTINE IS SELECTED, FOLLOW INSTRUCTIONS IN THE SET 
UP MESSAGE. THE NUMBER OF COLUMNS TO BE PUNCHED CAN BE SPECIFIED BY 
A SWITCH ENTRY WITH THE SWITCHES SET TO 81XX WHERE XX EQUALS THE 
NUMBER OF COLUMNS IN HEX, 
3. MODIFY PUNCH DATA 
ROUTINE 9 WILL READ IN ONE CARD AND REPLACE THE PUNCH DATA TABLE WITH 
THE DATA PATTERN PUNCHED IN THAT CARD. THE PROGRAM WILL THEN 
AUTOMATICALLY RESTART FROM ROUTINE 1. 
DATE O2JAN66 O1MAY66 15NOV66 01MAR67 O1APR69 OIMAY69 PROG ID 030F-* 
EC NO. 415490 415490B 419642 419643B 571036 571036B PAGE 2 
= a ~ 7“ : aN oS as Cn tae ie a < ~ 
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DATE 
EC NO. 


3.3%" PROGRAM HALTS 


PART NO. 2191226 


PAGE 


3.3.1 NORMAL HALTS 
HALT NO. DESCRIPTION ; RESTART ; 
.(B REG). : ACTION ; 
. 3001 . PROGRAM STOP OR ADDRESS STOP . PRESS START 
. 3002 ., HALT ON ERROR . DISPLAY MODE-PRESS START. 
: ; . RUN MODE-PRESS START ; 
3.3.2 ERROR HALTS 

HALT NO, DESCRIPTION . RESTART. : 
.(B REG). | ‘ ACTION ; 
. 30F1l . CHECK SUM ERROR ON FIRST . RELOAD : 
. 30F2 . READER DSW ERROR WHEN . ‘ RELOAD 
: ; LOADING LOADER ‘ : 
. 30F3.. CARD 2 OF LOADER DID NOT . RELOAD | : 
a ae. LOAD : ; 
. 30F4 =, CAN NOT CLEAR CORE - DUE TO . 
: : ERROR IN ADDRESSING UPPER : : 
‘ : CORE. : : 
. 30F5. READER CHECK WHEN LOADING . NPRO THEN PLACE CARDS. 
: ; MONITOR OR TEST PROGRAM . RUN OUT IN FRONT OF . 
; : . REMAINING DECK AND PRESS. 
; . . START. : 
. 30F6 . MONITOR DID NOT LOAD . RELOAD 
. 30F7.. CHECK SUM WHEN LOADING . RELOAD 
: ; MONITOR | : : 
. 30F8 .) READER NOT READY . MAKE READER READY 
. 30F9 . INVALID INTERRUPT WHICH WILL . PRESS RESET AND START. 
é ; NOT RESET , : 
. 30FA . CONSOLE PRINTER HANG UP - . FIX THE CONSOLE PRINTER . 
: é BUSY WILL NOT GO OFF ; : 

O2UAN66 O1MAY66 -15NOV66  O1MAR67  O1APR69 OI1MAY69 PROG ID 

415490 415490B 419643 419643B 571036 5710368 PAGE 
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3.4 PROGRAM TERMINATION 


IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 6. ROUTINE 7,8 AND 9 WILL RUN ONLY IF 
SELECTED. 


IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 


3.5%8* RESTART 


» SET SWITCHES 0-7 TO Ol. 

» TURN ON SWITCH 8. 

- SET DESIRED CONTROL IN SWITCHES 9-14, 
» PRESS INTERRUPT REQUEST KEY. 


aaaPaearasaraszaras as 
Evevevervaerarngvuddvarvde 


PWD Ee 


ue, PRINTOUTS 


ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN OORR AAAA CMESSAGE ) 
OR | 
EPPNN OORR AAAA CMESSAGE) 


WHERE A IDENTIFIES STATUS MESSAGES 


E IDENTIFIES ERROR MESSAGES 


PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 
THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY MONITOR OR OF FOR MESSAGES ORIG 
THIS PROGRAM, 
NN IS THE MESSAGE SEQUENCE NUMBER 
RR IS THE ROUTINE NUMBER 
AAAA IS THE ADDRESS OF THE ROUTINE 
MESSAGE IS ANY VARIABLE INFORMATION 
G.1*** STATUS MESSAGES 
A0000 NUM PID ADRS RELF- LD 


XXXX XXXX XXXK XXXX 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
CEXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 


A0Q001 SWS 


XXXKX XXXX 


PID 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 


MESSAGE. 
DATE O2JUAN66 O1MAY66 15NOV66 O1MAR67 OLAPR69 OIMAY69 
EC NO. 415490 415490B 419643 419643B 571036 9710368 | 
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AOFOO OOOR AAAA 


ROUTINE START MESSAGE =- IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 


AOFO1 O000R AAAA LOAD. BLANKS 
LOAD THE 1442 HOPPER WITH BLANK CARDS THEN PRESS 1442 
START. . 


AQFO2 OO00R AAAA LOAD FROM STK2 

LOAD THE CARDS IN STACKER 2 CPUNCHED BY PREVIOUS ROUTINE) 
IN THE 1442 HOPPER, THEN PRESS 1442 START. THIS DECK WAS 
PUNCHED WITH A ROTATING PATTERN. IT MUST BE LOADED IN THE 
SAME ORDER AS PUNCHED. THERE MUST BE NO CARDS MISSING FROM 
THE DECK. : 


AOFO03 O000R AAAA LOAD ANY PATTERN PLUS BLANKS 


IF ROUTINE 8 = THE PATTERN IN THE FIRST CARD WILL BE PUNCHED 
IN THE FOLLOWING BLANK CARDS. 


IF ROUTINE 9 = THE ROTATE DATA TABLE WILL BE REPLACED BY THE 
PATTERN IN THE FIRST CARD. THE ROUTINE WILL THEN RESTART THE 
PROGRAM AT ROUTINE ONE. 7 


AOFO4 0006 AAAA LD GANG PUNCHED CARDS 

LOAD ANY GANG PUNCHED DECK. THIS DECK CAN BE PUNCHED BY ROUTINE 
8. THE FIRST CARD WILL BE READ AND ALL FOLLOWING CARDS 

COMPARED TO IT. | fa 2 


AQFO5 OO0O0R AAAA NRDY - PRESS 1442 START 
THIS MESSAGE WILL BE PRINTED IF THE 1442 IS NOT READY FOR ANY 


REASON. THE PROGRAM WILL LOOP WAITING FOR READY. TO CONTINUE, 


AOF06 000R AAAA — LAST CARD 
THE LAST CARD INDICATOR WAS ON AT THE COMPLETION OF THE LAST 
1442 CONTROL OPERATION. 


LAST CARD. THE ROUTINE WILL THEN TERMINATE. IF NO ROUTINE 


HAS BEEN SELECTED, THE PROGRAM WILL ADVANCE TO THE NEXT ROUTINE. 


IF A ROUTINE HAS BEEN SELECTED, THE PROGRAM WILL RESTART THAT 


ROUTINE. | 
DATE O2UAN66 O1MAY66  15NOV6G  O1MAR67  O1APRG9 OI1MAY69 
EC NO. 415490 415490B 419643 419643B 571036 571036B 


A FEED COMMAND WAS GIVEN TO RUN OUT THE 
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AOFO7 0007 AAAA SET PATT IN SW 0-11 


THEN TN SW 12 





THIS IS THE SET UP MESSAGE FOR ROUTINE 7. 
TO SET ANY DESIRED DATA PATTERN IN SWITCHES O-11. WHEN SWITCH 
12 IS TURNED ON, THIS PATTERN WILL BE PUNCHED. THE NUMBER 
OF COLUMNS PUNCHED CAN BE CONTROLLED BY A FUNCTION 2 SWITCH. 
ENTRY WITH THE DESIRED NUMBER ‘OF. COLUMNS SET IN SWITCHES> | 

' 8-15 CFOR SINGLE PROGRAM OPERATION: SET SWITCHES tay 81XX WHERE XX 
EQUALS RUPEE. hal COLUMNS IN HEX), . 


ae OP WP 09 02 07 08 42 a2 Ae 
@usuudvevdsnanevervay 


ERROR MESSAGES - 


IT INSTRUCTS THE CE 


by 23 


THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 





: : THE 1442 DSW OF ee a SF 2 
“ BIT - : 2 4 7 x 
a 0 READ RESPONSE “ 
“ 1 PUNCH RESPONSE “ 
# 2 ERROR CHECK x 
e 3 LAST CARD x 
“ 4 OPERATION COMPLETE | “ 
* 5 NOT USED — ae. 3 
“ 6 NOT USED — | “ 
“ 7 FEED CHECK AT READ STATION ae 
“ 8 NOT USED © as 
“ 9 NOT USED “ 
x «10 NOT USED 3 
: 11 - NOT’ USED x 
“ 12 NOT USED “ 
“ 13 NOT USED “ 
3 14 BUSY a x 
3 15 NOT READY OR BUSY : 


a 
¢ 
ap 
ew gr 


Oar apap aras ox arararase ar aaaraera eoana 


ara ad PAP EP 4P OPE 
seanevevengeee ow suengegegeeucvae euev vevevee eve wvewv See eee Ceuenee ge 


oa 
ewVedveudvevevdsde dd 


E0001 SWS INVLD 


XXXX 


THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE, 


E0003 ovR CORE 


THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 


- O1APR69 O1MAY69 
571036 5710368 


—O1MARG7 
4196438 


15NOV66: 
419643 


” O1MAY66 
415490B 


~ O2UAN66 
415490 


Se 6 Sie f cask a) is aes Be od ie! Ne ee S 


DATE 
EC NO. 


PART ‘NO.’ 


PAGE 


PROG ID 


PAGE 


IBM’ MAINTENANCE DIAGNOSTIC PROGRAM’ FOR THE 1130 SYSTEM” 


2191226: 
ra PAGE 
1442 READER/PUNCH FUNCTION TEST 
E0004 CKSUM 
A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM, 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 
1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 
2. THERE IS AN EXTRA CARD IN THE DECK. 
3, THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 
4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 
WHEN THIS ERROR ‘occurs ATTEMPT ‘TO RELOAD. THE | PROGRAM. 
E0005 ~ " QOON XXXX 
- THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A‘ BOSC. NO ATTEMPT 1s MADE ‘BY THE ERROR™ ROUTINE TO RESET 
THE: REQUEST BIT. 
EOF0O 000R AAAA CARD NOT BLANK 
A PRE=PUNCHED CARD WAS DETECTED BY A PUNCH ROUTINE. THIS CARD WAS 
NOT PUNCHED BUT WAS REJECTED. THIS CARD WILL BE FEED OUT INTO 
STACKER Loe , ee ee ee 
EO0FO01 000R AAAA WAS S/B = STATIC. DSW ERR 
XXXX 0000 | 
A BIT, IN ADDITION TO NOT READY, WAS ON IN THE DSW WHEN IT WAS 
SENSED BEFORE GIVING A. CONTROL COMMAND TO THE 1442. USE THE 
ABOVE DSW TABLE TO IDENTIFY THE BIT, THEN TAKE ‘APPROPRIATE 
CORRECTIVE ACTION. 
| LAST OP - CCCC 
EOQFO02 OOOR AAAA WAS S/B - BUSY DSW ERR. 
XXXX 0003 
THIS -DSW WAS SENSED IMMEDIATELY AFTER THE 1442 CONTROL COMMAND. 
WAS IDENTIFIED BY CCCC WAS GIVEN. - THAT COMMAND SHOULD MAKE THE 1442 
BUSY AND NOT READY. NO OTHER BITS SHOULD BE ON. 
LAST OP - CCCC 
EOFO03 O00R AAAA DSW —- NO INTRPT - LEV4. 
XXXX 
NO OP COMPLETE INTERRUPT WAS RECEIVED FOLLOWING THE LAST CONTROL COMMAND, 
COMMAND, IDENTIFIED BY CCCC. THE COMMAND WAS RECEIVED BY THE 1442 IF 
AN EOFO2 MESSAGE WAS NOT PRINTED. 
~~ 030F=* DATE O2UAN66:  O1MAY66. - 15NOV66 OLMARG7 ~:Q1APR69 OIMAY69 PROG ID 
4 EC NO. 415490 415490B 419643 419643B 571036 5710368 PAGE - 
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| ad PAGE : 5 | 
1442 READER/PUNCH FUNCTION TEST 1442 READER/PUNCH FUNCTION TEST 
EOFO04 OOOR AAAA WAS S/B - LEVO DSW ERR EOFO09 OOOR AAAA WAS S/B COL - DATA ERR 
XXXX X003 XXXX YYYY 000ZZ 

THIS DSW WAS SENSED IN THE LEVEL ZERO INTERRUPT ROUTINE. THE | THE DATA XXXX READ FROM COLUMN ZZCIN DECIMAL) DOES NOT AGREE WITH 

RESPONSE FOR THE LAST CONTROL COMMAND CIDENTIFIED BY CCCC) THE EXPECTED DATA YYYY FOR THAT COLUMN. CHECK CARD FOR CORRECT 

SHOULD BE ON, TOGETHER WITH BUSY AND NOT READY, DATA. IF DATA IS CORRECT THEN A READ ERROR OCCURRED. IF THE 


OMe ae oes en ae DATA IS NOT CORRECT, A PUNCH ERROR OCCURED. IN THE LATTER 
CASE, IF NO PUNCH CHECK WAS DETECTED WHILE PUNCHING THE CARD, THE 


LAST OP - CCCC PUNCH ECHO CHECK IS NOT FUNCTIONING. 
EOFO5 OOOR AAAA WAS S/B = LEV4 DSW ERR 0 eee ne-- 
XXXX X80X 
| | | | LAST OP - CCCC 
THIS DSW WAS SENSED IN THE LEVEL 4 INTERRUPT ROUTINE. OP COMPLETE | EOF10 000R AAAA DSW - NO INTRPT - LEVO 
BIT SHOULD BE ON. THE LAST CARD AND NOT READY BITS MAY BE ON. XXXX 


ALL OTHER BITS SHOULD BE OFF. 


Oot ies Are, ' NO LEVEL 0 CCOLUMN) INTERRUPT WAS RECEIVED FOLLOWING 
THE LAST CONTROL COMMAND, IDENTIFIED BY CCCC.. THE 


LAST OP - PUNCH | ! COMMAND WAS RECEIVED BY THE 1442 IF ON EOFO2 MESSAGE WAS 
EOFO6 OOOR AAAA — . WAS S/B - PCH CK : NOT PRINTED. 


XXXX 0000 | | RR 


_ e a # - 5 COMMENTS 
A PUNCH ECHO CHECK OCCURRED WHILE PUNCHING THE LAST CARD. XXXX IS 


THE PUNCH ECHO THAT WAS READ FROM THE 1442 BUFFER REGISTER 5.1*"* TEST PROCEDURE 

FOLLOWING THE PUNCH CHECK. ANY BIT THAT IS ON THIS WORD IDENTIFIES A 3 

DESCREPANCY BETWEEN THE PUNCH DIE ECHO AND THE DATA WHICH WAS TO 5.1.1 TEST ORGANIZATION 

BE PUNCHED IN THE COLUMN. PUNCHING IS TERMINATED WHEN THIS | | : 
ERROR IS DETECTED; THUS, THE ERROR OCCURRED IN THE LAST COLUMN . TESTS ARE ORGANIZED AS FOLLOWS 
PUNCHED. IF PUNCHING A ROTATE PATTERN ‘DISCARD THE CARDS PUNCHED | | 

AND RESTART THE ROUTINE. . 1. INITIALIZE THE TEST 


A. SET FOR START OF PATTERN 
| | B. PRINT SET UP ‘MESSAGE. 
: | LAST OP = CCCC | | ; 7 a me 
EOFO7 OOOR AAAA : WAS S/B - ER CK 2, INITIALIZE FOR NEXT CARD 
| XXXX 0000 
| | a A. IF PUNCH TEST - READ THE CARD AND CHECK FOR BLANK. 

AN ERROR CHECK OCCURRED DURING THE LAST OPERATION. IF THE LAST B. SET EXPECTED COLUMN INTERRUPT COUNT. — 
- OPERATION WAS READ OR PUNCHED, THIS MESSAGE SHOULD BE FOLLOWED | C. SET LOOP ADDRESS | 

BY AN EOF08 MESSAGE WHICH WILL IDENTIFY THE NUMBER OF COLUMNS D. CHECK DSW FOR READY 

PROCESSED BEFORE THE ERROR WAS DETECTED. TO CONTINUE, CLEAR ALL 


CARDS FROM THE 1442 THEN PRESS START. IF PUNCHING A ROTATING | | 3. EXECUTE CONTROL COMMAND > 
PATTERN TO BE READ BY THE NEXT ROUTINE, DISCARD THE CARDS PUNCHED | 
AND RESTART THE ROUTINE. _ 4, CHECK FOR ERRORS 
nat ee —— A. CHECK DSW FOR BUSY 
EOFO08 O000R AAAA : . WAS  S/B - COL CNT ER B. WAIT FOR TIMED PERIOD - TIME OUT IF NO INTERRUPT 
_ | XXXXX YYYYY . C. CHECK COLUMN INTERRUPT DSW. 
| | aad D. CHECK FOR CORRECT NUMBER OF COLUMN INTERRUPTS. 
XXXXX IDENTIFIES THE NUMBER OF COLUMN INTERRUPTS THAT OCCURRED E. ‘CHECK OP COMPLETE DSW. 


DURING THE LAST OPERATION. YYYYY IDENTIFIES THE EXPECTED NUMBER 


OF INTERRUPTS. IF AN ERROR CHECK OCCURRED DURING THE LAST 5. ANALYZE ERROR DATA.AND PRINT ERROR MESSAGES. 
OPERATION CIDENTIFIED BY AN EOF06 OR EOFO7 MESSAGE) THE OPERATION | | 

WILL TERMINATE AT THE TIME THE ERROR OCCURS. THUS, THIS ERROR 6. GO TO 2 ABOVE IF LOCK ON FUNCTION. 

MESSAGE WILL ‘IDENTIFY THE COLUMN BEING PROCESSED WHEN THE ERROR 

WAS DETECTED. | os , 7 | 7. ADVANCE FOR NEXT CARD. 


A. ROTATE PATTERN 
B. INCREASE DELAY FOR ROUTINE 5. 
C.. -CHECK FOR :PATTERN OR DELAY RESET. 


8. GO TO NEXT CARD (2 ABOVE). 


| | | pits | | 69 OIMAY69 ~~ PROG ID O30Fe% 
DATE O2UAN66 O1MAY66  15NOV66. O1MAR67 #4O1APR69 OIMAY69 - PROG ID 030F-* DATE O2UAN66 O1MAY66 I5NOV66- O1MAR67 O1APR 
EC NO. 415490 415490B “419643 419643B 571036 571036B PAGE ~ 5 EC NO. 415490 415490B 419643 419643B 571036 5710368 FASE 5A 
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DATE 


EC WO. 


O2UAN66 
415490 


ERROR CHECKING 


TEST ROUTINES CONTAIN THE FOLLOWING COMMON ERROR CHECKING. 


DEVICE STATUS CHECK - THE DEVICE STATUS IS READ AND CHECKED 
AS FOLLOWS: 


A. 


B. 


IN INTERRUPT LEVEL FOUR OP COMPLETE INTERRUPT. 


BEFORE AN OPERATION IS INITIATED, THE DSW SHOULD BE ZERO. 
ANY BITS ON WILL BE IDENTIFIED BY A MESSAGE CEOFO1). 


IMMEDIATELY AFTER AN OPERATION, THE DSW SHOULD SHOW 

THE DEVICE TO BE BUSY AND NOT READY. ALL OTHER BITS SHOULD 
BE OFF. THIS DSW IS SAVED AND CHECKED FOR ERRORS AFTER 

THE OPERATION IS COMPLETED. A MESSAGE IS PRINTED IDENTIFING 
ANY ERROR DETECTED CEOFO2). : | 


IN INTERRUPT LEVEL ZERO, COLUMN INTERRUPT. THIS DSW SHOULD ; 
SHOW THE DEVICE BUSY AND NOT READY WITH THE CORRECT RESPONSE BIT 
ON. ALL ERRORS DETECTED FOR A CARD ARE OR'D TOGETHER. THUS 

THE DSW PRINTED IN THE ERROR MESSAGE CEOF04) CONTAINS ALL ERROR 


BITS WHICH WHERE FOUND ON IN ANY COLUMN DSW AND WILL BE MISSING 


ANY NORMAL BIT WHICH WAS FOUND OFF IN ANY COLUMN DSW. 


THIS DSW SHOULD 
SHOW THE DEVICE READY CUNLESS THE HOPPER IS EMPTY) AND NOT BUSY, 


AND THE OP COMPLETE RESPONSE BIT SHOULD BE ON. A MESSAGE CEOF 05) 


IS PRINTED IDENTIFYING ANY ERROR. 
ALSO IDENTIFIED BY UNIQUE MESSAGES. 


NOT READY AND LAST CARD ARE 
CAOFO05 AND AOFO6) 


INTERRUPT CHECK-BOTH COLUMN INTERRUPT AND OP COMPLETE INTERRUPT ARE 
CHECKED AS FOLLOWS. 


A. 


A. 


OI1MAY66 
415490B 


WAITS 


COLUMN INTERRUPT = ALL COLUMN INTERRUPTS ARE COUNTED AND COMPARED 
AGAINST THE EXPECTED NUMBER. A MESSAGE IS PRINTED IF THESE DO NOT 
AGREE. CE0OFO8) 


OP COMPLETE INTERRUPT - AFTER THE CONTROL COMMAND IS GIVEN, THE 


PROGRAM GOES TO THE INTERRUPT WAIT ROUTINE. 
IN A TIMED LOOP FOR AT LEAST 2 SECONDS. 
INTERRUPT HAS OCCURRED AT THE END OF THAT TIME, 
‘Is PRINTED CEOFO3). | 


THIS ROUTINE 
IF NO OP COMPLETE 
‘AN ERROR MESSAGE 


DATA CHECK 


PUNCH - ANY PUNCH ERROR SHOULD BE DETECTED BY THE PUNCH ECHO 
CIRCUITS IN THE 1442, WHEN A PUNCH ECHO CHECK OCCURS, A MESSAGE IS 


PRINTED CEOFO06) INCLUDING: THE ECHO READ BACK FROM THE 1442 BUFFER, 


THE BITS ON IN THE ECHO WORD IDENTIFY THE BITS IN ERROR. ANY 
PUNCH ERRORS NOT DETECTED BY THE PUNCH ECHO CHECK WILL CAUSE 
A READ DATA ERROR IN THE FOLLOWING ROUTINE. 


READ - ALL READ TESTS USE DECKS PREPARED BY THE PREVIOUS PUNCH 
ROUTINE CEXPECT TEST 6). THE READ TEST COMPARES THE DATA READ 
AGAINST THE DATA PUNCHED. THE EXCEPTION, TEST 6, COMPARES ALL 
CARDS AGAINST THE FIRST CARD READ. 


~ OLAPRE9 
571036 


15NOV66 
419643 


O1MAR67 | 
419643B 


PROG ID 030F-* 
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1442 READER/PUNCH FUNCTION TEST 
5.2" ROUTINE DESCRIPTION 
THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 
SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR IN THE 
PROGRAM AS FOLLOWS. : ig 
ic. “Test: SEQUENCE CONTROL ROUTINE 
2. NORMAL TEST ROUTINES 
3. OPTIONAL TEST ROUTINES 
She FEST SUBROUTINES 
5. ERROR CONTROL ROUTINES 
6. INTERRUPT ROUTINES 
5.2.1 TEST SEQUENCE CONTROL ROUTINE — CNTRL 
THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH CSW1 IN THE PROGRAM 
CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS TO BE RUN NEXT. 
IF A TEST ROUTINE HAS BEEN SELECTED, IT ESTABLISHED A TRANSFER TO THAT 
ROUTINE. IF NO ROUTINE IS SELECTED, A TRANSFER IS ESTABLISHED TO 
THE NEXT TEST ROUTINE IN SEQUENCE. 
THE ROUTINE ADDRESS TABLE CRTTBC) WHICH IS PART OF CNTRL, CONTAINS 
THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE SEQUENCE IN WHICH THEY ARE 
TO BE RUN, 
THE LAST TEST ROUTINE IN THE NORMAL SEQUENCE IS IDENTIFIED BY THE 
TABLE NRTN. AFTER THIS ROUTINE IS RUN, CNTRL WILL TRANSFER TO MONITOR 
END AND TERMINATE THE PROGRAM. ROUTINES FOLLOWING THE TABLE NRTN- 
ARE CALLED OPTIONAL TEST ROUTINES AND WILL ONLY BE RUN IF SELECTED. 
5.2.2 NORMAL TEST ROUTINES 
IF NO TEST ROUTINE IS SELECTED, THESE SIX ROUTINES WILL RUN IN SEQUENCE 
THEN THE PROGRAM WILL TERMINATE. 
1. TEST ROUTINE 1 - PUNCH AND Eds 
‘THIS ROUTINE READS A CARD, CHECKS TO SEE THAT IT IS BLANK, IF BLANK 
PUNCHES IT WITH THE PATTERN SET IN THE ROTATE DATA TABLE, THEN 
SELECTS STACKER TWO AND FEEDS THE PUNCHED CARD OUT. REPEATING THIS 
SEQUENCE WILL CAUSE A GLANK CARD TO FIRST BE FED INTO STACKER 1 BY 
THE READ COMMAND THEN A PUNCHED CARD WILL BE FED INTO STACKER 2 
BY THE FEED COMMAND. THE CARDS ARE PUNCHED WITH A ROTATING PATTERN, 
I.E., THE PATTERN IS SHIFTED ONE COLUMN TO THE LEFT FOR EACH 
SUCCEEDING CARD PUNCHED. 
LOCK ON FUNCTION - THE PROGRAM WILL LOCK IN THE PUNCH OPERATION, 
ONLY PUNCH CONTROL COMMANDS WILL BE GIVEN. THE DATA PATTERN 
WILL ALSO LOCK WITH THE LAST PATTERN PRIOR TO SETTING THE LOCK SWITCH. 
DATE O2UAN66 O1MAY66  1S5NOV66° O1MAR67  #OLAPR69 OIMAY69 PROG ID O30F- 
EC NO. 415490 415490B 419643 419643B 571036 571036B PAGE 6A 
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DATE 


EC 


NO. 


02UAN66 


415490 


LOCK ON FUNCTION - LOCK IN THE PUNCH FUNCTION ONLY. 


TEST ROUTINE 6 - 


~ COMPARED. WITH THE FIRST CARD. 


LOCK ON FUNCTION - 
READ COMMANDS. 


TEST ROUTINE 2 - READ ROTATE PATTERN 


THIS ROUTINE READS THE CARDS PUNCHED BY ROUTINE 1. 
IS COMPARED TO THE DATA PUNCHED. 


THE DATA READ 
ANY ERROR DETECTED WILL BE PRINTED. 


LOCK ON FUNCTION - NOT APPLICABLE. 


TEST ROUTINE 3 = PUNCH 4&0 COLUMNS 

THIS ROUTINE WILL PUNCH THE ROTATING PATTERN IN THE FIRST 4O 
COLUMNS OF EACH CARD. EACH CARD IS CHECKED FOR BLANK BEFORE IT 
TS PUNCHED. ALL PUNCHED CARDS ARE.SELECTED TO STACKER 2. 


CARDS WILL 
NOT BE CHECKED FOR BLANK AND THE PATTERN WILL NOT ROTATE. 

TEST ROUTINE 4 = PUNCH FLIPPED PATTERN 

THIS ROUTINE READS THE ROTATE PATTERN PUNCHED BY ROUTINE 3 AND COMPARES 
IT WITH THE DESIRED PATTERN. IT WILL THEN PUNCH THE MIRROR IMAGE OF 
THAT PATTERN IN COLUMNS 41-80. 


LOCK ON FUNCTION —- NOT APPLICABLE. 


TEST ROUTINE 5 - . READ FLIPPED PATTERN 


THIS ROUTINE READS THE PATTERNS PUNCHED BY ROUTINES 3 AND &, 
THEN COMPARE THIS DATA WITH THE DESIRED PATTERNS. 


IT WILL 


LOCK ON FUNCTION. - NOT APPLICABLE. 


CLUTCH TEST 


THIS ROUTINE READS GANG PUNCHED CARDS CMAY BE BLANKS) WITH AN 
INCREASING DELAY BETWEEN EACH START READ COMMAND. ALL CARDS READ. ARE 
THE DELAY IS INCREASED BY 1 MILLI SECOND 
FOR EACH CARD READ TO A MAXIMUM OF 125 MILLISECONDS. THE DELAY IS 

THEN RESET TO ZERO AND THE CYCLE REPEATED. 


~LOCK ON READ WITH NO CHANGE IN DELAY BETWEEN START 
SPECIFY DELAY - THE DELAY CAN BE SPECIFIED BY A FUNCTION 2 BIT SWITCH 


ENTRY. THIS DELAY IS INCREASED BY APPROXIMATELY 8K (C5K FOR 2.2 MSEC 
MEMORY) FOR EACH BINARY INCREMENT SET IN SWITCHES 8-15. 
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1442 READER/PUNCH FUNCTION TEST 
5.2.3 OPTIONAL TEST ROUTINES 
1. TEST ROUTINE 7 — PUNCH FROM SWITCHES 
THIS ROUTINE WILL PUNCH ALL CARDS WITH THE DATA SET IN SWITCHES 0-11. 
THE NUMBER OF COLUMNS TO BE PUNCHED CAN BE SPECIFIED BY A FUNCTION 
2 BIT SWITCH ENTRY. IF THE NUMBER OF COLUMNS IS NOT SPECIFIED, 80 
COLUMNS WILL BE PUNCHED. CARDS ARE NOT CHECKED FOR BLANK BEFORE 
PUNCHING. | 
LOCK ON FUNCTION - NOT APPLICABLE. 
2. TEST ROUTINE 8 - GANG PUNCH 
THIS ROUTINE WILL READ THE FIRST CARD THEN PUNCH ALL FOLLOWING CARDS 
WITH THE DATA READ FROM THE FIRST CARD. EACH CARD WILL BE READ TO 
CHECK FOR BLANK. | | 
LOCK ON FUNCTION - WILL BYPASS THE CHECK FOR BLANK CARDS. 
3. TEST ROUTINE 9 = MODIFIED PUNCH DATA 
THIS ROUTINE WILL READ IN ONE CARD AND REPLACE THE PUNCH DATA 
TABLE WITH THE DATA PATTERN PUNCHED IN THAT CARD, THE PROGRAM 
WILL THEN AUTOMATICALLY RESTART FROM ROUTINE 1. 
5.2.4 TEST SUBROUTINES 
1. ROTATE THE DATA TABLE 
THIS SUBROUTINE ADVANCES THE PUNCH AND READ COMPARE ADDRESSES 
THROUGH A DOUBLE DATA TABLE. 
2. CHECK FOR BLANK CARDS 
THIS SUBROUTINE READS ONE CARD THEN CHECKS ALL COLUMNS FOR 
DATA. IF CARD IS NOT BLANK, AN ERROR MESSAGE IS PRINTED. 
3, FEED A CARD 
THIS SUBROUTINE CHECKS FOR 1442 READY, THEN FEEDS ONE CARD. 
FOLLOWING THE FEED COMMAND, THE SUBROUTINE TRANSFERS TO THE WAIT 
ROUTINE UNTIL THE INTERRUPT IS RECEIVED. 
4. READ A CARD 
THIS SUBROUTINE SETS EXPECTED COLUMN COUNT TO 80, CHECKS ON READY 
THEN EXECUTES A START READ COMMAND. THE SUBROUTINE TRANSFERS TO: THE 
WAIT ROUTINE UNTIL THE INTERRUPT IS RECEIVED. 
DATE O2UAN66 O1MAY66  LSNOV66 O1MARG67 OLAPR69 OIMAY69 PROG ID bs0ees 
EC NO. 415490 415490B 419643 419643B 571036 5710368 PAGE 7A 
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DATE 


EC NO. 


O2UAN66 


415490 


PUNCH A CARD 


THIS SUBROUTINE SETS THE EXPECTED COLUMN COUNT, CHECKS ON READY, 
SELECTS STACKER 2, THEN EXECUTES A START PUNCH COMMAND, THE 
SUBROUTINE TRANSFERS TO THE WAIT ROUTINE UNTIL THE INTERRUPT IS 
RECEIVED. 


COMPARE DATA READ 


THIS SUBROUTINE COMPARES DATA READ WITH THE EXPECTED PATTERN FOR 
THAT CARD. IF THERE ARE ANY DISCREPANCIES, AN EOFO9 MESSAGE IS 
PRINTED. 


LOCK ON FUNCTION 


THIS SUBROUTINE IS ENTERED AT THE COMPLETION OF EACH PUNCH ROUTINE 
BEFORE ADVANCING TO THE DATA FOR THE NEXT PASS. THE SUBROUTINE CHECKS 
THE LOCK ON FUNCTION SWITCH, SWITCH 10. IF THIS SWITCH IS ON THE 
SUBROUTINE GOES TO THE ADDRESS SET IN LOOP. 


READY 


THIS SUBROUTINE IS ENTERED BEFORE ANY 1442 CONTROL COMMAND IS GIVEN. IT 
READS THE 1442.DSW AND CHECKS IT FOR READY CALL BITS OFF). ANY BIT ON 
OTHER .THAN’ NOT READY CBIT 15) WILL BE. -IDENTIFIED BY AN EOFO1 MESSAGE. | 
IF ANY BIT IS ON, A NRDY MESSAGE CAOF05) WILL BE PRINTED. THIS ROUTINE 
STAYS IN A LOOP, PRINTING THE NRDY MESSAGE EACH 10 SECONDS, UNTIL ALL 

BITS IN THE DSW GO OFF. 7 oe Sy | Sas 


ENS CARD - 

THIS SUBROUTINE IS ENTERED’ AFTER AN OPERATION IS COMPLETED IF THE | 
LAST CARD INDICATOR WAS TURNED ON DURING THAT OPERATION.: THE ‘SUBROUTINE 
WILL FEED OUT THE LAST CARD, PRINT A MESSAGE INDICATING ‘THAT THE LAST 
CARD INDICATOR WAS DETECTED, THEN GO TO CNTRL TO TERMINATE THE ROUTINE 
AND ADVANCE TO THE NEXT .ROUTINE. 

ERROR CONTROL ROUTINES. 

INTERRUPT ean RPENANE:. 

ALL SUBROUTINES COME HERE ‘AFTER THE START OF AN I/O OPERATION FROM 
WHICH AN INTERRUPT IS EXPECTED. THIS ROUTINE RESETS ALL ERROR 

CONTROL WORDS, SENSES AND STORES THE BUSY DSW, THEN WAITS IN A 

TIMED LOOP: CAT LEAST 2 SECONDS) FOR: THE OP COMPLETE INTERRUPT. 


IF NO OP COMPLETE i I's BELEIVEDS 
ARE PRERKEDS oy et 


THE FOLLOWING ERROR MESSAGES 
A. EOFO2 TF BUSY ae ERROR 
B. EOF 10 TF NO COLUMN INTERRUPTS 


C. E0F03 - NO OP COMPLETE INTERRUPT. 
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DATE = O2UAN66_ 


EC NO. 415490 


PART NO. 2191226 
PAGE. SA 

IF OP COMPLETE INTERRUPT IS RECEIVED, THIS ROUTINE WILL CHECK FOR 
PROPER PERFORMANCE OF THE OPERATION. THE FOLLOWING CHECKS ARE MADE AND 
ERROR MESSAGES PRINTED IF APPROPRIATE. 
A. EOFO02 IF BUSY DSW ERROR 
B. EQFO4 IF COLUMN INTERRUPT DSW ERROR. 
C. EOFOS IF OP COMPLETE DSW ERROR. 
D. EOF10 IF NO COLUMN INTERRUPTS. 
E. EOFO8 IF INCORRECT NUMBER OF COLUMN INTERRUPTS. 
THE ROUTINE WILL THEN CHECK FOR LAST CARD. IF THE LAST CARD 
INDICATOR IS ON, THIS ROUTINE WILL TRANSFER TO THE LAST 
CARD ROUTINE. IF NO LAST CARD, THE ROUTINE WILL RETURN TO THE 
1/O SUBROUTINE FROM WHICH IT WAS ENTERED. 
PRINT ERROR MESSAGES | 
THIS ROUTINE PRINTS ALL THE ERROR’ MESSAGES. IF THE’ MESSAGE IS THE 
FIRST ERROR MESSAGE FOLLOWING AN I/O CONTROL COMMAND, A LAST OP 
MESSAGE WILL PRECEED THE ERROR MESSAGE. THIS LAST OP MESSAGE WILL 
IDENTIFY THE LAST I/O CONTROL OPERATION EXECUTED. THE ERROR MESSAGE 
FOLLOWING REFERS TO ERRORS DETECTED IN THAT OPERATION. 
INTERRUPT ROUTINES. 
COLUMN INTERRUPT -- LEVEL 0 
THIS ROUTINE SENSES RESETS AND STORES THE DSW, THEN CHECKS FOR CORRECT 
DSW. ANY ERROR BITS ARE STORED. AFTER THE OPERATION 1S COMPLETE, ALL 
ERROR BITS DETECTED DURING THAT OPERATION ARE AVAILABLE AND WILL BE 
PRINTED IN AN EOFO4& MESSAGE. 
THE ROUTINE: COUNTS THE NUMBER OF INTERRUPTS AND EXECUTES EITHER PUNCH 
OR READ COMMAND, THEN RETURNS TO THE MONITOR LEVEL 0 INTERRUPT ROUTINE. 
OP'= COMPLETE INTERRUPT - LEVEL4 
THIS ROUTINE SENSE, RESETS, AND STORES THE DSW, SETS A SWITCH 
INDICATING THAT THIS INTERRUPT WAS: RECEIVED, THEN RETURNS TO THE 
MONITOR LEVEL om INTERRUPT ROUTINE. ; 
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1ST CARD PUNCHED IN ROUTINE 1 AND USED IN ROUTINE 2. 1ST CARD PUNCHED IN ROUTINE 3 TO BE USED IN ROUTINE 4. 
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2ND CARD PUNCHED IN ROUTINE 1 AND USED IN ROUTINE 2. 1ST CARD WITH COLUMNS 41 THROUGH 80 PUNCHED IN ROUTINE 4, 
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3RD CARD PUNCHED IN ROUTINE 1 AND USED IN ROUTINE 2. 2ND CARD WITH COLUMNS 41 THROUGH 80 PUNCHED IN ROUTINE 4, 
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EQUATE TABLE 
FRE REESE ECE EREEE EEE SEES EEADE ERE EEES SE ETES SED 
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* . JHIS TABLE EQUATES TEST PROGRAM LABELS 

& TO THEIR EQUIVALENT SIAGNOSTIC MONITOR 

* ADDRE SSES- 

. | 

he ae ee ne ee ew we ee oe ww ee wr we ee eo 

+ MONITOR ENTRY ADCRESSES 

Be oe ee ee oe ee ee ew we oe we ee re wre ww we wm own we 

BEGIN EQU /160 BEGIN ROUTINE 

START Eu BEGINeL SUPERVISGR ROUTINE 

ERROR EQU START#1 ERROR LCG ROUTINE 

LOG EQU ERROR+41 STATUS LOG ROUTINE 

Ene EQu LOG END ROUTINE 

Sanne oe ee ee. eo en es ee ee oe ew we we we ee we er ew 

* MONITOR CCNTRCL WORD ACDORESSES 

a +--+ + $+ + + + + +--+ +--+ 

RINSW EWU END+1 ROUTINE START Sw 

ERLCK EQU END+2 LCCK ON ERROR CONTROL 

LOGBY EQU. END+3 1/0 BUSY Sw ADDRS 

RLCF EQU END+4 RELOCATION FACTOR ACORS 

SS SS ee ee 

* INTERRUPT TRANSFER VECTOR ADDRESSES 

Sa a a a na a rn rrr 

1LO EQU ALTA INTERRUPT LEVEL ZERO 

Ll) EQU  TILO+16 INTERRUPT LEVEL GNE 

IL2 EQu 1b1416 INTERRUPT LEVEL TwG 

1L3 = EQU 1L2416 “INTERRUPT LEVEL THREE 

Ika = =EGU ‘JL3416 INTERRUPT LEVEL FOUR. 

RuTy EQU IL441 CONSOLE PRINTER REQUEST 

RQKB EQU ROTY41 - USE KEYBOARD REQUEST. 

SVKB EQU RGKB+1 KB SERVICE REQUEST 

x - , ; 

LXE SEKKECKIKKEKESKEKKSKEKESERKSEKSEESKSESEKEKEKSKESKSEKSE 
ORG #¢/05CC 
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Ba a a an nn nn ne 

* | THE MONITOR USES CORE LOCATIONS 0-050C. 

* FOR CONTENTS OF THESE ACDRESSES REFER 

* TO THE DIAGNOSTIC MONITOR LISTING. 

9G me a ee ee we we ee we we er er wr rer wee 
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30F00110.- 

30FO00120 . 


30F00130 
30F 60140 
30F00150 
30F00160 
30F00170 
30F 00180 
30F 00190 
39F 00200 
30F00210 


30F 00220 . 


30F 00230 
30F 00240 


30F 00250 | 


30F0C260 


30F00270 


30F 00280 


30FOG290 © 
30FCO300 | 


30F00310 
30F00320 
30F 00330 


30F00340 . 


3GF90350 
30F60360 
30F00370 
30F003E80 
30F00390 
30F00400 
30F00410 
30F 00420 


30F 00430. 


30F 00440 


30F00450 | 


30F.00460 
30FC0470 


30F00480. 


30F 00490 
30F00500 


30F00510. 
30F 00520. 


30F 00530 


3GFO0540 . 
- 3000550 


30FC0560 
30F00570 


30F00580. 


30F 00590 
30F00600 
30F 09610 
30F 00620 
30F 00630 
30F 00640 
30F00650 


30F 00660. 
30F 00670 . 


30F 00680 
30F 00690 


30F00700 


PROG ID 


PAGE 
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ese IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOo 2191226 
| PAGE 1A 
| 1442 READER/PUNCH FUNCTION .TEST 

O5DC Uv .030F.....-- PID OC . 1030F PROGRAM ID 30F00710 = 
05DD.0  OUU0--....- KIO OC. e-t ROUTINE ID™ 30FuN720 
OSDE 0 OOO RAD OC *—% ROUTINE ADDRS 3UFO00730 | 
OSOF.O -00VO0. ; SwO 8 83=6dDC_.. e-% PRCGRAW CONTROL 30F00740 i 
05EO G -.000C..: Swl OC %—% ROUTINE SELECTION 30FOUT50 — 
O5E1 0 o0Oue.. Sw2 . DC. _#-% 30F00760 — 
05E2 QO QudOd.. Sw3 = OOC +—* Be ee 30FO0T70 
OSE3 1 .O5EB- DC STRT LOOP ACDRS: 30FOO7T8O = 
O5E4 1 OSEB | DC STRT RESTART ADDRESS 30F 00790 . 
O5E5 O . OOVD. MLSCF DC es SET BY wAIT KTN ANC MON 30F00800 
O5E6-O0 wvUdvVo OC *— SET BY CNTRL AND INRTPT 30F00810 
OSE7:O : FFFF. . DC /FFFF TERMINATOR 30F0U820 . 
: | ‘ & ; 30F00830 7 
SKSKKEKRSEECSS ESE KEKESERESEK TKS ERE KE SEKKKKKSKKE SERS 30F00840 
* TEST INITIALIZATION 30F0U850 
ESS KKCKSEKKKKKKEKEKESKEKCKSKEKKSESKAREKSESEFEKE KEKE 30FO0C0860 
2 | s , | i 30F00870 
_O5E8 00 44800160 BGIN ®BSI I BEGIN 30F 00880 
O5EA 1 O5DC DC PID PCT ADDRESS 30F 00890 
* | : 30F00900 | 
*-------~--—------- --~- + --- + --- - = 30FC0910 
x START OF TEST AND SINGLE PASS INITIALIZATION 30F 00920 
t-~ -------- —- -- - — -- —- + + - = ‘ 30F00930 
: oe * a | | 30F 00940 
05EB O 6100 STRT LOx 10 SET TO START WITH 30F 00950 
O5EC UO - 69FO STX. 1 RID FIRST ROUTINE 30F 60960 
OS5ED O1 65000911 LDX Ll ENTRO 30FOOSTO 
O5EF OU 6DOUOITA STX Ll ILO SET COL INTRPT ACDRS © 30F00980 
- | - O5F1 O01 6D000884 STx i1 M RESET MULT LINE CONTROL 30F00990 
O5F3 01 65000937 LOX Ll INTR& Bn teen os 30F01000 
O5F5 00 6D0U01B8 STX Ll 1L4-2 SET GP COMP INTRPT ADDRS 30F01010 - 
OSF7 0 40U0 | BSI = CNTRL : 30F01020 
cs 30F01030 
KEEKKEE PACKER EEREEE HERE E CERT ERE REESE EE ET EES 30F01040 
* SEQUENCE CONTRCL ROUTINE 30F01050 
REL EESEECREEHRE ERS SE SHEA EE STEERS S OES 486495988 39F01060 
* THIS ROUTINE CHECKS SW1 AND CONTROLS 30F01070 
- a THE SEQUENCE IN WHICH TEST ROUTINES 30F01080 
* ARE RUN. | 30F01090 
G #~— + — a nn a 30F01100 
; - x | _ 30F01110 
05F8 O OULU CNTRL DC n—* 30F01120 
OSES O COE6 LD Sw 30FU1130: 
OSFA O1 4C9800G3 BSC L CN20s+ BR IF KC RTN SELECTC 30F01140 — 
: a | 30F01150 
GSFC. G DOEQ. CNLIO STC. RID SAVE NEW KTN NUMBER 30F 01160 
OSFC 0 9018. S| -RECCK | 30F01170 
OSFE Ol 4C080609 BSC L CN309¢ BR IF VALIO RTN 30F01180 
0600 0 1810 SRA 16 . 30F01190 
0601 0. DODE STO Swl IF INVALID RTN GO 30F01200 
0602 0 ODODA STO RID TO RTN GNé 30F01210 
: , . * 30F01220 
0603 Ul 740105DD CN7Q MDX L_ RIDsl ADV TO NEXT RTA 30F 01230 
0605 O CGD7. LD RIO CHECK FOR END OF 30F01240 
0666 0 9010 S RTNOM NCRMAL SECUENCE 30F01250. . 
0607 00. 44BU0164 : BSI I END»-Z END OF PROGRAM — 30FU1260 © 
- aes Meee 30F01270 
C609 Ul 65800500 CN30 LOX 11 RID XRI=NEhW ROUTINE NUMBER 30F01280 
0605 O01 C5000617 LD. LI RTTBL-1 FETCH RETURN ADRS 30F01290 
0605 O OCDG sto RAD STORE NEw RTA ACCRS 30F 01300 
C6CE GO DOD7 STG MLSCF+1 SET MLSCf FOR RETURN 30F01310. 
O6OF 00 04000165 STO Lt RITNSw SET RIN START SH 30F01320 
0611 O 1810 SRA 16 30F01330 
0512 O1 0400 GES4 STO t& coop aa 30F01340 — 
0614 00 44800161 BSI I START GG TO MONITOR 30F01350 . 
3 7 = | 30F01360 
0616 0 OCcog RIDCK DC LRIN-RTTBL41 30F01370 
0617 0 wUove RTNOM OC. NRTN-RITBELF1 30F01380 
. 415450 4154908 PAGE 1A 


EC NG... 419643 
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0616 
U619 
O61A 
0618 
061C 


0610 


O61€E 
061F 


0620 


- 0633° 


0621 
0623 
0625 
0626 
0628 


O6zA 
062C 
062E 
062F 
0631 


— 0635 


0637 


0638 
063A 


063C 


063D 


-. O63F 


0641 
06042 
0644 
0646 
0647 


0648 
O64A 
064C 
Q64E 


- OOGF. 


PD .pATE 


Que pes fet fed feet fee pet ft pt 


01 
Ol 


Ol 
Ol 


01 
O01 


Ol 
01 


01 


01 
01 


Ol 


Ol 


ol 
Ol 


Ol 
Ol 
O01 


01. 


EC NO. 


U0é21 
(636 
0654 
0669 
0694 
U6AB 
O6E6 
O71A 
0731 


65000A33 
60000754 
6101 

6TO0009EB8 
44000967 


44000T4A 
6COU08S4 
6350 

440U078D 
440007FU 


4400U73D 
44000758 
TOF 2 


650U00A 33 
690007584 
6102 

67000A0D 


44060967 


6350 
C400U768 
D7000A83 
73FF 
TOFC 


o5000AE4 
440U076C 
4C100648 
6350 


4400C7TA3.._ 


415490 


*~ O2JANGE;: 


PROGRAM FOR THE 1130 SYSTEM 


(1442 REAVER/PUNCH FUNCTION TEST 


RUUTINE ADDRESS TABLE 


+ 

. 

RT¥S8L OC 
DC 
DC 
DC 

| DC 

NRTN OC 
DC 
DC 

LRTIN DC 

Z | 

ao 


* 


RT9 


PUNCH AND FEED. 
READ RCTATE PATTERN 
PUNCH 40 CCLUMNS 


- PUNCH FLIPPED PATTERN 


READ FLIPPED PATTERN 
READ ‘ANY CARS. 
PUNCH FROM BIT SWS 
GANG PUNCH 

MODIFY ROTATE PATTERN 


errrrrrerrerrrrte rer er Terr Tre Tree sree reset 
ROUTINE 1 


- PUACH AND FEEC 


HEE CHEST HES EE RERESE SESE SS SHEES EE OES FEES SE SERE 


+ 


* CAKD IS BLANK, 
= PATTERN, 

* wILL GO TO STACKER 2, 
* 


THEN 


GO TO STACKER 1. 


£ 


RT11 


* 


+ 4 


&® PUNCHED BY ROUTINE 3. 


LOX 


STx 
iDx 
LDx 
BSI 


BSI 


STK 


LDX 


BSI 


3S 


BSI 


BSI 
MD XK 


Ll 


ti 


1 
L3 


WAREA 
DADRS 
1 
ALDBK 
TYPE 


BLANK 
LOOP — 
80 
PNCHR 
LOCK 


ROTAT 


FEED 


RT11 


- PUNCH CNE CARD 


THIS ROUTINE WILL READ A CARD, CHECK THAT THE 
PUNCH TRE CARD WITH A ROTATING 
FEED A CARD. ALL PUNCHED CARDS 


ALL BLANK CAROS WILL 


SET FOR START CF 


ROTATE PATTERN 
MESSAGE NUMBER 


tO BLANKS 


PRINT MESSAGE 

CK FOR BLANK CARD - 

SEf LOOP FUNCTION ADDRS 
SET NUMBER OF COLUMNS 
CHECK FCR LOCK ON FUNC 


ROTATE THE PATTERN 
FEED A CARD 


KEE SKEKK ARE EKEKKERE SKK ESHER ESEEHEETCE EEEEREEESS 


. ROUTINE 2 - READ ROTATE PATTERN 
HSK REESE EKER AER SESE SEEK AAEAERKRE KEKE HKKKKTH ESE 


* THIS KOUTINE wILL READ THE ROTATE PATTERN 


IT wILt COMPARE THE 


. * PATTERN ON EACH CARD an ThE PES TREY, PATTERN 
* FOR THAT CARD. 


asics: 2 coan a wa oe ame Oe cee ee me oo ee ae aes a an ae ae oe = aw ee ee ee om de om am anere om 


STO. 
MDX 7" 


* 
RT2 LOX, 
STX) 
LOX 
_, LOX 
—.,, SST 
RITZ. LOX . 
eae bD, 
RT22. 
MDX 
7 - ieee: 
RT23. LDX.. 
BST 
een ae 
LDx” 
we. BST, 
-. Po eg 
> O1MAY66 ; : 
4154903 ~ 
aaa aa 
ee ert 


Ll 


Ll 
1 
L3 


WAREA 
DADRS 
2 


ASTOH 
TYPE) 


80 
TERM 


RAREA-10° 
ay ee 
RT22) 


RAREA 
“READR 
“RI235— 
pg CHE RS 
_COMPR 


1 5NOV66 
4196043 


* READ ‘ONE CARD. 


SET FOR START OF 
ROTATE PATTERN 

MESSAGE NUMBER 

“STK TO HOPPER 


PREM “MESSAGE 


SET ALL BITS IN 
READ AREA 


PART NO« 


PAGE 


30F01390 
30F01400 
30FO01410 
30F01420 
30FC1430 
30F01440 
30F01450 
30F01460 
30F 01470 
30F01480 


- 30F01490 


30F01500 
30F01510 
30F01520 
30F01530 
30F01540 


30F01550 


30F01560 
30F01570 
30F01580 
30F01590 


-30F01600 


30F01610 
30F01620 


—30F01630 


30F01640 
30F01650 


30F01660 


30F01670 
30F01680 
30F01690 
30F01700 


- 30F01710 


30F01720 


—, 30F01730 


3091740 


_ 30F01750 
30F01760 
- 30F01770 


30F01780 
30F01790 
30F01800 
30F01810 


- 30F01820 
-30F01830 


30F01840 
30F01850 
30F01860 
30F01870 


‘30F01880 


30F01890 
30F01900 


-30F01910 
- 30F01920 


30F01930 


: -30F01940 
-30F01950 
 30F01960 
-- 30F01970 
> 30F01980 
--30F01990 


+ 30F02000 
--30F02010 


“REPEAT IF NO-OP* comp. 
SET NUMBER G©* COLUMNS 
COMPARE DATA REACT 

“WITH? DATA’ PUNCHED=: @% 2 


=: 30FO02020 
22 30FOG2030 
2°30F02040 
+ 3C.02050 
': 30F02060 


PROG 10 


PAGE 


2191224 
2 


0O30F-0 
2 


Z| 


men memee ne ons 


+ wes ee 
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1442 


0651. 


0653 


0654. 
0656 
0658. 


0659 
065B 


065D 
065F 


0661. 


0662 


0664. 


0666 


0668 


0669 


066B 
(066D _ 


OooE 


0670. 


0672 


0674 
0676 
0678 
0679 


0678 


067D 


O67E 


067F 
0681 


. 0683 
;. 0084 


» 0686 
06 87. 
,» 0688 
~"Q68A 
“0688 


Rey 
7 Q68E 


CATE 


x ) 


READER/PUNCr FUNCTION 


01 
0 


ol 


01 


01 
Ol 


01 


ol 


ol 


Ol 


Ol 
01 


ol 
01 


01 


01 


Ol. 


ro EC NOs... 


4400073D 
7OED 


65000433 
6D0G0754 


6101 | 
6 7000SEB 


44000967 


440007T4A 


—6C000694 


6326 | 
4400078D 
440007F0 


44000730 
1OF4 


65000A33 
6D000784 
6102 


— 67T000A0D 


44000967 


65000A 84 
44006076C 
4C100672 
6328 


440007A3_ 


44000730 
63FE 
6208 


C6OCOAAC 
D7Q00AD5 


_73FF 
7201 
eer? 


“6208 

- 1011 | 
- DEQOOAAC 
so f201 

= FOFC 


-65000A54 


-6D000784 


a ae 


-415490. . 


é = 


TEST 


BS1 
MOX 


L 


—ROTAT 


RT21. 


ROTATE THE PATTERN 


RSE CKES THES HE RERERS CHES ECEHESTE ETEK SERS SERE SE 


x 


ROUTINE 3 


- PUNCH 40 COLUMNS 


HAE SEEAE RHR ASES KEES SREKSSESKE SES ECHR EE THERES SS 

* THIS RUUTINE WILL PUNCH ThE ROTATING PATTERN 
* IN THE FIRST 40 COLUMNS OF EACH CARD. ALL 

* CARDS WILL GO TO STACKER 2. | | 


so laaleaae aati re ae ee an ae ee ae ee ‘ge ee ee ae ae oe eae oe a eee ee eee ee —_— « on —_ <a an 


 & 


RTS 


LDXx 


_STX 


. LOX 


RT31 


LOX | 


BSI 


BSI 
STX 


LOX 


BSI 


bS1 


_ BSI 


fod 


* 


MDX 


L1 


1 
L3 
L 


L 
L 


WAREA 
DADRS 


1 
ALDBK 


TYPE 


BLANK 


LOcP 
_— 
PNCHR 


LOCK 


ROTAT 
RT31 


ROUTINE 


SET FOR START CF 


ROTATE PATTERN 
MESSAGE NUMBER 
LD BLANKS. _ 
PRINT MESSAGE 


CK FOK BLANK CARD 

SET LOCP FUNCTION ADDRS 
SET NUMBER OF COLUMAS 
PUNCH ONE CARD 

CHECK FCR LOCK ON FUNC 


ROTATE THE PATTERN 


SEK REEREESE EH RES CEE EERE EEERERESS SEE TER EREEES 


| e 4 - PUNCH FLIPPED PATTERN’ 
RRS SHAKES AKERS ERA KSSSE RET SE SKS LHRH SK KHKE HS 


* THIS ROUTINE WILL READ THE RCTATE PATTERN 
* PUNCHED BY ROUTINE 3 AND CCMPARE IT WITH 


* THE DESIRED PATTERN. 


IT wILL THEN PUNCH TEE 


* MIRROR IMAGE CF THAT PATTERN: IN COLUMNS 41-80. 


t—— eee ane ae om EDD a ae mes Gn oe apa woe eae ee ae oe ea oe en er ee arom a a om ae ae oe oe 


* 


RT4 LDX 
STX 
tDx 
LOX 
BSI 

* 

RT™41 LOX 
BSI 
“BSC 

_ LOX 
BSI 
+ 
«x 
BSI 

* : 

RT42 LOX 
LDX 

. : 
FLIP LD 
| STC 
.. MDX 
MDX 
- . MDX 

+. 

LOX 
a SLA 
CLEAR. STG 
a MDX 

J -,-MOX 

Ye 

| LOX 

..- SX 

OLMAY 66 

» 4154908. 


Ll 


ul 


1 
L3 


L 


Li 
L 
L 


3 


Lo 


WAREA 


DACRS 
2 
ASTOH 


TYPE 


RAREA 


RE ADK 
RT41_9- 
40 
COMPR | 


ROTAT 


me 


-40 


“RAREA+40 
RAREA*81 © 
Re | 


i 


FLIP 

=40 

“17 
RAREA+40 


i 


_ CLEAR 


Ll 


“RAREA | 
11. 


DADRS 


15NOV66 
419643 


SET FOR START CE 
ROTATE PATTERN 

“MESSAGE NUMBER | 
STK TO HOPPER 


“PRINT MESSAGE ~ 


‘READ ONE CARD 

REPEAT IF KO OP COMP 
SET NUMBER OF COLUMNS 
CCMPARE DATA READ 

~ WITH DATA PUNCHED 


Borere THE PATTERN 


ve 


LOAC XR 3 
LOAD XR 2 
“DATA READ 
NEW LOCATION 


ADS XR 3 
ae 


toas. xR Oo 
CLEAR’ ACC 


CLEAR COL 1 TO 40 


-. ’ 
dere 


~ "SET PUNCH DATA ACRS 


SS 


“ 


PART NOs 


PAGE 


30F02070 
30F02080 


_ 30F02090 
30F02100 
. 30F02110 
30F02120 


30F02130 


- 30F02140 
- 30FU2150 


30F02160 


30F02170 


30F02180 


' 30F02190 


-20F02200 


30F02210 
- 30F02220 


‘30F02230 


— 30F02240 
~ 30F02250 


30F 02260 


* 30F02270 


30F 02280 


 BOFO2290 


30F02300 


30F 02310 


30F02320 


- 30F02330 
30F02340 


30F02350 


.30F02360 
- 30F02370 


30F02380 


- 30F02390 


30F 02400 


30F02410 


30F02420 
30F 02430 


—30F02440 


30F02450 


| 30F02460 


30F02470 


--30F02480 
-30F02490 


30F 02500 


- 30F02510 
~30F02520 
- 30F02530 
30F02540 
. 30F02550 
- 30F02560 
- 30F02570 


30F02580 
30F 02590 
30F02600 
30F02610 


~ 30F02620 
- .30F02630 
--:30F02640 
\. 30F02650 
“. 30F02660 
.: 30F02670 
“! 30F.02680 
‘.30F02690 
1 30F02700 
*. 30F02710 
*: 30F02720 
'30F02730 
*.:30F 02740 


PROG ID 


PAGE 


2191224 
| 2a 


030F-0 
2A 





nt, 


la 


Sly 


ee, —7 


an aay 


aa .. pos ? oS ae fre, 
cy @ LD Lo aw) - a i 
- —" 


f 


Ra ; va *y y, ; ( = x 7 aa \ a : a oe yee fae ae Fy | o : on ye AH Sats , va pets 
( fs ( | C | C2 S 
: No ae / 7 


a , fl ae 7 . 7 


NY’ | 


Pam Pex “ aS . ee ™ ee _ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM eee NO. sae IBM MAINTENANCE CIAGNOSTIC: PROGRAM FOR THE 1130 SYSTEM OAce NO. ae 
1442 READER/PUNCH FUNCTION TEST a 1442 READER/PUNCh FUNCTION TEST 
0690 0 6350 LD. 83 80 | SET NUMBER OF COLUMNS 30F 02750 O6D2 01 65000A84 LOX. -LLRAREA | fea — 30F 03430 
0691 01 440uuU7BD ~ ".* BS} tL PNCHR PUNCH GONE CARD 30F02760 0604 O01 4400U076C BSI. bL. REAOR. - READ ONE CARD 30F03440 
0693 0 TUDE : MDX RT41 30FO2770 O6D6 O1 4C1UODECE, BSC L-RT65e-. © REPEAT IF NO GP COMP 30F03450 
* Gite i —_ ee eee , 30F02780 0608 0 63506 LOX. 3.80... SET NUMBER OF COLUMNS 30F03460 
REKKSEKRKSEAKKEKKKKKKK SSSR EKKEKE KEKE FES SKE KKESE KEE 30F 02790 : ; CoD9 O01 44000T7A3 . BS] L COMPR COMPARE DATA REAC 30F03470 
* “ROUTINE 5 .-— READ FLIPFED PATTERN 30F02800 + ae 7 “WITH DATA PUNCHED | 30F03480 
SEEKS KLE REA K ERA SKESE REL SELL ESSE TERK SF SESS 30F02810 O6DB 01 440007FO 851 Lt LOCK CK FGR LOCK CN FUNCTION 30F 03490 
* THIS FOUTINE WILL READ THE FLIPPED PATTERN 30F 02820 7 a ne oe Ps pee tie, | 30F03500 
*# PUNCHED: BY ROUTINES 3 AND 4, - THEN COMPARE 30F 02830 OoeDl O1 740106E3 - MDX Lb DFACT,1 ADV CLUTCH DELAY FACTOR 30F03510 
* wITH CESIRED PATTERN. 30F02840 O6DF O1 74FFOOES MDX L  TO6OCNT 9-1 DEC COUNT | | 30F03520 
Hn a rn a a nn rn errr 30F.02850 O6E1 0 70DD MDX RT62 | | - 30F03530 
ak on * -_ er 225 30F 02860 O6E2 0 70D5 MDX RT61 RESET DELAY. 30F03540 
0694 O01 65000A33 RT5 &tD» Ll wWAREA SET FOR START CF. 30F02870 re *: . = | 30F03550 
0696 01 60900764 STx Ll DADRS ROTATE PATTERN 30F02880 C6E3 0 oO00L DFACT DC *—* | | 30F03560 
C698 O 6102 LD» 120 MESSAGE NUMBER 30F02890 O6E4 O 0000 DLYCT DC *—* 30F03570 
0699 01 67000A0D LOx 3 ASTOH STK TO. HOPPER 30F02900 C6E5 O 0000 TOCNT DC *—* 30F03580 
0698 61 44000967 BSI bt TYPE PRINT MESSAGE 30F02910 | * | ; 30F 03590 
: x. ts 30F02920 ei RRR KH EME KARE REESE KR KE KSA EAE SHEKELS KKH 30F03600 
0690 01 650G0A84 RT51 LOX Li RAREA 30F02930 : — * ROUTINE 7 — PUNCH FROM SWITCHES 30F03610 
O69F V1 4490076C ~ BST L*: READR. READ ONE CARD 30F02940 KEK KKHAKKEKK KCK KKK KAR SSSKKHKKEEKSSEEKEK KECK HKKEHKSES 30F03620 | 
O6AL O1 4C10069D BSC Lt RT5le- REPEAT IF. NO OP COMP 30F02950 | | ” * THIS ROUTINE wILL PUNCH ALL CARD COLUMNS 30F 03630 
0643 0 6328 LOX: 3 40°. ~SET NUMBER OF COLUFAS 30F02960 * WITH THE DATA SET IN BIT SWITCHES O-1ll. 30F0 3640 
06A4 O1 6C00078C STX Lt FLIPS SET FLIP Sw 30F02970 | : ¥—- —---~—- +--+ + +--+ +--+ + - = + = 30F03650 
O6A6 O1 449007A3 BSI L COMPR COMPARE DATA REAC 30F02980 Be * * . | 30F03660 
| . * , WITH DATA PUNCHED | 30F02990 Q6E6 O01 65000A84 RT7  LDX Li RAREA SET TO PUNCH FROM 30F03670 
Mee 4 * 30F03000 OOEB8 O01 6D000784 STX Ll DADRS RAREA 30F 03660 
O6A8 O1 4400073D BSI L ROTAYT ROTATE THE PATTERN 30F03010 O6EA 0 6107. LDX 17. 30F 03690 
O6AA O TOF2 MDX RT51L 30F03020 O6EB O01 670009EB LOX L3 ALDBK LD BLANKS 30F03700 
* | 30F03030 O6ED 01 44000967 BSI L TYPE PRINT MESSAGE 30F03710 — 
SEKRESKEKKESKKRKKEEKE SKEKAESEKE KEKE EHEKKKKEKERHE KS 30F0 3040 se Ih * 30F03720 
* ROUTINE 6 — CLUTCH TEST. | 30F03050 O6EF O1 44900942 BSI L READY 30F03730 
SEEKESKREKKSE SSE KKKSEKKE SEKEKKEKHEKKEKVHKS KHEKEEKSESEHKS 30F03060 O6Fl O 6107 © LDX 17. . 30F03740 
* THIS RIUTINE WILL READ GANG PUNCHED CARDS WITH 30F03070 O6F2 O1 67000A15 LDX L3 ASETP SET PATT 30F03750 
* AND INZREASING DELAY BETWEEN EACH START. READ 30F03080 | “Q06F4 01 44000967 BSI L TYPE PRINT MESSAGE 30F 03760 
* COMMAN). ALL CARCS READ WILL BE COMPARED WITH 30F03090 ; ae ' *. | | os 30F03770 
* THE FIRST CARO. © ang = 30F03100 O6F6 O1 O0COU0TB2 RT71 x10 & SNSWS REAC BIT SwS 30F 03780 
a ca aa a a 30F03110 O6F8 O C020 | LD RT7SW. LD SW SETTING 30F03790 
i ee ee ee | , BiB 30F03120 : O6FS O 100C SLA 12). _ CHECK BIT 12 30F03800 
O6AB 0 6104 RTo LDX 14 . MESSAGE NUMBER - 30F03130 O6FA O01 4€280702 BSC. L RT72,+2 BR IF 12 ON a 30F03810 
O6AC O1 67000A27 ~ -- - LDX » 13 ALACD OR GANG PUNCH 30F03140 x - a 7 | 30F03820 
OGAE O01 6F000974 STX L3 ALPHA41 30F03150 : O6FC O01 650CG06F6 {Dx L1 RT71— 30F03830 
0680 O1 670009EB LDX 13 ALDBK LD BLANKS 30F03160 O6FE O1 6DO0U5E6 STX Ll MLSCFel - 30F03840 
G6B2 01 #4000967 BSI Ll TYPE . PRINT MESSAGE 30F03170 0700 O1 4COQO8DA BSC L wWAIT4 30F 03850 
: a ee. : me, fd 30F03180 * 30r =3860 
0684 01 65000AD4 LOX LI RAREB ae bait bt 30F03190 — es 0702 0 COl6 RT72 LD — RTT7SW LD PATTERN 30F03870 
0686 01 4400076C BSI L  READR READ ONE CARD 30F03200 0703 O 1804 SRA 4 REMOVE 12 BIT 30F 03880 
| - 4 eS | . . 30F03210 Pe 0704 0 1004 SLA 4 30F03890 
0688 0 1810 RT61 SRA 16 -  30F03220 nd 0705 0 0013 STO RT7SW 30F03900 
0689 01 D40006E3 STO L ‘DFACT RESET CLUTCH DELAY FACTOR 30F03230 i 0706 0 o1506 LDX 1 80 30F03910 
0688 0 6370 LOX 3 125 (30F03240 0707 O1 C5000A83 RT73 STO Li RAREA-1 FILL RAREA 30F03920 
O68C O 6828 STX 3 T6CNT INITIALIZE PASS COUNT 30F03250 O709 0 7TI1FF: MDX 1 --1. WITH PATTERN 30F03930 
ree * ~ : eae, 3 | 30F03260 O70A 0 TOFC MDX R173 7 30F03940 
0660 O1 6C000894 STX tt LOGP SET -LOGP FUNCTION ACORS  30F03270 * oe ; 7 30F03950 
O6BF G1 C40005E1 RT62 LO L  SW2 CK SW2 FOR. CONSTANT CELAY 30F03280 : C70B O01 678005E1 RT™74 LDX 13 Sw2 CK CCL CNT OPTION 30F 03960 
06C1 0 1003 SLA 338 i im 3 30F03290 O7UD 0 7300 MDX 3 0 -30F03970 
C6C2 0 4808 BSC - ms . 30F03300 O70E 0 7002 MDX *+) 30F03980 
06C3 0 CUlF LD DFACT iD DELAY FACTOR 30F03310 O70F 0 6350 LDx 3 80 SKIP IF Sw2 SET 30F03990 
06C4 O DOI1F | STG ODLYCT SET DELAY CCUNTER 30F03320 0710 01 4400078D — .  . 8ST L . PNCHR _ PUNCH GNE CARD 30F04000 
* 30F03330 * —_ 30F 04010 
06C5 O1 ©50006T5 RT63 LDX Li RT64 er 7 be (30F03340 0712 0 O86F X1C SNSWS READ BIT SwS 30F04020 
O06C7 O01 EDODO5ES : - STX tl MLSCF+L SET RETURN ADDRS. 30F03350 0713 0 C005 LD RT7Sw 30F 04030 
06C9 O1 4COOGSDA BSC L WAITS | GO TO MCNITOR- 30F 03360 0714 O1 F4000A84 EOR LL  RAREA CK FOR CHANGE OF Sws 30F 04040 
* | - a : 30F 03370 0716 01 4C2006F6 BSC bt RT71e2 BR IF Sw CHANGED 30F04050 
0oCB O1 T4FFOGES RT64 MDX t& ODrvYcTt,»-l DEC COUNTER 30F03380 C718-.0 TO0F2 MDX R174 -30F04060 
OoCl 0 TUF? MDX RT63 . 30F 03390 x * 30F 04070 
7 | * 30F 03400 ~ O719 0 0000 RT7Sw OC *—% BIT Sw STORAGE 30F04080 
OoCE OF 65000AD4 RT65 LDX Ll RAREB SET FOR COMPARE 30F03410 * -30F04090 
0600 01 6D0007TE4 STX £1 DADRS + 30F03420 a | . RESET EERE EEE S ERS ERE KS AEE AES EEE E SESE AKER ES 30F 04100 
CATE O2JANEG OIMAY66 8 15ND0V66 PROG 1D) 030F-0 3 EATE O2JAN66 © OIMAY66 1LSNOV66 | : - PROG ID 030F-0 
EC NO. 415490 41549038 419643 PAGE 3 . EC NO. 415490 4154908 419643 | PAGE — 3A 
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1442 READER /PUNCH FUNCTION “EST 


O714A 
O71C 
O71E 
O71F 
0721 


0723 


0725 


0727 


0729 


0728 
O72C 
O72E 
0730 


0731 
0732 
0734 


0736 
0738 


0739 
0738 


0730 
O73E 
0740 
0742 
0743 
0745 
0747 
0748 


O74A 
0748 
0740 
OT4E 
0750 | 


0751 


CATE 


Ol 
Ol 


O01 


01 


01 
Ol 


Oi 


O1 


se | 
OL 


Ol 
01 


Ol 
01 


Ol 


o 
01 
0 

Ol 


01 


EC NO. 


65U00A 84 
600607 84 
6103 

o700U09F 1 
G4QU096T7 


65000A84 
4400076C 


—440007T4A 


60000894 
6350 
4490078D 


440007F 0 


TOF6 


6103 


&TOOOSF 1 
44000967 


65000433 
4033 


6CO005E0 
4 40U05F 8 


0000 
74010784 
C4800784 
F045 
4CA0073D 
65000A33 
693C 
4C8G073D 


0000 
6500UAD4 
1810 
D4000B94 


2 4018 


668008AC 


O02 JANG6 


4154S5C6 


PART NO. 


PAGE 
* ROUTINE 8 - GANG PUNCH 30F04110 
SKS LES KKSK SEEK ESL K ESSER AKESHRE ECSKE HES KKERE LS 30F04120 
* THIS ROUTINE wILL REAC CNE CARD THEN PUNCH 30F04130 
+ ALL FOLLOWING CAROS wITH DATA READ FROM FIRST 30F04140 
* CARD. 30F04150 
Km ee a 2 a a ne + nn 30F04160 
* 7 | - | 30F04170 
RT8 LCxX Lil RAREA SET TO PUNCH 30F04180 
STX L1 DADRS DATA READ 30F04190 
Lox 1 3 MESSAGE NUMBER 30F04200 
LOX L3 ANYP LD ANY PATTERN. PLUS BLANKS 30F04210 
BSI bt TYPE PRINT MESSAGE 30F04220 
+ : we 30F04230 
LDx Ll RAREA 30F04240 
BSI tL READER REAC ONE CARD 30F04250 
* : 30F04260. 
RT81 BSI L_ BLANK CK FGR BLANK CARC 30F04270 
STX L LOGP SET LOCP FUNCTION ACDRS 30F 04280 
LOx 3 80 ~ SET NUMBER GF CGLUMNS 30F04290 
BSI & PNCHR PUNCH ONE CARD 30F 04300 
BSI kL LOCK CHECK FGR LOCK ON FUNC 30F04310 
MDX ‘RT81_ a 30F04320 
* | | | 30F04330 
KEKSRKEKERE ES SKK KSA AKHAKKHERKESESHK A SKE SKK SHEE ES 30F 04340 
* | RUUTINE 9 -— MODIFY ROTATE PATTERN 30F04350 
SEKEKEKK KEKE SKEKKKESSKSEKSKEKEEKKK KEKE SES KKKSEK KS 30F04360 
* THIS ROUTINE WILL REPLACE THE ROTATE CATA 30F 04370 
* TABLE wITH ANY DESIRED PATTERN- THEN START 30F04380 
* wITH ROUTINE 1. © 30F04390 
Sama a a ma a a a 30F04400. 
* : 30F 04410 
RT9 LOX 13 MESSAGE NUMBER 30F 04420 
LOX 123 ANYP LD ANY PATTERN PLUS BLANKS 30F04430 
BSI Lt TYPE PRIAT MESSAGE 30F 04440 
% 30F04450 
LOX Ll WAREA 2 30F 04460 
351 RE ADR READ ONt CARD 30F04470 
* 30F 04480 
STx« Lt Swi SET CONTROL TO RESTART 30F 04490 
BSI b& CNTRL GO TO CONTROL 30F 04500 
* oe 30F04510 
awakes ae w nen ules ca cua oe os ees ees 6 cae ee ee: 30F04520 
* | ROTATE THE DATA TABLE ADDRESS. 30F 04530 
EKSEKKEKSCER SH KEKECKSE SHKKSESKTKKESEKS SKE KAS KSKVEKSES 30F 04540 
* a 30F 04550 
ROTAT DC +—* 30F 04560 
MDX LL DADRSel ADVANCE THE DATA ADCRS 30F04570 
LO 1 DADRS CHECK FCR DATA 30F04580 
EOR TERM TABLE TERMINATOR 30F 04590 
BSG 1 RGTATs2 RETURN IF NG TERM 30F04600 
LDX Ll WAREA IF TERM — RESET. TO 30F 04610 
STX 1 DADRS START OF TABLE 30F 04620 
BSC I ROTAT Bye abet: f : ae 30F 04630 
* ee ag 30F 04640 
see seaeeneeshanaenennerersxeseesenenenensners 30F 04650 
$ foes +} “ CHECK’ FOR BLANK CARD: 30F04660 
Eee oe nL enn enn yr rr 30F04670 
* THIS SUBROUTINE: WILL” READ: ACARD. AND CHECK. 30F 04680 
* THAT IT 1S: BLANKS: & =) se ee 30F 04690 
#--——----——- — --- —_ - — +--+ - 30F04700 
+ Rees 30F04710 | 
BLANK oc a 30F 04720 
LDX C1 RAREB -30F04730 
SRA 16 30F04740 
STO t cLooP SET FOT NO LOOP 30F04750 
6S! RE ADR REAC ONE CARD 30F 04760 
ge ke Bats 30F 04770 
LDx 12 CQOLCT CHECK FCR BLANK CARC 30F04780 
OLMAY60 15NOV66 PROG IC 
4154903 4159643 PAGE 
\ \ ” * . a - ~ F oN : 
ke et wae ». og — yy ee Ne yy ; ae ) Seal . 


ones 


2191224 
Pa 


030F-0 
4 


18M MAINTENANCE CIAGNOSTIC PROGRAM 


1442 


0753 
0755 
0757 
0758 


0759S. 


0758 
O75C 
O75E 
0760 
0762 
0764 
0765 
0767 
0768 
OT6A 


076C 
0760 
O76F 
0770 
0772 
0773 
O774 


0776 
0778 
O77A 
o77c 
0770 


O77F 


0782 
O782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
O78A 
0786 
O7&C 


078D 0 - 0000... 


KEADER/PUNCH FUNCTION 


Cl 
01 


01 


Ol 


01 


Ol 
O1 
00 
01 


Ol 


-O9000000000RF 


CATE 
EC NU. 


C6000AD3 
4C2007FE 
T2FF 
TOFA 
4C80074A 


0000 
44000542 
D4000894 
650009DC 
6D00CBIA 
6100 

6D0008AD 
UBIC 

4400 U8AF 
4C800756 


0000 


6D000904 
6350 
6FOGOBAD 
1011 
DO1L8 
44000942 


65000905 
6D00089A 
65008003 
0809 

4400 058AF 


4C80076C 


0000 
0719 
3A00 
0000 
1402 
0U90 
1494 
FEFF 
1401 
QUOU. 
1480: . 
0090 


- OZJANGS: 


415490 


BLK 


% 


LD. 
BSC 


MOX 
MOX 
BSC 


TEST 


L2 
L 
2 


| 


FOR 


RAREB-1 
ERROeZ 


-1 
BLKL 
BLANK 


THE 1130 SYSTEM 


BR IF NCT BLANK 


SEEKERS EKSS SK KTS IKE RASH A SHEATH FTE LER R ES RE SS 
FEED A CARD 


+ 


HCKKHKEAKHK SEKEKSE SER SERS SEKKEKSTE RE TS 


x 
FEED 


A ; 


DC 
BSI 


STO 


LDX 
STX 
LDX 
STX 
X10 
BSI 
BSC 


*—-3 


READY 
LGuP 


AFD 


OP. 
0 


COLCT+1 
FDACD-1 


WAIT 
FEED 


HEKKRKHSE 


SET FUR NO LCOP 


SET INTRPT DSW S/B 

SET FOR NO COL INTRPTS 
FEED A CARD 

WAIT FCR INTERRUPT 


HEKECKEK KKK RK EKKLEA SEKHERKSRHREK ESSE SEEKERS IK ES 

: READ A CARD 

ERESEKHK ESET EKKKSE KKH KEKE RS AK KTS RKE SKS TE SSH HRE SH 

* THIS SUBROUTINE WILL READ A CARD THEN CHECK THAT 
* 80 COLUMNS 
* AND OPERATION COMPLETE DShS. 


* 


READR 


* 
* 
SNSWS 


DADRS 
FDACD 
PDATA 
ROR ST 
TERM 
PCHST 
NCOL 
STACK 
oe 


DC 

STX 
LOX 
STX 
SLA 
STO 
BSI 


LDX 
STX 
LDX 
X1G 
BSI 


BSC 


BSS 


DC 
DC 
DC 
DC 
DC 
DC 
DC... 
DC . 
DC 
DC. 
ae 


Li 


L3 


Ll 


Ll 


*-¢ 
READ 
80 


COLCT +1 


FLIPS 
READY 


ARC 
oP 
/8003 


RORST-1 


WAIT 


READR 


0 ‘ 
RT7SW 
/3A00 
*—* 

11402 
*—* 

11404 
/FEFF 


41401 
2% 


41480. 


e—% 


WERE READ AND CHECK THE BUSY, INTRPT, 


SET REAC BUFFER ADORS 
SET COL COUNT S/B 


RESET FLIP Sh 


SET INTRPT DSW S/B 
START THE READER 


| RETURN 
READ BIT SwS_ 


FEEC A CARD 
PUNCH ACORS BUFFER 
START READER 


START PUNCH 
COL PUNCH CR CCMPARE CNT 


SELECT =2. STACKER 
FLIP Sw 


Sed ad ide eeRERE SER COED ER EES ERE ET 
PUNCH A CARD. 

HEC EERERSCE CAEN EESE EERE ETRE EEE LE OEE DER ERED EES 

* THIS. SUBROUTINE wILL PUNCH. A CARD. THEN CHECK 

* THAT. THE PROPER .NUMBER OF. COLUMNS» WERE PUNCHEL, 


*x 


* AND CHECK: THE. BUSYs 


* COMPLETE DSwS. 


i hes ca i a cl ee owe ee ce 


* 


 PNCHR- 


- -OLMAY66° > 


DC. =; 


41549058 


+*—* 


“LSNOV66 
419643 


INTERRUPT, AND OPERATICN 


cd ha ee od 


PART NO- 


PAGE 


30F 04790 


30F04800 
39F04610 
30F 04820 


30F 04630 
30F 04640 
30F04850_ 


30FU4860 
30F04870 
30F04880 
30F 04890 
30F04900 


30F 04910 


30F 04920 


30F04930° 


30F 04940 
30F04950 


30F04960 
30F04970 


30F 04980 
30F04990 


30FO05C00 


30FU5010 


30F05020 
30F05030 


30F05040 
30F05050 


30F05060 


30F05070 
30F05080 
30F05090 
30F05100 
30F05110 


30F05120° 
30FO5130 


30F05140 
30F05150 
30F05160 
30F05170 
30F05180 
30F05190 
30F 65200 
30F05210 
30F05220 
30F 05230 
30F05240 
30F 05250 
30F05260 
30F05270 
30F05280 
30F 05290 
30F05300 
30F05310 
30F 05320 
30F05330 
30F05340 
30F05350 
30F05360 
30F05370 
30FC5380 
30F05390 
30F 05400 
30F 05410 
30F 05420 
30F 05430 
30F05440 
30FC5450 
30F05460 


PROG Ib 


roe - 


2191224 
ak 


(030F-0 














Be ee ee betes ne ete leet) AD Bust shade Laat so, Medes, 


OOOCOCCOCOOCOOOCTCAOCREG 


* aga een pte be: Rn matin RAPA Qe a et te dnt be nN a awinnc ideas gates Hamar 


re 


SOCCCOC OCS 


recent Sr fereeseaaiadinienenel caiaselaenernitemeenel ih amneetemnnemtentimmanemeatimanaedamments ean innate engine 
rons en ane ane: _ 
oA eens haseaentees cmummenmes Eee ee ps sis os 


i rn oa dinghy pee nat ing neretnie ne Mt wt hh mn 


rOCOOC 
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1442 READEK/PUNCH FUNCTION TEST +4. oe _ ~ . 1442 KEADER/PUNCK FUNCTION TEST 


- | 072 G ll COM4 “SLA ae ae 30F 06150— 








O78E 01 6FOOOBAD ~ ST« £3 COLCT+1 SET COL COUNT S/B 30F05470.. | J1 
BESS eo, | pane | | 30F 05480. O7TE3 OL D4000b84 > §T6 L Me - RESET MULT INE CONTROL 30F06160 
0790 01 44000542 PNCH1 BSI L. READY By Ges SaaS 30F05490 . ° : O7E5 O01 4C8007A3 BSC I COMPR 3 30F06170 > 
0792 0 O8FT X10° STACK-1 SELECT STACKER 2 30F 05500. Aet ou Ro ee 30F06180 _ 
=. wae: acd eee ar a 30F05510.. O7E7 O01 6TV00AAB COMS OX 13 RAREA+39 SET TO COMPARE LAST 30F06190 
0793 O1 C40008AD , bo ot CcoLcT#1 30F05520 | O7EY 0 6b59C STX 3 PDATA HALF -wITH 1ST HALF 30F06200 
C795.0... DOF4. STO. | NCOL | SET PUNCH COL CCUNT 30F 05530 | OTEA OV 6700T4FE - -LDX L3 /74FF SET FOR NEGATIVE INCR 30F06210 
0796 O COED LD.. DADRS SET FOR START CF 30F05540 . O7EC 0 6BCD  STX 3 INCR : 30F06220- 
0797 0 ODOEE. STG. PDATA NEXT PATTERN 30F05550 O7ECD 0 6228. - LDX 2 40 CCMPARE (NEXT 30F06230 
0798 O01 650009D8 LDx. Ll APCH : 30F 05560. O7EE'O 6A98— STX 2 NCOL 40 COLUMNS 30F 06240 
O79A 01 6DOCU89A STxX 1 OP 30F05570 | O7EF O TOBE MDX COML eee 30F 06250 
OT9C Ov 65044U03 . LDKX Ll 44003 SET INTRPT DwS S/B ' 30FU05580 | e 30F06260 
O7T9E 0 O8E9 X10 PCHST-1 START THE PUNCH 30F05590. see aeeetaxe sreeesce sates tenses sees eee EES 30F 06270 
O79F 01 440G08AF BS] -L wAIT WAIT FOR INTERRUPTS 30F 05600 * LOC< CN FUNCTICN 30F 06280 
& : 30F05610 EAE EEKER AGREE SHEESH SEES AERA HEE HESS HE HHS ARE 30F06290 
G7A1 01 4C80C78D BSG 1 PNCHR _ | 30F 05620 7 % | 30F06300 
: = 30F05630 .  C7FO O 0000 LOCK OC *—* 30F06310 
ESTHET ERE ET AER ELT EASES SES HEES SH EEEEEE SS 30F05640 O7F1l O1 C40005DF LD L SwoO LO Swo ; 30F06320 
* COMPARE DATA READ 30F 05650 O7F3:°00 EC800166 OR I ERLCK COMB WITH MONITOR SwWO 30F 06330 
REBSEKH EL SK EKKAASSEKSKKREKEKESK HES KSKSE SHKKKKSAKE KE 30F 05660 : O7F5 O LGOA SLA 10 CHECK LCCK Sw 30F 06340 
* THIS SUBROUTINE WILL CCMPARE THE CATA READ WITH 30F05670 OTF6 Vl 4C9007FL BSC I LOCKe- BR IF NCT LOCK ON FUNC 30F06350 
* THE PATTERN EXPECTED FOR THAT CARD. 7 30F05680. O7F8 OL C4000694 LO tL Looe | | LOAC LCCP ADDRS 30F06360 
$-— -—-— — -- = —— = ne 30F 05690 O7FA O1 4CAUC894 | BSC I LOG?92 LOGP ON LAST FUNC 30F 06370. 
| * | 30F05700 . O7FC O1 4C8U07FO BSC 1 LOCK IF LOCGP ACORS IS NOT ZERO 30F06380 
0743 0 0000 COMPR OC *—* | | : 30F05710 | _ * 7 30F 06390 
O7A% O 6&BE5S ST™x 3 NCOL SET NUMBER OF COLUMNS 30FO05720 KERSEEKKKEKKKESEKEKREKSPEHKESESKSEKSEKSEKHKKSEKKEKHEKKE KS 30F 06400 
O7a5 OO 67007401 LOx L3 /7401 SET FOR POSITIVE INCR 30F05730 ~ | * ERROR MESSAGE SETUP 30F 06410 
OTAT O 6312 STx 3 INCR 30FO05T7T40 SHS HEEEHESE SENSE OSE EESEREESA EERE ET EET SAEED 30F06420 
O7a8 O CODB. | LD DADRS SET FOR START CF 30F05750 | * 7 | 30F06430 
O7A9 O DODC STC “ PDATA NEXT PATTERN 30F05760 5 O7FE 0 6100 ~ ERRO LOX 10... CARD NCT BLANK | 30F 06440 
C7AA 0 1011. SLA 17 30F05770 | O7FF 0 6200 LDX 2 /0000 | 30F06450 
O7A@ O1 04000884 STG t MM SET FOR FIRST ERROR 30F05780 0800 0 C86D — : LOD MSGO . | | | 30F06460 
OTAD.O 6101 LOX Li: XRL=COLUMN CCUNT 30F05790 ms ‘s - 0801 O01 6COU0690 STX t& OPMSW . - 30F06470 
sae Pele. | * - “3 | 30F05800 0803 Ol 44000666 BSI tL ETYPE PRINT ERR MSG ss 30F 06480 
O7AE O1 6DOU05AE COMi STX L121 COL SAVE COL COUNT 30F05810 , 0805 OL 4C000748 BSC L_ BLANK+1 L him, “ees 30F 06490 
07380. 01 C4800786 LD I PDATA LD NEXT DATA WGRD 30F05820 : - | * | 30F06500 
0782 0 1803 | SRA 3 es ao 30F05830 0807 0 oO0uVOd ERR1 OC 8 STATIC CSw ERRCR 30F06510 
C783 0 1003 SLA 3 30F05840 0808 O1 74000885 MDX L  ERR5SS,0 IF PREVIOUS ERRS 30F 06520 
0784 Cl 0400U8AB STO DATA+1 SAVE IN DATA S/B 30F05850 7 C80A 0 7006 MD X ERRLA OC NOT PRINT THIS PSG 30F 06530 
O766 O01 F500UA83 EQR Lil RAREA-1 COMPARE WITH DATA READ 30F05860 080B 0 6101 LOx 11 : 30F06540 
O7TeS vi 44200851 BSI L ERRGs2 BR IF ERROR 30F05870 O80C 0 6203 LDX 2 7/3 30F06550 
O7BA O1 14010786 INCR MDX L- PDATA,s1 ADV DATA ADRS 30F05880 O80D 0 C862 DD MSGL 30F06560 
O7T6c 0 7101 MDx 21-7 : ADV COLUMN COUNT 30F05890 G80E 01 6C0UG890 STX tL OPMSW 30F06570 
O7Bo 0 1000 NOP we 30F05900 0810 0 4075 BSI ETYPE PRINT ERR MSG 30F 06580 
O7BE 01 C4800786 LO. I POATA CK FOR DATA TABLE - 30F05910. : eo | | 30F065S0 
o7coO O FOC7 EUR TERM TERMINATOR 30F 05920 0811 0 1011 ERR1A SLA i ae eg 30F06600 
O7TC1 O1 4C2007C6 BSC Lt COM2,e2 BR IF NC TERPF 30F05930 0812 0 DO72 ~  *s §TO---> ERRSS RESET ERRS Sw 30F06610 
07C3 01 67000A33 LOX. L3 WAREA RESET TO START 30F05940 0813 OL 4C80C807 BSC I ERRI1 30F06620 
0705 0. 6e8CO STX 3 PDATA OF TABLE | 30F05950 | 9 455 * : as 4 30F06630 
2 = * a 7 30F05960 C815 0 0006 ERR2 DC *—% BUSY DSW ERRCR | 30F06640 
O7C6 G1 C40008AE CoM2 LOD t COL CHECK FOR LAST COL READ 30F05970 0816 0 6102 LOx 12 30F06650 
O7C8 G1 940008AC S  t CcoLct —_ ae 8 30F 05980 0817 0 620C LDx 2 /C 30F 06660 
O7CA O1 4SCIUOTE2 | BSC LbL COM4,- BR IF LAST CGL 30F05990 08l@ 0 C859 LOD MSG2. 30F06670 
O7CC O1 T4FFOTBA a MDX L NCOLe-l COUAT COLUMNS SHCULD 30FO6000 0819 0 406C BSI ETYFE PRINT ERROR MESSAGE 30F 06680 
O7CE O TODF-. 40x  — COM] HAVE READ | 30F06010 O81A O01 4C80C815 . BSC 1 ERR2 © 30F 06690 
| * Ts 6 Doh atete - 30F06020 - eo x | ee 30F06700 
OTCF O1 7400078C COM3 MOX L_ FLIPS,0 CK FLIP Sw 30F06030 081C © d0v0 ERRG DC e-% INTRPT O DSW ERROR 30F06710 
o7oi G 7015 MDX COMS ER IF FLIP 30F06040 081D 01 F4Q008A7 © €OR L ODSwSB RESTORE DSw WAS 30F 06720 
| * - ‘ 30F06050 O81F Ol D4U0CB8A6 STO Lt OSWO : 30F 06730 
 o7D2 0 1011. —_ SLA 17 | THE REST OF CARD 30F06060 0821 0 6104 LOx 14 © 30F 06740 
0703 G1 D40008AB STG L DATA+1 SHCULD BE ZERG 30F06070 0822 0 6230 LOX 2 430° 30F 06750 
O7D5 OL 6DOOGSAE STX 1 COL ee : 7 30F06080 0823 0 C852 LDD MSG4 30F 06760 
O707 G1 F5000A83 ECR Ll RAREA-1 30F06090 C824 0 4061 BSI ETYPE PRINT ERR MSG 30F06770 
0709 01 44200851 BSI L ERRGeZ 30F 06100 0825 O1 4C8U081C oe BSC 1 ERR4 30F06780 
O7De Cc 7101 MDX ll 30F 06110 bat: * 30F 06790 
G7DC O01 C40006AE LD Lt COL 30F06120 0827 0 0000 ERR5 OC e- t= INTRPT 4 DSW ERROR 30F 06800 
OC7DE 01 9400CSAC S L COLCT 30FU6130 0828 0 685C STX ERRSS SET ERROR 5 SW 30F 06810 
O7EG O01 4C2807CF _ . BSC LL COM3,+#Z 30F06140 0829 00 660000C0 LDOx t2 /CO SET DATA ID 3006820 
CATE - -O2JAN66 O1MAY66 . ISNOV66....... a. = PROG ID 030F-0 — . = CATE O2JAN66 OLMAY66 L5SNOV65 © | _ PROG ID O30F-0 
SA 


EC NO. 9415490 =«- 4154908) 419643 - an PAGE | Sy EC NGo 415490 4154908 419643. PAGE 


O86E.. 
O86E 
-O86F. 


2 C873... 


18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1442 READEK/PUNCH FUNCTION TEST 


0828 
082C 
082D 
O82E 
O82F 


0831 
0832 
0833 
0834 


cocc ooOOCe 


0836 O 


0837 Ol 


0839 Ol 


0838 Ol 
083D v1 
08 3F 
C840 
C841 
0842 
0843 
0844 


0845 ¢ 
0846 
0847 
0848 


Oo 
O 
0 
7) 
r) 
0 
0 
a 
0 
0 
0849 0 
084A 0 
0846 0 
0840 0 
O84E 0 
084F 0 
0851 0 
0852 0 
C853 0 
0854 0 
0855 0 
0856 O 
0858 0 
085A 0 
0858 O 
C85C 0 
085D O 
O85F O 
0860 O 
0861 00 
0863 01 
0865 Ul 


(0867.0 
0808 O 
0869 O 
-G86A 0 
-C86B.0 
086C.0 


0870 
c871 
0872 


onli endl ood onl © Baedl 


CATE fees 


EC NO. 


-_ 


FC7C 
DOTC 
COTA 
1002 
4C 2806 3¢ 


6105 
C845 


4052 


4C 800827 


Covu 
4CO8G845 
UCOC0S04 
C4800904 
4C 180845 
D062 
6106 
6203 
C837 
4042 
TUEF 
6107 
C835 


~—403E 


TOEB 


0uv0 
o108 
66000CU0 
C830 
4037 _ 
4C800849 


oouuU 


FO56 
D056 
6SOD 
1040 
60009300 
74000884 
7005 
6828 
6109 
66001300 
C820 
4025 


6500U0COU 


OCOO0TbA 
4C80C851 


e000 


6110 
6240 
~Cc8i7 
GOLA 
-4C300867 


9000... 


0976 


a 0000 rere 


OSTE 
O98A 
OSTE 


0993 


415450 


EOR 
STG 
LO 

SLA 
8$C 


LDX 
LOD 


5$1- 


ERRSR BSC 


ERR 6 


ERRT 


 ERRB 


ERRY 


RX} 


LO 
BSC 


BSC 


OC 

EOR 
STO 
STx 
SLT 
i OX 
MDX 
MDX 
STX 
LDXx 
LDx 
LOD 


ERROA BS) 


LD) 
XTC 
BSC 


ERR10 DC 


* 


“MSGO 


MSGI 


MSG2 


4154608 - 


LOX 
LOK 


“BSI 
BSC 


OS n4 


DSw4tl 


DSh4 


"2 


on f 


I 


“ERRGg +Z 


5 
MSG5 
ETYPE 
ERRS 


DS¥SB 
ERRT,+ 
READ 
READ 
ERRT,+#- 
DS wa. 

6 

43 
MSG6 
ETYPE 
ERRSR 


7 
MSG7 
ETYPE | 
ERR5R 


*—* 


8 
4C00 
MSG8 
ETYPE 
ERRS 


*—* 
DATA+1 
DATA 
RX1+) 
32 
9300 
M 


ERROA- 
a 


9 
41300 | 
MSG9 
ETYPE 
*—* 
STACK-1 
ERK 
e—-¢ 
710 


740 


“45610 


I 


ETYPE 
-ERRIC 


1130 SYSTEM 


GET DSw S/B 
SET IN MSG 


LCCK FCR ERR Ck 
BR IF ERR CK 


PRINT ERR MSG 


CK FOR PUNCH OPERATION 
BR IF NCT PUNCH 
RD ECHC BITS 


BR IF ACT PUNCH CK 
STO ECHC IN MSG 


PRIKT ERR MSG 


ERR CK 


PRINT ERR MSG 


COL COUNT ERROR 


PRINT ERR MSG 


DATA CCMPARE ERROR 
RESTORE TO DATA WAS 


SAVE XRl 


SET FOR MULTI LINE MSG 
CHECK FCR MULTI LINE 
BR IF FIRST LINE 

SET MULTI LINE WCRC 
MESSAGE NUMBER 

SET WORD CNTL 


~ ERRCR TYPE OUT 


RESTORE XR] 
SELECT ERROR CARD 
RETURN 


ALFHA MESSAGE ADDRESSES : 


_BSS 
‘DC 

oc 
oC 
oC 


Faia. s 


Je 


SO 


ne 
“ ACNBK 


0000 


 AWAS © 


ASDSw 
AwaS 
ABDSWw 


1 SNOV6O, 
419643° 


CARC NGT BLANK 


PART NO. 


PAGE 


30F06830 
30F 06840 
30F06850 
30F06860 
30F06870 


30F06860. 


30F 06890 
30F 06900 
30F06910 
30F 06920 
30F06930 
30F 06940 
30F 06950 
30F06960 
30F 06970 
30F06980 


30F 06990. 


30F07000 
30F07010 
30F07020 
30F07030 
30F07040 
30F07050 
30FO07060 
30F07070 
30F 07080 
30F07090 
30F07100 
30F07110 
30F07120 
30F07130 
30F07140 
30F07150 
30F07160 
30F07170 
30F07180 
30F07190 
30F07200 
30F07210 
30FU07220 
30F07230 
30F07240 
30F07250 
30F 07260 
30F07270 
30F07280 
30F07290 
30F07300 
30F07310 
30F07320 
30F07330 
30F07340 
30F07350 
30F07360 
30FOT73T0 
30F07380 
30F07390 
.30F.07400 
_30F07410 
.30F.07420 
.30F07430 
,30FC7440 
.30F07450 
- 30F07460 
.30F07470 
30F 07480 
30F07490 
30F07500 


., PAGE.--. 


» PROG ID 


2191224 
6b 


030F-0 
rarg.8 


¢ 


innit g tow bh ebimiceneen see, R 


I8M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1442 READER/PUNCE FUNCTION TEST 


0874 
0875 
0876 
0877 
O&75 
0879 
O87A 
0878 
O87C 
0870 
O87E 
C87F 
0880 
088sl 
0882 
088 3 
0884 
0885 


CS Ce pee. et pice pes pes tet. eid feet pee et bet pet pet fed 


C886 
C887 
C888 
0889 


O88A 
o8s8sC 
088D 
O08 BF 
0890 


omoc]e oo0oo 


0891 
C893 
C894 
C895 


© 


oOorOo 


© 
po 


0896 


c898 
0899 
089A 


oro 


c89C 
089D 
(089E 
C89F 
—O8AG 
OBAl’ 


ccoco 


OBA2- 
“08A3: 
_C8A4 
~~ O8A5— 
0BAG 
- O8A7 
C8A8 
08A9 


DATE 
EC NG. 


OCMOHOOCCO . 


O9A3 
O9AB 
O97E 
OA05 


O97E 


0996 


 OSTE 


U983 
U9TE 
0989 
0933 
O9BE 
O97E 
0Sc5 
O9A3 
O9AF 
Ovv0 
0000 


6000 
6915 
6A16 
D816 


74000890 


7004 
(44800162 


0896 
0000 


44800162 
089D 
0000 


68FA 


4C80C85&6 


8000 


'O9CF 


0000 


0001 
0000 
1C00 


~0000 
~ 0000 
~ 0000 


: 9000 
-goo0o. 


0000 


~0003 ~ : 
-00U0°” 
: 0006 


0000 
O0uU0 


02 JAN66 


415450 4154908 419643 


ANINT 


MSG3 ODOC 
: DC AL V4 
MSG4 OC AWAS 
DC ADSwWO 
MSGS DC AWAS 
DC - ADSW4 
MSG6 OC AWAS 
DOC APCK 
MSG? DC AWAS 
| DC - AECK 
MSG8 .OC  ADWAS 
Dc ACCNT 
MSG9 DC AWAS 
DC . ADATA 
MSG10 OC ANINT 
DC. ALVO | 
M DC *— 2 MULTI LINE CONTRCL wORC 
ERR5S DOC *—x ERRS Sw —— 
* | 
REKKSEKESE KES SEKK ECCS KTS KSSKLHEKKESSE SSS RE KEKE ES 
€ | PRINT ERROR MESSAGE 
REKKEKKKKESCKSEKKKSEKAKCEKESREREKKSESKSEEK ELK EKEESERES 
* THIS RGUTINE PRINTS ALL THE ERROR MESSAGES. 
* UPON ENTRY THE MSG NGe MUST BE SET IN XR] e 
* THE DATA ID IN XK2, ANC THE ALPHA. ADDRS IN 
* THE ACCUM AND EXT. : 
Se re a cee ee ewe ee ee oe ee eee ae ee ee we we ee ee 
* 
ETYPE DC x-¢ | 
STX 1 TAELE MSG NUMBER 
STx 2 TABLE+2 DATA ID 


STD AMSG ALPHA MESSAGE: 
* ae 
MOX L OPMSW PRINT LAST OP MSG IF 
MDX ETYP1 FIRST ERROR MSG AFTER 
BSI I ERROR A CONTROL OP 
OC ETYP2 | | 
OPMSw DC +-% MUST BE ZERO FCR CP MSG 
= 
ETYP1 BSI I ERROR PRIAT ERROR MESSAGE 
se, TOE TABLE | 
LOOP OC *—* 
STX OPMSW 
x . ( 
ETYP2 BSC I ETYPE RETURN 
, | | 
OC 78000 
oc -ALOP 
oP DC +—* 
t 
SK im ce cee ee ee ee ce ee ee ae ae ee ee ae ee me ee ee we ee ee we 
* ERROR MESSAGE TABLE 
mn ee ee ee ee ee ee we ee ae ew ee ee 
BSS. £ 1 sie Wide ttaaet. fine 
TABLE DC *—* ‘MESSAGE NUMBER- 
DC /1€90 HEX/DECIMAL SW 
DC *—* DATA WORD ID 
AMSG : DC +*—* ALPKA ADDRS 1 
oc *—* ALPHA ADORS 2 
DSw DC ie STATIC Cow WAS 
ZERO. OC /0090.-. ie St. ee eee 
BDSw OC e+ “BUSY DSw WAS 
oC £0003 S/B 
DOSWO OC :  . *-* INT. 0. DSW WAS) 
- DSW SB. DC _ 4-8 ny 2-3 
DSw4 DC *—% INT 4 CSw WAS 
DC *-* S/B 


OIMAY66 —«1 SNOV60 


oe Be se cost OPS -" Se tent fot Cesy ee a x 
peak. inet Pu Co BY oni Leda fo 223 og ee Ts 


PART NOe 2191224 
6A 


PAGE 


30F07510 
30F 07520 
30F07530 
30F07540 
30FU7550 
30F07560 
30FU7570 
30FO7580 
30F 67590 
30F07600 
30F07610 
30F07620 
30F 07630 
30F07640 


30F07650 . 


30F 07660 
30FO7670 
30F07680 
30FO07690 
30FO7T7T09 
30FOT710 


— 30FO07720 


30F 07730 
30FOT7T40 
30F 07750 
30F 07760 
30F07770 


30F 07780 


30F 07790 
30FOT600 
30F07810 
30F 07820 
30F 07830 
30F07840 
30FC7850 
30F07860 
30F07870 
30F 07880 
30F07890 
30F07900 
30F07910 
30F07920 


'30F07930 


30F 07940 
30F07950 
30F07960 
30F07970 
30F07980 
30F07990 
30FU8000 


~30FO8010 


30F08020 
30F 08030 


30F08040 


30F 08050 


_30F 08060 
30F 08070 


30F08080 


~30F 08090 
“'30F08100 
-30F08110 
'30F08120 
- 30F 08130 
*“30F08140 
* 30F08150 
~30F08160 
“30F08170 


30FC8180 


PROG 10D 


EP RGE 


"> 


a. aaa : 
| Kos Lo) 
‘ i 

oa 7 n 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


Core 


O 


on oy 


1442 READER/PUNCr FUNCTION TEST 


CBAA 
“OBAB 
OBAC 
'C8AC 

O8AE 


O8AF 
0860 
C831 
08863 
08B4 
08B5 
0886 
O8b7 
0888 
O8B9 
O8BA 
O8BC 
O8BE 


O8BF 
08C 1 


o8sC3 


O8C5 


O8C6 
osc? 
oscs 
O8CA 
oscB 
oscc 
O8CC 
O8CF 
O8DO 
o8sD2 
08D3 
O8D4 


08D5 © 


08D6 
O8D8 


O8DA 
osDCc 
O8DE 
O8EO 
OBE2 


O8E4 
O8E5 
O8E6 
O8E7 


DATE 


COOCCO 


© 


eococoooco 


Ol 
01 


01 
00 


01 


© 


= 


eeecoooo¢coocnoeé 
ope 


Oooo 


EC NC. 


0000 
~ 0000 


QO0uUU 


“G050 


0000 


voou 
69F6 
65001UU0 
6S5C 
0851 
DOEE 
1011 
DOF4 
DU56 
DOD6 


-650008C3 | 


7T400U5E6 
7015 


6NVU0C5E5 


“44800161 


T4FF C910 


—T0F4 


Coop 
FODD 


‘44200815 


U83B 
DOOC 
CUEO 


. €CO8CBD2 


Cooc 
44050667 
6103 
6240 
C89F 
4030 | 
6 T8008AF 
6FVOO5E6 


C40CU5E6 
44880161 
940005DD 
442005F 8 
44800161 


-10A0 


COBE 
FOBE 
44200815 


O2JANG6 
415490 


“DATA OC 


BC 
COLCT. vC 
ae OC 


“COL DC 
gee. Si 


we 
+ 


*x-* 


ee 
ko 
*—% 


Oo’ 


‘DATA READ WAS 


1130 SYSTEM 


- $78 
COLUMN COUNT WAS 
S$/B 
Poeun PN ERROR. 


“sue enennees seecetes teeeseseeenetateaeenonenes 


“INTERRUPT hAIT’ ROUTINE: 


pereererrerrrrrereercsrrs ter: -rrrerre llr rite 


THIS SUBROUTINE wAITS FOR INTERRUPT. 
WHEN ThE INTERRUPT IS RECEIVED IT WILL 


IF A NEW RUUTINE HAS BEEN SELECTED IT 


e 

+ . 

* “CHECK THE ROUTINE SELECTICN ShITCH. 
x 

x 


WILL BRANCH TC THE CONTROL ROUTINE} 


wAIT OC 


STX. 


LOX 
STX 
X10 
STO 
SLA 
STC 
STO 
STO 
* : 
WAIT LOX 

MUX 

MO)X 


wAIT2 SYX 
| BSI 


wALT3 MDX 
MC~CX 


LC 
EOR 
BSI 
X10 
STC 
LO 
BSC 
LD 


BSI. 


WAT3A LOX 


LOD 
BSI 
LDX 
STX 


WAIT4 LD 
BSI 
5 
-BSI 
BSI 
* 


me 


—s 
DSwSB- 
1000 


“WONT 


SENSE 
BDSW 
17 
COLCT 
E5ITS 
OPMSW 


WAIT3 


| MLSCF+l 
“WAITS 


ML SCF 
START 


WONT ,-1 
WAITI 


BDSW 
BDSW+l 


ERR2-Z 


SENSE 
DSW4 
COLCT+41 
WAT3A a+ 
COLCT 
ERR10 »+ 


ce 
740 


MSG3 
ETYPE 
WAIT 
MLSCF 41 


Sal 
“START 9+ 


RID 


CNTRL oZ 


START 


SAVE INT O DSW S/B 
SET INTERRUPT 

WAIT CNT 
SENSE BLSY DSW 


RESET CCL CCUNT 


RESET INT O OSw ERR BITS 
RESET OP MSG Sw 


CK FOR INTERRUPT 
BR IF INTERRUPT CCCUREC 


-SET RETURN ACDRESS 
-GO TO MCNITOR 


DECREMENT WAIT CNT 


CK BUSY USW 


BR IF ER 

SENSE DOSw 
STORE CSw IN MSG 
CK FOR FEED OP 
BR IF FEED OP 


PRINT ERR MSG 
SET TO CONTINUE FUNCTION 


CK FOR RTN SELECT 


CK FOR NEW ROUTINE 


BR IF NEw RTN 
GJ TO MCNITOR 


*<—— ee Se en <ecs em ck Ma “Cn is eis cep em mm smn cs sab ‘ut Sh inn es 


* COME TO HERE FRKGM INTERRUPT AND CHECK FOR 
* ERRORS SEFGRE RETURNING TC TEST ROUTINE 


RTRN SLT 
' LO 
FOR 
BS. 
O1LMAY66 


4154908 


32. 


8DSwa 

BOSwWel 
4 ERR2,2 
1 SNOV66 


419643 


CK BUSY OSw 


BR IF ER 


— ta 


PART NO- 


- PAGE 


» 30F08190 


'30F08200 
30F08210 


~30F08220 
_30F08230 


30F08240 


-30F08250 


30F08260 
30F08270 


' 30F08280 
/30F08290 


30F 08300 
30F08310 
30F08320 
30F08330 
30F 08340 
30F08350 
30F08360 
30F08370 
30F08380 


-30F08390 


30F 08400 
30F08410 
30F08420 
30F 08430 
30F 08440 


~30F08450 


30F 08460 
30F08470 
30F08480 
30F08490 
30F08500 
'30F08510 
30F08520 
30F08530 
30F08540 
'30F08550 
.30F 08560 
30F08570 
30F 08580 
30F08590 
30F0 8600 
30F08610 
30F08620 
30F08630 
30F08640 
30F08650 
30F08660 
30F08670 
30F08680 
30F08690 
30F08700 
30F08710 
30F08720 
30F08730 
30F08740 
30F08750 
30F08760 
30F08770 
30F08780 
30F08790 
30F08800 
30F08810 
30F08820 
30F 08830 
30F08840 
30F08850 
30F08860 


PROG ID 


PAGE 


yaa . Pars a eo . 

| | | 
; / / ” Ne ” 
a ed a 


2191224 
“7 


030F-0 
7 








ae Cole ee «< - . aa a “q — 
Se Ney GS ee ee ee i Soy Sez Naw SZ LU 
18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1442 READER/PUNCr FUNCTION TEST 
‘08E9 0 C025 LOD “EBITS CK INT O DSW 
-OBEA 0 E023 “AND KEFFF 
“OBE ui 4420061C “BSIL oo 2 - BR IF ERR 
ware ; ; x ‘ 
-O8ED O ~COBA LOD ‘DSHA CK INT 4 DSW 
O8EE 0 FO1D -EOR ‘KOS00 | = REMCVE RESPCNSE BIT 
~-O8EF 0 01D ‘AND KEFFE MASK LAST CD AND NRCY 
~ QO8FO O1 44200827 ~ BST L  ERR5e2Z BR IF ERR 
O8F2 0 CO3A : LD COLCT+1 CK FOR FEED CP 
O8F3 U1 4CO8UEFC BSC L  RTRNI ot BR IF FEED OP 
ae ‘a 2 : 
O8F5 0 C036 LD COLCT 
O8F6 O1 44080867 BSI L ERR1IO,s+ 
O8F8 O ‘C033 LD CCLCT CK COLUMN CCUNT 
O8F9 0 F083 EGR COLCT+1 CCMPARE WITH S/B 
O8FA O01 44200849 BSI L  ERRB_Z BR IF CCL COUNT ER 
| a | , i 
* 
O8FC 0 COAB RTRNL LOD ‘DSwW4 CK FOR LAST CARD 
~ O8FD 0 1004 SLA 4 
| O8FE O1 4C02095F BSC L LSTCD,C BR IF LAST CARD 
0900 01 4C8008AF BSC I WAIT RETURN TO TEST RTN 
0902 0000 BSS E 0O 
0902 1 O90A PUNCH DC P BUF PUNCH 
= 0903 0 1100 -DC 41100 
‘0904 1 O0A84 “READ OC RAREA READ 
0905 uv 1200 DC 41200 
7 0906 0 QOduUC SENSE DC 70000 SENSE DSW 
. 0907 0 1700 DC 41700 
0908 0 0008 K0O08 DC /0008 
> 0909 O.- 1701 SNR SG DC 41701 
090A 0 0000 PBUF DC t—% PRINT DATA BUFFER 
090B 0 1702 SNRS& DC 4/1702 
~ C90C O O80U KO800 DC ‘40800 
O90C VU EFFE KEFFE DC /EFFE 
O90E O EFFF KEFFF DC /EFFF 
O90F 0 «aouvo EBITS DC * + INT O CSW ER BITS 
0910 0 0000 wCNT OC *—-* 
; , < . : 
REERKKKKKKSE SKK KKKRE SKKKEARSE SKE KET ELER SEES HK SEKKES 
* INTRPT O SERVICE ROUTINE 
= KREME KEKSERKE SEK KEKE SKKEKRSEKSHKSEKESESKERK KE KEKKEE 
; * 
0911 0 00090 INTRO DC *—* 
0912 0 O8F5 X10 SNRSO-1 SENSE DSw 
0913 0 F093 EOR DShSB CK FOR CORRECT DSW 
0914 0 E8FA OR EBITS 
; 0915 0 DOF9 STG EBITS SAVE ERROR BITS 
0916 0 FO90 3 EOR OSWSB RESTORE DSW 
0917 0 1600 NOP e) USE FOR TRAP 
*- | : 
0918 OL 740108AC_. MOX kL CJOLCT +1 ADV COLUMN COUNT 
O91A Ul 4€260932 | BSC UL CKROR»*+Z CK RDR IF BO - © 
: O91C Ol C480C786 LD I PDATA LD PUNCH DATA 
O91E O1 74FFC7BA MOX L NCCLy-1 CK FGR LAST COL 
0920 0 7001 MDX *+1 ve) be 
: 0921 0 E8EG ~~ 7 UR KO008& SET PUNCH TERMINATOR 
0922 U DOET STG PBUF: STC PUNCH CATA IN BUFFER 
0923 0 O6DE XIC PUNCH PCH A CCLUPN 
0924 01 7401078€6 MDX & PDATA,1 INCREASE PCF ADDR 
0926 01 C4300786 LD I PDATA LD NEXT PUNCH CATA 
0928 01 F4000788 EOR Lb TERM CK FOR END OF TABLE 
092A U1 4CAU0S11 BSC I INTROsZ RETURN IF AGT ENC 
092C U1 67000A33 LDX L3 WAREA RETURN TO START OF 
O92E U1 6FOOOTSE STX L3 PDATA PUNCH CATA TABLE 
; 0930 U1 4CsU0g1i 5SC I INTRO 
_ DATE 02JAN66 UIMAY 66 1 5NOV66 
415490 


EC NG. 4154508 419643 


uous, —— 
ae es 


PART NOe 


PAGE 


30F08870 
30F08880 


30F08890 


'30F08900 


30F08910 
30F 08920 


‘30F 08930 
-30F 08940 
'30F 06950 
30F0&960 


30F0&970 
30F06980 


30F0&990 


30F0S000 
30F0S010 
30F09020 
30F 09030 
30F09040 


30F09050 
‘30F09060 
30F09070 © 


30F09080 
30F09090 
30F09100 
30F 09110 
30F09120 
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1442 KEAUER/PUNCK FUNCTIGN TEST | 2 1442 READER/PUNCE FUNCTICN TEST 


* 30F09550 —— — | * 30F 10230 


0932 0 oO8sDdl CKKDK X10 READ REAC CCMMAND 30F 09560 096D U DOUS STC AL PHA+41 | 30F 10240 

0933 01 74010904 MD). L KEAD,1 INCREASE RC ADOR 30F09570 C96E 01 4C800S67 56SC I TYPE RETURN | : 30F 10250 

C935 U1 4C8G0911 BSC I INTRO 30F09580 3 re * | | 30F 10260 

* ; ce | a3 30FU9590 C970 0 o00uU SMSG DC. *-* MESSAGE NUMBER 30F 10270 

SHERERKKL KS KEKRKKTKSKEKKE KES SEKESEREESEKRKER KEE SES 30F 09600 o971 90 OoouvO DC 70000 HEX/DECIMAL SW 30F 10280 

* INTRPT 4 SERVICE ROUTINE 30F09610 0972 0 UOOl ~ DC /o00u1 DATA wWCRD ID 30F 10290 

KEKE KEKS REAE SEK KKK KS SKES SES KE SKE SKK SEH EH RSSHKE 30F09620 0973 0 vOoOo”U ALPHA DC x—-e ALPHA ACDRS 1 30F 10300 

pat % : 30F 09630. C974 0 0000 oc *— ALPHA ACDRS 2 30F 10310 

C937 0 Gv0L ; INTR4 DC *-% | 30F 09640 0975 0 1442 | DC 11442 | 30F 10320 

0936 0 0801 — XIC SNRS4-1 SENSE DSW | 30F 69650 | Oo * | ) | 30F 10330 

093S UW 1000 | NOF O | USE FOR TRAP © 30F0S660 RE KKK EKSEE SA SSS SSA SKK HK ASSEKST SESH SCHL KRESS 30F 10340 

* 7 : 30F09670 : . x ALPHA MESSAGES - 30F 10350 

093A 01 D40005A8B STC L DSW4 SAVE DSw BITS 30F09680 ERE SKKKK KEKE KK SRE KMR SHREK EKSRE TE RAE KE RE LAKERS 30F 10360 

093C O01 oO700UEES LOx 3 RTRN 30F09690 | - x : - a 30F 10370 

O93E O1 oFU0USE6 STX LS MLSCF +1 SET FOR RETURN 30F09700 | 0976 0 1E3E ACNBK DC /LESZE CARC NGT BLANK | 30F 10360 

0940 01 4C80C957 3SC I INTR4 30F09710 0977 0 6232 DC 16232 a 30F 10350 

| . as te | 30F09720 : C978 0 2176 DC 12176 30F 10460 

SEEKERS FEREAERERRES SESS ESAER GES THEE SHER ES HS SE 30F09730 — | 097S$ 0 529E oC" 4529E 7 30F10410 

* CHECK READY 30F09740: O97A O 211A DC 211A OO 30F 10420 

| KSEKEKKKKKKK SK SEKAKSERBCKKSSSSEKRAKKE SKE KKERKK KEES 30F 09750 e O97B 9 5E3E | DC 45E3E 30F 10430 

| * | 30F09760 O97C O 765A DC /TO5A 30F 10440 

0942 0 vu0o READY DC fs a , 30F09770 O97L O FFFF Oc /FFFF | : 30F10450 

0943 U0 08C2 x10 SENSE SENSE CSw 30F09780° = ¥ : | 30F 10460 

0944 01 D40006A2 STO t OSwW STGRE OSW : 30F09790 , : O97E 0 923E AwAS DC /923E wAS S/B 30F 10470 

0946 01 4€98(942 BSC I READY ,s+- NO BITS FOUND 30F09800 O97F 0 9A21 DC 19A21— 30F 10480 

0948 G0 1801 | SRA 1: REMGVE NRDY 30F09810 jf * 0980 0 219A DC 7/2194 | , 30F 10490 

0949 01 442008U7 BSI L ERR1,2Z BR IF CTHER THAN NRCY 30F09820 : 0981 0 BCLA — DC /BC1A a 30F 10500 

oe * | _ 30F09830 0982 VU FFFF ) oc /FFEF | 30F10510 

0948 0 1011 BOX = SLA 17 30F09840 :S 7 * | 3 30F10520 

094C O DUll | | STO BCNT RESET BOX CNT 30F09850 0983 0 923E ADWAS OC /923E WAS S/B 30F 10530 

ws : * fa : | _ 30F09860 0984 0 9A21 oc /9A21 | 30F 10540 

094D 01 65000953 BOX] LOX Lil BOX2 LD REEATRY ADDRS 30FO098T0 0985 0 2121 -o€ — £2121 pt 30F 10550 

094F Ul 6D0005E6 STX Ll MLSCF 41 SET MLSCF | 30F09880 | 0986 0 9A3C OC 7 9ABC 30F 10560 

0951 O1 4CUOC8DA ' BSC L wAIT+ GO TO MCNITOR 30F09890 | 0987 0 1A21 DC /1A21 30F10570 

| * | 7 : 30F09900 | ; 0988 O 2121 OC 42121 | 30F 10580 

0953 0 0882 | BOX2 KIC . SENSE SENSE OSW | 30F09910 989 0 FFFF oe , /FFFF 30F10590 

0954 O01 4€980942 BSC 1 READY »+- RETURN IF READY 30F09920 | * | 30F 10600 

0956 O1 7403CS5E MOxX tt BCNT,3 30F09930° | O98A 0 2184 A35D0Sw DC 12184 -STATIC DSW EFR 30F10610 

0958 0 TOF4 MDX BOX] | 30F 09940 : 0988 0 9A9E OC J9OA9SE 30F 10620 

io * , : 30F 09950 | O98C 0 3E9E | DC /3E9E 30F 10630 

C959 0 6105 NRDY LDX 15 — MESSAGE NUMBER 30F 09960 098D 0 221E DC /221€ . 30F 10640 

095A 01 679009DF LDX L3 ANRDY NOT REACY: 30F 09970 O98E 0 2132 DC 12132 | 30F 10650 

095C 0 400A | BSI TYPE | PRINT MESSAGE 30F 09980 | O98F 0 9A92Z DC /9A92 © ;_ 30F1C660 

0950 0 T7OED. MDX BOX 30F09990 0990 0 2136 — OC 42136 © | | 30F 10670 

* : 3 30F10000 | 0991 0 6262 OC 16262 30F 10680 

O95—E 0 0000 BCNT OC +*—* a 30F 10010 , 0992 0 FFFF OC /FFFF | ag 30F 10690 

* : eo : ? 30F10020 | * 30F10700: 

KEE SERS EEEE ES EE EERE TEREST HER ERKE SHED EEE SSSR SE 30F 10030 | 0993 0 2184 ABDSw DC 12184 -BUSY OSW ERR 30F 10710 

* FEED LAST CARD 30F 10040 0994 0 1AB2 DC —  fLABZ | | 30F 10720 

KSOKKKEKEKLEKKEKEKESE SHEKSKKEKSKSKKHKSE SHEKEKKESESKE 30F 10050 0995 0 SAA6 DC /9AAS 30F10730. 

* : Se ee 30F 10060 : 0996 0 2132 | DC 12132 : a 30F 10740 

O95F 01 0C000784 LSTCD XIO tL FOACD-1 . - FEED CCMMAND 30F 10070 0997 0 9A92 OC — S9A92 30F 10750 

0961 0 6106 LDX 16 MESSAGE NUMBER © 30F10080 | 09980. 2136 DC: 12136 30F10760 

0962 01 670009FF : LOX 3 ALCD ~~ LAST CARD 30F 10090: 0999 0 6262 : DC 16262 30F16770 

0964 0 44002 oy TYPE =~ — PRINT: MESSAGE 30F 10100. C9O9A 0 FFFF DC JEFFE aaa ee 30F10780 

0905 O01 440U005F8 ‘ BSI CNTRL” GO. TG NEXT. RGUTINE 30F10110. | (oe or * xs ie oO aa an een a 30F10790 

Boe oe sa 30F10120° 0998°u'° 2184 = ADSW4 DC - =| 2184 -LEV4 OSw ERR 30F:10800 

seu neeuaesenseeeses sete srerestestoeeses ese ees - 30F10130° | 099C' 0 5E36° oc /5E36- ae ee Me ne 30F10810— 

eet PRINT STATUS MESSAGE*®: - > * : 30F10140.. 099C'0 B6FO- DOC /B6OFO Coe e Augie, of Ge as 30F 10820 ° 

oo ae sen ansceansusatanecsseececeses sees seeeseeees 30F10150° Q99E 0 2132: DC 42132 eS aa 30F10830° 

ca a ere . fee a OS: ths 30F10160: | O99F 0 9A920 : DC /9A92 30F10840° 

C967 0° 0000 TYPE OC: +=" ee nee Te 30F10170— 09A0 0 ‘2136 °° =~ DC- = £2136 © ree a Bee 30F10850° 

0968: 0° 6907 oP SEX SMSG NEW MSG NUMBER: © ~ 30F 10180 O9A1°O0 6262, ~ 16262 30F10860° 

0969°0— 6809" . ., STX ALPHA UPDATE MESSAGE 30F 10190. O9A2°0° FFFF- /FFFF 30F 10870. 

ee. e eo He | 30F10200 © : : F 

096A 00 44800163 BSI I LOG CALL ON Loc 30F 10210 0943 0 329A ANINT DC 43294 DSw ees 

096C 1 O970 | DC SMSG ADCR OF MSG 30F 10220 | : - 0944 0 9221 DC 19221 30F10900 
DATE O2J4N56 =U] MAY66 1 SNOV66 PROG ID 0O30F-0O _ DATE O2JAN66 OLMAY66 1 5NOV66 PROG 1D 030F-0. 
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O9AS 


O9AT 
O9AE 


O9AF 
0960 
O9B } 
O962 


ecod 


G9B3 
0964 
09b5 
0986 
0987 
O9E8 


oooocec 


0989 
O9BA 
0985 
O9BC 
09580 


O9BE 
09CcO 


09C2 


09C5 
09C6 
Oo9c? 
o9C8 
o9Cc9. 
O9CA 


o9cc 


O9CF 
0909 


0902 
6904 
09D5 
0906 
Oo9D7 


C9DS 
o9D9 


0908 


G9DD 
Oo9DE 


aoOo 


CATE 
EC NC. 


SOCoO CO : 


cooc 


qoocooco oOoaoo 


eoooceoo oooceco0ooocnco 


ooaoso ooo 


—, 


2176 
~ 5221 
(2276 
GEb2 


So9E 
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~ 5E36 
 BoFOU 
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2184 
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12276 


L9E62 
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> /EEEF 
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CODF 
O9EO 
O9E1l 
O9E2 
O9E3 
O9E4 
O9E5 
O9E6 
O9E7 
O9E& 
O9ES 
O9EA 


Omooooecocooc 


O9EB 
O9EC 
C9EC 
O9EE 
O9EF 
O9FO 


O9F 1 

O3F2 

is O9F3 
O9F4 

O9F5 

* O9F6 
O9F7 

O9F8 

- O9F9 
_O9FA 
O9FB 
O9FC 
C9FC 
COFE 


O9FF 
OAO0O 
OA01 
OA02 
0A03 
OAUS 


0A05 
OA06 
~OAO0T 
OA08 
OAOS 
OAOA 

. OAOB 
~. QAOC 


-Ooooceo0o0cne 


OAOD 
OAGE 
OAGF 
OA10 
~ @OAll 
OA12 
0Al13 
0A14 


CA15 
GA16 
CAlT 
OA1& 
. OALS 
~ OALA 
CA1B 


DATE — 
EC NOe 


ococco 


SCOOODO0 CocoeCeocoOOCAOCOOOC 


ococcooo 


oooococ 


7662 
32A6 
2184 
5662 
309A 
9A21 
FCFG 
FUDS 
219A 
SE3E 
629E 
FFFF 


5E32 
21UU 


 LADSE 


3E76 
SA9A 
FFEF 


SE Sz 
213€ 
T6A6 
2156 
3SE9E 
GE36 
6276 
2156 
5EBZ 
9A21 
1A5E 
3ET6 
S5SAIA 
FFFF 


5E3E- 
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211€ 
3E62 
320C 
FFFF 


2184 
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1442 READER/PUNCH FUNCTION TEST : 1442 READER/PUNCh FUNCTION TEST 


OA5A 30F 12950 


OAIC 0 21C4 DC 121C4 0 30F12270 0 4010 — oc 44010 COL 40 WAREA+39 | 
OA1D O 84FC ~ pc /84FC -1 30F 12280 0A5B 0 3006 DC 43000 30F12960 | 
OALE O FC21 DC /FC21 1 30F12290 | OAS5SC 0 2800 DC /28C0. 30F12970 | 
OALF 0 9&26 DC /9E26 THEN TN SW 12 30F 12300 OA5D 0 2400 DC 12400 30F12980 
OA20 0 3676 OC 43676 EN : 30F 12310 OASE O 2200 DC 422C0 30F 12990 
OA21 0 219€ oc /219E T 30F 12320 OA5F O 2100 DC 421C0 30F13000 
OA22 0 7621 DC 47621 N 30F12330 0A60 O 2080 DC 42080 30F13010_ | 
0A23 0 9A92 DC /9A92 SW 30F 12340 0A61 0 2040 DC - 12040 30F 13020 : 
CA24 WU 21FC DC /21€C 1 30F12350 - OA62 0 20206 DC . 42020 30F 13030 
OA25 0 0821 DC 10821 2 30F 12360 | 0A63 0 2010 DC. 42010 30F.13040 
OA26 0 FFFF DC /FFFF 30F 12370 0Ao4 O 0000 DC 70000 30F13050 — 
7 * 7 30F 12380 1 OA65 O FLOO DC /FCOO 30F 13060 
OA27 0 5262 — ALACD DOC 15262 © OR GANG PUNCKED CARES 30F 12390 OA66 VU U3FO0 DC /03FO . 30F 13070 
OA28 O 2116 DC 12116 | 30F 12400 | OA67 O- FCOO - DC 4FCUOO 30F 13080 
0A29.0 3E76 DC - /3ET6 30F12410 g OA68 0 O3FO DC /03F0O 30F 13090 
OA2A 0 1621 DC 41621 30F12420 0A69 U 0000 DC 70000 30F13100 
OA2B 0 5682 DC /56B2 30F 12430. OA6A 0 8887 Dc 18887 30F 13110 
OA2C 0 T61E DC /TolE 30F 12440 q OQA6B 0 4444 OC 14444 30F 13120 
OA20 0 2636 DC 12636 30F 12450 OA6C 0 2222 DC 12222 30F15130 
OAZ2E 0 3221 DC 43221 30F 12460 OA6D O 1111 DC 1111 30F 13140 
OA2F 0 1€3E DC /1E3E 30F12470 | 2 OAGE 0 0007 DC 40007 30F13150 | 
0A30 0 6232 DC 16232 30F 12480 OA6F O 8880 DC 78880 30F13160 
CA31 0 9AV0 oc /9A00 30F12490 OA70 0 CCC4 DC SCCC4 30F 13170 
CA32 0 FFFF DC /FFFF 30F12500 = OA71 0 AAA2 > DC JARA2 30F 13180 
: * 30F12510 OA72 O 9991 DC 49991 30F 13190 
SHKKACHEKKKAK KKTKKEKS EKESEKSESEKESRK ESSE SKKRESEE SE 30F 12520 OA7T3 0 4444 DC 44444 30F 13200. 
a | PUNCH DATA TABLE 30F 12530 OA7T4 QO 6666 — DC 16666 30F13210 © 
KEKKSECKKKKLRKESSEKRHKERK SKK KKKKSHRE SCKE KE HHEKEKSSE 30F 12540 OAT5 0 5555 DC 45555 30F 13220 
* | 30F12550 | j OAT6 O 2222 DC 72222 30F 13230 
0A33 0 8010 WAREA DC /8010 COLUMN 1 30F12560 OA77 0 3333 DC 43333 30F 13240 
0434 0 4020 DC 14020 30F1257T0 OA7T8 O 1111 OC A111 30F13250 . 
0A35 0 2040 DC 12040 20F 12580 0A79 0 0005 DC 40005 CHECK PCH TERM 30F 13260 
0A36 0 1080 DC 71080 | 30F 12590 OA7A O 0006 DC 70006 30F 13270 
0A37 0 0900 DC 10900 30F 12600 OA7B O FFFT. DC . /EFFT 30F 13280 | 
GA38 0 6600 DC 40600 30F 12610 OA7C O FFF7T DC /FFFT 30F13290 
Q0A3S 0 0600 DC 40600 30F 12620 © : OA7TC O  FFFT oC /FFET 30F 13300 
0A3A 0 0900 DC 40900 30F12630 OATE 0 FFFO DC /FFFO 30F 13310 . 
VA3B 0 1080 DC 41080 30F 12640 | OATF O FFFO bc /FFFO - 30F13320 . 
QA3C 0 2040 DC 42040 30F12650 | OA80 0 FFFO DC /FFFO | 30F 13330. 
OA3D 0 4020 DC 74020. 30F12660-— OA81 O. FFFO DC /FFFO. 30F 13340 
CA3E 0 8010 DC /8010 | 30F12670. . OA82 0 OQCO00 DC 40000 COLUMN 80 30F13350 
OA3F 0 FFFT DC /FFFT. 30F 12680 OA83 0 FFFF DC. /FEFE TERMINATOR 30F 13360 
OA40 0 8880 D 8880 30F 12690 | : * _ : 30F13370 
0441 0 CCCO 5 jeces RE oian RE CHEKEKKKEEHE AKKK SE KET SKK EKEKKHEKSE SKKKKKCKKKE KRESS 30F 13380 
OA42 0 EEEO OC - oO 30F12710 * READ AREA 30F 13390 — 
OA4 3 O FFFO DC (aa Serotec REKKKKEEEKK KEK KK SKK SKEET KSEKKKSEKSE SSKK KE SKSE SKE SS 30F 13400 
OAS4 UW 7777 DC 47777 30F12730 | * 30F 13410 
0A45 0 3333 DC 13333 30F 12740 0A84:. 0050 RAREA BSS 89 30F 13420 
OAS6 O 1111 DC 41111 30F12750 OAD4 0051 RAREB BSS 81 30F 13430 
OA47 O FFFT7 DC /FFFT COL 21 30F 12760 | * : 30F 13440. 
CA“%B O AOG0O - DC 74000 30F 12770 0826. O5E8 END.” BGIN 30F 13456 
0A49 0 +9000 DC /90G0 — ALPHA RIPPLE 30F 12780... = 
VASA QO 8800 DC 78800 _ : 30F12790 
0A4B 0 8400 mom 18400 — re 30F12800 . 
OA4C O 8200 DC 48200 COL 26 30F12810 .. 
CA4D 0 8100 DC 78100 .- 30F12820.. . | 
OAGE 0 8080 — DC 78080. = 30F12830.. . | 
OASF O 8040 ~ DC 48040. .- 30F 12840. ...- a ' 
0A50° 0° 8020°°— oe 78020... ° 30F 12850. -.. - 
0A51 0 8010 DC /8010 30F12860..- sa) 
CA52°0° 50U0°'- DC : 45000: : - 30F 12870... -. 
0A53'0 ~4800°': DC 44800°. 30F 12880... 
0A54 0 4400 DC . 14400. °° 30F 12890. : 
0A55° 0: 4200 OC - 14200: :- 30F 12900. . ;. 
9A56°0 (4100: °° DC 14100: =: 30F12910... 
OAST'0 4080 = DC . 74080: °° " 30F 12920. : 2 7 
0A58 0 4040 DC 14040 30F 12930 — 
GA59 0 4020 DC 14020 30F 12940 
DATE OZ2JAN66 Ol1MAY6S 15NOV66 PROG ID 030F-0 es CATE * °° O2JAN66 -~ OIMAY66 " ‘YSNOVO6O6 PROG ID 030F-0 
EC NO. 415490 = -415490B. 419643 PAGE. ;-» lo EC NO. 415490 4154908 419643 PAGE 10A 
> pore ae ~ hy ‘ ~ 7 S T » , ~ me ac ‘ ~ . A = . ‘ ae - - Bee . ‘ . 
eo a o a ee ~ Ey A oe. a see eA \ Re a a -, Sos Cues A _/ Sees 7 Se ey J J 7 S S ew ea 
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1442 READER/PUNCh FUNCTION TEST 


CROSS REFERENCE LISTING) 0 ges 


SYMBOL 


ABDSw 
ACCNT 
ACNBK 
ADATA 
ADS&C 
ADSw4 
ADWAS 
AECK 
AFD 
AL ACC 
ALCO 
ALD®K 
ALOP 
ALPHA 
AL VU 
ALV4 
AMSG 
ANINT 
ANRCOY 
ANYP 
APCH 
APCK 
ARD 
ASDSw 
ASETP 
ASTOh 
AWAS 
BCNT 
BDSw 
BEGIN 
BG IN 
BLANK 
BLK 1 
BOX 
BOX] 
BOX2 
CKRDR 
CLEAR 
CNTRL 
CN10 
CN20 
CN30 
‘COL 
COLCT 


COMPR |. 


COM1 
com2 
coM3. 
COM4 
COM5 
‘DADRS 
DATA 
DFACT 
DLYCT 
OSw 
DSwWSB 
DSO 
DSw4 
EBITS 
END 
ERLCK 
ERROR 
ERRO 


CATE 


EC NO. 


VALUE 


REFERENCES... .. 
0993 O873 on 
O9SBE OB8T7F . 
0976. O86E ° . 
O9C5 0881 
OA05 O877 .-:: 
0998 OBT9 © Ger Eee tS .* 
0983 OSTE 
0939 O8s7D 
osDC 0760 - 
UA27 O6AC 
OSFF 0962 —- 
OSES 0626, 0659 » 068 0», OOEB 
OSCF 0899 
0973 VoAE.0969,096D 
O9SAF 0883 
O9A5 0875 
OBAO 088s9 
OSA3 0874, 0882 
O9DF 095A © 
O9F 1 O71F,.0732 
OosD8 0798 
0933 0878 
G9D5 O776 
O95A OsTl .. 
OA15 O6F2  3&3>— 
OAOD U63D, O066E » 699 
O9TE U870, O8 72 + 876,08 7T8,O087A,087C,C880 
O95E 094C , 0956 
OBA C8B5, 08C6, OSC 7408E5,08E6 
0160 0000, 05E8 
OSES OB25 
C74A 062A, 0650.0727307T59,0E05 
0753 0758... 
094B 095D 
0940 0958 
0953 094D 
0932 O91A 
0685 0688 
O5SFB O5F 7, 073Be 08E020965 
OSFC oe 
0603. OSFA 
0609 OSFE 
‘O&AE OTAE,.07C6,0705,07DC 
USAC 07519 G765e0770,078EsU 79320708, 07DE,08 BT ~OB8CC,OSCF y 
i OSF2, O8F 5, (8F 8,08F9,0518 
OTA3 U64F » 0679 ,C 6A 6% 060940 TES 
OTAE O7CE, OTEF 
O07CG6 O7Ci 
OTCF O7TEO 
OTE2 O7CA 
OTE? GT791 
0784 0623 063A +C65 69 060By 0 68E » 069690600 ,06EB»0 71C,O73Es 
0740, 0747, C796,0T7AB 
OBAA 075 4-¢07D3,C852,0853 
U6E3 -068 9, 06C3,06DD 
UcE4 U6C 4, 06CB 
O8A2 O83F - 0944 
U8AT7 0810, 0836, 083 02091370916 
0846 OB1F. iy ee ot 
O6AS 0828, 082C » 0820D,.08CB,O08ED,08FC 093A 
OSOUF U858,08E9,0914,0915 
0164 00G0, 0000-2 0000,0000+0607 
0Gloc6 UTF3 
0162 0000, 088D,0891 
O7FE © O755 
O2 JAN6E O1MAY66: LSONOV6O6: PROG ID 030F-0 
415490 4154908 PAGE © 11 
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ERR] 
ERRIA 
ERK10 
ERR Z 
ERR4 
ERRS5S 
ERR5R 


ERR5S 


ERR6 
ERR? 
ERR8 
ERRS 
ERRIA 
ETYPE 


ETYP1 
ETYP2 
FDACD 
FEED 
FLIP 
FLIPS 
ILO 
IL 


- IL2 


IL3 
IL4 
INCR 
INTRC 
INTR4 
KEFFE 
KEFFF 
«K0008 
KO80G 
LOCK 
LOG 
LOGBY 
LOOP 
LRTN 
LSTCC 


MLSCF 
MSGO 
MSG1 
MSG10 
MSG2 
MSG3 
MSG4 
MSG5 
MSG6 
MSGT7 
MSG8 
MSG9 
NCOL 
NRDY 
NRTN 


OPMSw 
PBUF 
PCHST 


PDATA 


PID 


PNCHR 
PNCH1L 


PUNCR 


RAREA 


CATE 
EC NO 





0807 
0811 
0867 
G&15 
O81C 
O&27 
0834 
C885 
0836 
0845 
0849 
0851 
0800 
0886 


0591 
0896 
0765 
0758 
O6TF 
O78C 
O1TA 
O18A 
O19A 
O1AA 
O1BA 
O7BA 
0911 
0937 
090D 
O90E 
0908 
o90c 
O7FG 
0165 
0167 
0894 


0620 


O95F 
0884 
U5E5 
O86E 
0870 
O8s2 
0872 
0874 
0876 
0878 
O8TA 
Q87C 
O87E 
0880 
O78A 
0959 
061D 
O389A 
0890 
O90A 
0789 
0786 


050C 
078C 
0790 
0902 
O5DE 
OA84 


O02JAN66 
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PART NO.w 2191224 
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0813,0949 

O80A 

086C, O8DO, O8F 6 

O51A,08C8,C8ET 

0825, O8EB 

0834, O8FO 

0844, 0848 

0808, 081270828 

O82F 

0837, 083D 

O84F ,O8FA 

O7B8,07D9, 0865 

O85A ’ 
0803, 0810-7 C81 990824 4483330843 50847 ,084E 0860, 0868, 


0896, 08D5 


OT6T7, O95F 

0635,076A 

0085 

06A4,0773,07CF 
0000, OSEF 

0000 

0000 

0000 

0000,05F5 

UTAT, O7EC 

O5ED, C92A » 0930,0935 
O5F 3, 0940 

O8EF 

O8EA 

0921 

O8EE 

0631+ 0664,06082072E 20 7F6,07FC 
00600, 096A 


0612, 062C » 0O65F,O06BD,U7T29 ,0T4ESOTSELOTFBZOTFA 
0616 

O8FE 

O5F1,07A8,07E 3,0858,08&5B8 

O60E » O6CT7 » OG6FE,086C 70 &BF sg O8D8, 093E »094F 
0800 

080D 

O86A 

0818 

O8D4 

0823 

0832 

0842 

0846 

084D 

O85F 

0795,07A4,07CC,O7EELOSILE 


0617 


- U762, 07T8,CT9A 


0801, O80E »088A,0895,08B9 
0902,0922 — 

O79E 

0797+ G7A9¢ C7B 0s 07BA+0 TBE 50705 407E9 90910 10924,09265 
092E 

O5EA 

062F 40662, 0691¢0710,072Cs07AL 


0923 

Q60D . 

0544, G648, 0672, 0O67F -0681,0688 ,068C 069070602 ,06E6, 
OTU7T, O714— C71 A,072340 186,07TD?7,07E 71,0904 


PROG 1D 030F-0 
PAGE TA 


O1MAY 66 
4154908 


1 SNOV6OE 
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PAGE 12 PAGE 12A 
1442 KREADER/PUNCH FUNCTION TEST af 1442 REALER/PUNCRr FUNCTION TEST 
RAREE OADS 0 6b 4, OoCE »074B, 0753 —~ ‘WAREA GA33 U6211 063850654, 0669706945 073626745 ,07C32092C 
ROR ST 0737 O7TC . WAT SA Q8D2 Oo8scD 
REAC 0904 0760» 0839.063B,0932,0533 WONT 0916 0853, 05C3 
READR O70C 064A, 0674+ 069F 5 066620604,072590738 10750, 077F : ZERO O8A3 
REACY 0942. O6EF » O75C «0774207905 0546 40954 
RID u500 O5EC, CSFC - 060250603 50€05,0609,08DE 
RIOCK 00616 OSFD 
RLCF O166 | ) Lh . 
ROTAT 0730 06332 0651 .0666,0607Bs06A85 074340748 
RQKB O16C o0vu0~—z 3 | 
RQTY 0188 0v00 
RTNGM 0617 0606 
RTNShn 0165 O6OF = 
RTRN UBE4S 093C 
RTRNL O8fC O38F 3 
RTTBL O6ls 0608, 0616, 0617 
RT1 6621 Ué18 .- ve % 
RT11 062A 0637 g 
RT2 0638 0619 
RT21 V64l- 0053 
RT22 0644 0647 > | 
aT 23 0648 064C 
RT3 0654 O61A 
RT31 > 005D 0568 4 
RT4 0669 0618 
RT41 0672 0676, 0693 
RT 42 067D ae 
RTS 0694 061C 
aT51 069D 0641,06AA 
RTO OoAB 0610 
RTol 0688 06E 2 
RT62 O6BF 06E1 
RT63 06C5 06CO 
RT64 06CB 06C5 
RTOS GECE 06D6 | | 
RT7 06E6 O61E i 
RT7Sw 0719 OOF By 0702 ¢ C7059 071390782 
RT71 O6F6 U6FC, 0716. | 
RTT2 G702 QoOFA 
RT73 0707 O70A 
RT74 0708 0718 
RTS  =—s-_—d OTA OolF 
R¥81: 0727 0730 
RT9: 0731 0620 
RX1 0801 0854 
SENSE 0906 0884, O8CA » 094340953 
SMSG 097u 096 8, 096C 
SNRSO 0909 0912, 
SNRS4& 0908 0938 
SNSwWS 0782 06F 6,0712 
STACK 0788 0792, 0863 | 
START 0161 0000, 0614, 08C 1,08DC »08E2 | 
STRT OSEB 05E 3, 05E4 : 
SVKB 0130 Phen 
Sa0° O5DF OTF 1 
Sal 05E0 05F.9, 0601 »0739,08DA 
Sw2°> 0561 COBF , 0708 
‘Sw3° = -G5E2 ees 
TABLE 089D 0887, 0588, 0893 
TERM. u78e 06420742 » 07C 04,0928 
TYPE 0967 0628, U63F » 06585 067690698» 06B2 s06ED 206F 4,0 T21,0T34%,e 
Sse ae  -095C:»'0964s 096E ies 
TOCNT O6E5 OoBC » OODF . 
‘WAIT. <> G6AF o>. * 107685 077Ds079F s0806,0900 : 
WAIT1  CG@BA Osc s * 
wWAIT2 OU83F 
BAIT3 08C3 O8BA | 
WAITS’: O8DA.5 + 0909, O7CO, C8BE, 0951 | 
DAT BPP SO O9SyaNe6' © OLMAY60: © 1 SNOVO6 PROG ID. . 030F-0 DATE O02 JAN66 O1MAY66 1 SNOV66 PROG ID O30F-0 
EC NC. 415490 4154908 419643 PAGE =" 12 EC NCo: -415490..: 4154908. . 419643. PAGE 12A 
“oS a Sy cae = ~ lcs oa a ae ae oo ae oe a. i prey a ee a St —_ ona ger 
6 LeLe Bere rd /e 26 ae 26 OS Le ee £8 Oe ee ne ee ee 
meh eZ ee ed oe Keg deg fh ee, ae s a 7 po a aa cee Ronis ee, 227 ay a) — ae 
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2. PROGRAM PREREQUISITES 
2e2 MODEL NUMBER AND CORE STORAGE SPEED 


3e OPERATING PROCEDURE @ 2 e @ e ° @ e @ eo e oe 8 e Ld 


PROGRAM LOADING 


3.1 

3.2 PROGRAM OPERATION | 

3.2.1 PROGRAM CONTROL - FUNCTICN O | 
3e202 ROUTINE SELECTEON — FUNCTION 1 
30203 OPTIONAL CONTROL 

3.3 PROGRAM HALTS 

30301 NORMAL HALTS 

30302 ERROR HALTS. | 

30% PROGRAM TERMINATION 

305 RESTART 


4 PRINTOUTS. e® ee a @ Bien le eee o.© ©.0e © © © @ 6 @ 


4ol STATUS MESSAGES 
42 ERROR MESSAGES 


5e COMMENTS & eS oe «© eo 6 @ e , e = - @ e o a 2 a ’ % os 


5ei TEST PROCEDURE 


5elel TEST ORGANIZATION 

Sele2 ERROR CHECKING 

502 ROUTINE . DESCRIPTION aa: OAS enter 
Se201 TEST SEQUENCE CONTROL ROUTINE - CNTRL 
52202 NORMAL TEST ROUTINE ; 

50203 OPTIONAL TEST ROUTINE 

5e20% TEST SUBROUTINES 

522-5 ERROR CONTROL ROUTINE 

50206 INTERRUPT ROUTINES 


se, 


be APPENDIX « ee3ev3ewee @ @.8e @ eas oe °@ See as oeoee ee @ 


PUNCH GUTS 


NOTE - DD NOT RUN THIS PROGRAM IN OVERLAP. 
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1442 TIMING TEST 


le PURPOSE 


PART NO. 
PAGE 


THE 1442 TIMING TEST IS DESIGNED TO CHECK THE FOLLOWING CONDITIONS. 


A. READ AND PUNCH COLUMN TIMING TOLERANCES. 


Be PUNCH COLUMN DELAY TOLERANCE. 
C. PROPER DSW RESPONSES. 


D. READ REGISTRATION OR COMPARE ERRORS. 


£,. PUNCH ECHO CHECK ERRORS. 
Fe CORRECT COLUMN INTERRUPT COUNTS- 


THE PROGRAM WILL NOT CHECK THE FOLLOWING 
BY SCOPING WHILE PROGRAM IS RUNNINGe 


A. READ CELL DURATION 
Be EMITTER TIMING 
Ce READ OR PUNCH SINGLE SHOT TIMING 
2e PREREQUISTIES 
2.]*** PROGRAM PREREQUISITES 


1130 DIAGNOSTIC MONITOR iI 
THIS TEST ey NOT ‘BE ‘RUN IN: OVERLAP wet 


2e Ltt EQUIPMENT PREREQUISITES 


1. 1132 CPU WITH PROGRAM Loao FROK CARD 
2. 1442 MOD Sy 6» OR 7o . 


2e3%%% MODEL NUMBER 


ITEMS WHICH MUST BE CHECKED 


(LOGIC PAGE XR301) 


ANY OTHER PROGRAM, © 


OR PAPER TAPE READER. 


THE 1442 MODEL NUMBER MUST BE KNOWN IN ORDER TO USE THIS PROGRAM. 
THIS DATA MAY BE ENTERED VIA THE BIT SWITCHES AS OUTLINED Ia SECTION 
3.1 OR THIS DATA MAY BE ENTERED VIA A PATCH CARD AS FOLLOWS. 


COL 1 - 10°: +05E1 000% 
cOL1l-19 — | BLANK 
COL 20 - 35 ~*~ ° °°: (3442 MOD # 
WHERE M = MOD NUMBER 5y 65° OR 7 
DATE O2JAN66 O1MAYS6 I5NOQV66 15JUN67 PROG ID 
EC NOw 415490 4154908 419643 420317 PAGE 


2191230 
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PAGE 0002 


1442 TIMING TEST 1442 TIMING TEST 


6 oe 


a 


3e. OPERATING PROCEDURE * 3 3e2e2 KOUTINE SELECTION — FUNCTION 1 


— 301%*# PROGRAM LOADING 7 THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED 
, 3 | OR ROUTINE SELECTION IS RESET 
STANDARD MONITOR LOADING PROCEDURES APPLY 
THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR le TO SET ROUTINE SELECTION 
a DETAILS. 7 | ze ° 


| 7 a, — Ae SET SWITCHES O-7 TO 41. 
le SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGINS Be SET ROUTINE NUMBER IN SWITCHES 12-15. 


























2 SET BIT SWITCH 15 OFF = LOAD AND GO | = 4 3 
ON = TO HALT AFTER LOADING A a a a haa aaa a a ea 
* | | | RTN DESCRIPTION 
, IF HALTED AFTER LOADING, SELECT PROGRAM a) ° een nnn en ne eee wenn nnn ee weer 
OPTIONS THEN TURN OFF HALT SWITCH OR = | 
FOLLOW NORMAL RESTART PROCEDURE 1 * DELAY PUNCH + CHECK COL « NORMAL ROUTINES— 
(SECTION 325)6 | > 3 INTR TIME | 
2 READ + CHECK COL INTRPT TIME.’ THE PROGRAM STARTS WITH 
3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 3. *® PUNCH COL INTRPT TIME GRAPH « ROUTINE 1, RUNS EACH 
4e IF MGDEL NUMBER CARD IS NOT IN DECKe THE MODEL NUMBER MUST BE 3 mc 3 &  * READ COL INTRE TIME GRAPH «. ROUTINE IN SEQUENCE 
ENTERED BEFORE THE PROGRAM WILL RUNe | G | © THEN TERMINATES AFTER 
z , @ ROUTINE 4. 
A. SET SWITCHES TO 810X WHERE X EQUALS THE MODEL NUMBER oY 3 a a ee a rn nn rn te ener renee ennene 
Be PRESS THE INTERRUPT REQUEST KEY | | | | 5 * MODIFY DATA « OPTIONAL ROUTINES= 
es | | | | | : « THESE ROUTINES RUN 
. 5s SELECT PROGRAM OPTIONS, IF DESIRED. 3 | , a) 3 | - ONLY IF SELECTED. 
. KEGSER ; . ee ee tr ee Oe Oe em 8 > Oe een ee 08 oe Oe Oe we Oe oe Oe Oe nO we Or 8 On Oe OO OOO” WOO OO OB SOOOOeowee 
| ee | : &® © REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 
302%*% PROGRAM OPERATION. | > | : | 
a | E. | — | Ce PRESS INT REQ KEY ON CONSOLE. : | 
STANDARD MONITOR OPERATING PROCEDURES APPLY. | | : | 
THESE PRUCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 3 Ze TO RESET ROUTINE SELECTION» SET AS IF SELECTING ROUTINE ZERO. : 
DETAILS. . | s¢ Q 
NOTE —- DO NOT RUN THIS PROGRAM IN OVERLAP ’ 3 3.2.3 OPTIONAL CONTROL 
3e2el PROGRAM CONTROL OPTIONS = FUNCTION O le SPECIFY PUNCH DELAY ; 
le SET SWITCHES O-7 TO O01. are 3 te THE PUNCH DELAY IN ROUTINE ONE CAN BE CONTROLLED BY A SWITCH 
2. SET SWITCHES 8-15 AS DESIRED. | | ENTRY WITH THE SWITCHES SET TO 81XX WHERE XX IS THE PUNCH ~ 
a ee | dig DELAY INCREMENT IN HEX. : | 
SW FUNCTION | 7 : | | 
eee + + | | 2e GRAPH SCALE FACTOR 
8 RESTART | | 3/3 | | | : 
9 ROUTINE START MESSAGE AND AVG INTERRUPT TIME IN RTNS 1 # 2 7 1F NO GRAPH IS PUNCHED BY ROUTINE 3 OR 4 IT IS PROBABLE THAT 
10 LOCK ON FUNCTION , | ; THE READER OR PUNCH TIMING IS SO FAR OFF THAT THE GRAPH DOES 
11 LOOP PROGRAM | 3: gy NOT PUNCH ON THE CARD. THE GRAPH SCALE IS NORMALLY 38 USEC 
12 LOOP ON ERROR : | PER CARD ROW. THIS SCALE FACTOR CAN BE INCREASED BY A SWITCH 
13 BYPASS ERROR PRINTOUT © | a ENTRY WITH THE SWITCHES SET TO C1LOX WHERE THE NEW SCALE IS 
14 HALT ON ERROR a, oi 4% - €QUAL TO 38X USEC. 
15 HALT 4 | 
——<—— re 3e MODIFY PUNCH DATA 
3. PRESS INT REQ KEY ON CONSOLE. oc" 3S 


aa ROUTINE 9 WILi READ IN ONE CARD AND REPLACE THE PUNCH 
‘DATA TABLE WITH THE DATA PATTERN PUNCHED IN THAT CARD. 

THE PROGRAM WILL THEN RESTART FROM ROUTINE le 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 
PAGE 
1442 TIMING TEST 
303%%* PROGRAM HALTS 
303-1 NORMAL HALTS | 
“GHALT-NO. DESCRIPTION. : RESTART 
o(B REG). ; ACTION ; 
e 3001 . PROGRAM STOP OR ADDRESS STOP » PRESS START ° 
. 3002 . HALT ON ERROR | ... DISPLAY MODE-PRESS START. 
e e : ‘: ; e RUN MODE = PRESS START e 
° : Pe 3 
303-2 ERROR HALTS 
OC ee — Se + eee e 
eHALT NO. DESCRIPTION 2 RESTART. ‘ 
e(B REG). ACTION - 
2 e e , eo. 
« 30F1 . CHECK SUM ERROR ON FIRST » RELOAD * 
e e @ e 
e 30F2 . READER DSW ERROR WHEN e RELOAD ‘ 
‘ ‘ LOADING LOADER ‘ ‘~ 
@ e '_@ @ 
« 30F3 «6 CARD 2 OF LOADER DID NOT e@ = RELOAD . 
. pe LOAD. . r 
@ @ @e @ 
° 30F4& . CAN NOT CLEAR CORE - QUE TO « ‘ 
‘ _ ERROR IN ADDRESSING UPPER - mn 
& z CORE @ e @ 
@ @ @ @ 
e 30F5 . READER CHECK WHEN LOSDING e  NPRO THEN PLACE CARDS 
0 ~ MONITOR OR TEST PROGRAM « RUN OUT IN FRONT OF . 
‘ Se ¢ REMAINING DECK 4ND PRESS. 
~ ; e START. | ‘ 
e@ e e . 
° 30F6 « - MONITOR DID NOT LOAD e RELOAD . 
e e a : @ . ) 
e 30F7 CHECK SUM WHEN LOADING e RELOAD ‘s 
e 4 MONITOR e 2 
e 30F8 . READER NOT READY e MAKE READER READY ‘ 
e e e @ 
° 30F9 . INVALID INTERRUPT WHICH WILL « PRESS RESET AND START. 
e e NOT RESET e , ° e 
@ t-) : s a 
e 30FA CONSOLE PRINTER HANG UP - « FIX THE CONSOLE PRINTER « 
‘ ” BUSY WILL NOT GO OFF e OR NOP THIS WAIT F 
| *2eee2 7 
3e4**% PROGRAM TERMINATION . 
IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 4 ROUTINE 5 WILL ONLY RUN IF 
SELECTED. | 
IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. | 
- #eEeREEE 
DATE O2JAN66 O1MAY66 15NOV66  15JUN67 PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1442 TIMING TEST 


3e5ee% RESTART 


le SET SWITCHES O-7 TO Ole 

2e TURN ON SWITCH 8. 

3e SET DESIRED CONTROL IN SWITCHES 9-14. 
4e PRESS INTERRUPT REQUEST KEY. 


MEK RE a ER IH 
DATE O2JAN66 O1MAY66 15NOV66  15JUN67 
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1442 TIMING TEST 


1 


le PeTNPENANEE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
PAGE 


4o PRINTOUTS 


ALL PRINTOUTS. ARE IN THE STANDARD FORMAT. 


APPNN DORR AAAA (MESSAGE) 
OR aly | 
EPPNN OORR AAAA _ (MESSAGE) 


IDENTIFIES STATUS MESSAGES . 
| IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE ! 


WHERE 


m > 


THIS WILL BE EITHER OO FOR MESSAGES 
ORIGINATED 8Y THE MONITOR OR 

2F FOR MESSAGES ORIGINATED BY 

THIS PROGRAM 


NN IS THE MESSAGE SEQUENCE NUMBER 
RR IS THE ROUTINE NUMBER | 
AAAA 1S THE ADDRESS OF THE ROUTINE 
MESSAGE IS ANY VARIABLE INFORMATION 


4.18%% STATUS MESSAGES 


NUM PID ADRS RELF LD 





a0000 
“XKKK KXXX XXAXK AKAXXX 
THIS HESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION: FACTOR. — | 
A0001 SWS) PID 
XXXX XXXX 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. 





A2FOO OOOR AAAA 


ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION O, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND A&AAA IS aHE STARTING 
ADDRESS. 





A2FO1 ENTER MOD NUMBER 

THIS MESSAGE REQUESTS THAT THE 1442 MOD NUMBER 

BE ENTERED INTO THE PROGRAM. TO DO THIS» SET THE BIT “SWITCHES TO 
810M WHERE M © MOD NUMBER 








A2FO2 OOOR AAAA LOAD BLANKS 


LOAD THE 1442 HOPPER WITH BLANK CARDS THEN PRESS 1442 START. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOw 2191230 | 
PAGE 0004A ne 
1442 TIMING TEST : 
A2F04 OOOR AAAA LOAD PCHED CARDS : 
LOAD THE CARDS PUNCHEN BY ROUTINE 1 INTO 1442 HOPPER. THIS DECK 
WAS PUNCHED WITH A ROTATING PATTERN. IT MUST BE LOADED IN THE 2 
SAME ORDER AS PUNCHED. THERE MUST BE NO CARDS MISSING FROM THE | 
DECK. 
A2F04 OOOR AAAA LAST CARD 
THE LAST CARD INDICATOR WAS ON AT THE COMPLETION OF THE LAST 1442 | 
CONTROL OPERATION. A FEED COMMAND WAS GIVEN TO RUN OUT THE LAST 
CARD. THE ROUTINE WILL THEN TERMINATE. IF NO ROUTINE HAS BEEA 1 
SELECTED, THE PROGRAM WILL ADVANCE TO THE NEXT ROUTINE. IF A 
ROUTINE HAS BEEN SELECTED» THE PROGRAM WILL RESTART THAT ROUTINE. 
See 1 
A2F05 OOOR AAAA NRDY — PRESS 1442 START 
1 
THIS MESSAGE WILL BE PRINTED IF THE 1442 IS NOT READY FOR ANY REASON. | 
THE PROGRAM WILL LOOP WAITING FOR READY. TO CONTINUE, CLEAR ANY 
ERROR CONDITIONS AND MAKE THE 1442 READY. | 
A2F06 0001 AAAA PUNCH DELAY — X 1 
, XXXXX 
ROUTINE 1 VARIES THE TIME BETWEEN RECEIVING THE PUNCH RESPONSE AND. ] 
ISSUEING THE PUNCH DATA COMMAND. THE DELAY STARTS AT MAXIMUM AND IS 
REDUCED IN STEPS TO MINIMUM. THIS MESSAGE IDENTIFIES THE DELAY FOR 
THE NEXT 60 CARDS. X = THE DELAY INCREMENT AND XXXX EQUALS THE | { 
DELAY IN USEC. | 
| | 
A2FO7 OOOR AAAA AVG COL INTRPT TIME 
XXXXX YYYYY 
THIS MESSAGE IS PRINTED IN ROUTINES 1 AND 2 AFTER 80 CARDS HAVE BEEN 
READ OR PUNCHED, OR WHEN THE ROUTINE TERMINATES. 
| } 
XXXXX = AVERAGE TIME IN USEC BETWEEN COLUMN INTERRUPTS | 
FOR ALL CARDS READ OR PUNCHED SINCE THIS AVERAGE 
MESSACE WAS LAST PRINTED. 
YYYYY = NORMAL AVERAGE TIME IN USEC. 
SKCKEE 
i 
DATE O2JAN66 O1MAY66 15NOV66  15JUN67 PROG ID 032F-* 
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1442 TIMING TEST 


4e2%** ERROR MESSAGES 


€0001 


E0003 


E0004 


€0005 


OATE 
eC NO. 


CVvVo CUVC Oe Co Ce 





PAGE 0005 


THE OSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR THE 
SPECIFIC PROBLEM AREA. 


ERERSERERERECESERERES EEREAEEE EERE EET ESEESERESE ETHERS 








* THE 1442 DSW * 
9G ea reer ere Re ED a EE eee om one a eS - meeteme coe * 
* - a 
* BIT * 
* 0 PUNCH RESPONSE * 
* 1 READ RESPONSE + 
* 2 ERROR CHECK + 
* 3 LAST CARD ' * 
* 4 OPERATION COMPLETE * 
* 5 NOT USED * 
* 6 NOT USED * 
* 7 FEED CHECK AT READ STATION * 
* 8 NOT USED ® 
* 9 NOT USED * 
* 10 ' NOT USED * 
* 11 NOT USED * 
* 12 &=NOT USED * 
* 13 NOT USED | & 
* 14 BUSY | ce. 
* 15 NOT READY OR BUSY * 
= ; x 
euwuiecssdnenéoesenekeses00000005000000 00000sesuusees 


SWS INVLD 
XXXM 


THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PRpeRen IN CORE. : | 





OvR CORE 


THE PROGRAM WHICH THE LOADER WAS ATTE“PTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 





_ CKSUM 


A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM, 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. | 


1. A CARD 1S MISSING OR IS OUT OF SEQUENCE. 
2e THERE IS AN EXTRA CARD IN THE DECK. | 
3. THE PUNCHED INFORMATION ON THE CARD 1S NOT CORRECT. 
@~e DATA WAS LOST OR PICKED UP DUE TO A- MACHINE MALFUNCTION. 
Se DUE TU A CPL MALFUNCTIONy THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 


WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE pRCerane 





OOON XXXX | By | z 


THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 


WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE ai 


-«ILSWe THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSSI. NO ATTEMPT 1S MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST Bite . | 





O2JAN66 O1LMAY66 15NOV66 15SJUN67 | PROG ID 032F-# 
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E2F00 


- £2F0! 


E2F01 


E2FO03 


E2F04 


E2F0O5 


EOF06 


DATE 
EC NO. 


OOOR AAAA CARD NOT BLANK 


A PRE=PUNCHED CARD WAS DETECTED BY A PUNCH ROUTINE. THIS CARD WAS 
NOT PUNCHED BUT WAS REJECTED. THIS CARD WILL BE FED OUT INTO 
STACKER 1. 


OOOR AAAA | WAS S/B = STATIC DSW ERR 
XAXX- 0000 s 


A BIT, IN ADDITION TG NOT READY: WAS ON IN THE DSW WHEN IT WAS 

SENSED BEFORE GIVING A CONTROL COMMAND TO THE 1442. USE THE 

ABOVE DSW TABLE TO IDENTIFY THE BITs THEN TAKE APPROPRIATE CORRECTIVE 
ACTION. 





can “LAST OP = CCCC ee 
QOOR AAAA | WAS S/B - BUSY DSW ERR 
XXXX 0003 


THIS DSW WAS SENSED IMMEDIATELY. AFTER THE 1442.CONTROL COMMAND 
WAS IDENTIFIED BY CCCC GIVEN. THAT COMMAND SHOULD MAKE THE 1442 
BUSY AND NOT READY. NO sienehineaey SHOULD BE ON. 





| ; (ast oP -cccc 
OOOR AAAA : DSW - NO INTRPT - LEVs 
| XXXX 


NO OP COMPLETE INTERRUPT WAS RECEIVED FOLLOWING THE LAST CONTROL 
COMMAND, IDENTIFIED BY CCCC. THE COMMAND WAS RECEIVED BY 
THE 1442 IF AN EOFO2 MESSAGE WAS NOT PRINTED. 


LAST OP =~ CCCC 
OOOR AAAA _ WAS S/B —- LEVO DSW ERR 
XXXX x003 


THIS DSW WAS SENSED IN THE LEVEL ZERO INTERRUPT ROUTINE. THE 
RESPONSE FOR THE LAST CONTROL COMMAND (IDENTIFIED BY CCCC) SHOULD 
BE ON» TOGETHER WITH BUSY AND NOT REASONS 


| : | LAST OP - CCCC 
OOOR AAAA ~WAS S/B — LEV4 OSW ERR 
| XXX XBOX | | 


THIS DSW WAS SENSED IN THE LEVEL 4 INTERRUPT ROUTINE. OP COMPLETE 
BIT SHOULD BE ON. THE LAST CARD AND NOT READY ere MAY BE ON. 
ALL OTHER BiTS SHOULD BE OFF. 





‘LAST OP = PUNCH 
OOOR AAAA | WAS S/B —- oEce CK 
inks ARK 0000 © 


A PUNCH ECHO CHECK OCCURRED WHILE PUNCHING THE “LAST CARD. XXXX IS 
THE PUNCH ECHO THAT WAS READ FROM THE 1442 BUFFER REGISTER FOLLOWING 
THE PUNCH CHECK. ANY BIT ON IN THIS WORD IDENTIFIES A DESCREPANCY | 
BETWEEN THE PUNCH DIE ECHO AND THE DATA WHICH WAS TO BE PUNCHED IN 
THE COLUMN. PUNCHING IS TERMINATED WHEN THIS ERROR IS DETECTED, 
THUS, THE ERROR OCCURRED IN THE LAST COLUMN PUNCHED. IF PUNCHING 

A ROTATE PATTERN DISCARD THE CARDS PUNCHED AND RESTART THE ROUTINE} 


THIS ERROR WILL OCCUR IN ROUTINE 1 IF THE PUNCH DELAY EXCEEDS THE 
DURATION OF THE PUNCH RESPONSE TRIGGER. THIS TRIGGER SHOULD STaY 
ON FOR AT LEAST 300 USEC. 
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LAST OP = ccce 
E2Fll OOOR AAAA WAS “MAX COL - INTRPT FAST 
. Recess YYYYY 22222 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOs 2191230 18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191230 
PAGE 0006 7) ie PAGE OO06A | ) 
1442 TIMING TEST | f 1442 TIMING TEST 
y 5 ) 
2 | | | ) 3 5. COMMENTS 
| . LAST OP = CCCC 
€2F07 OOOR AAAA WAS S/B8 - ER CK ; 3 5.1%es TEST PROCEDURE 
| | XXXX 0000 oo d 3 | 
| | | a 5e1.1 TEST ORGANIZATION 
AN ERROR CHECK OCCURRED DURING THE LAST OPERATIUN. IF THE LAST | 
7 OPERATION WAS READ OR PUNCHED, THIS MESSAGE SHOULD BE FOLLOWED s) 5 THE TEST ROUTINES FOLLOW THE SAME BASIC ORGANIZATION AS THE 1442 | 
BY AN EQOFO8 MESSAGE WHICH WILL IDENTIFY THE NUMBER OF COLUMNS FUNCTION TEST. THE TIMING CAPABILITY IS PART OF THE INTERRUPT 
PROCESSED BEFORE THE ERROR WAS DETECTED. TO CONTINUE, CLEAR ALL ROUTINE. AFTER THE COMPLETION OF EACH OPERATION, THE TIMING . 
CARDS FROM THE 1442, THEN PRESS STARTs IF PUNCHING A ROTATING yy; bef RESULTS ARE AVAILABLE TO THE TES? ROUTINE FOR ANALYSIS. , | ae; 
PATTERN TO BE READ BY THE NEXT ROUTINE, DISCARD THE CARDS PUNCHED | | | : 3 
7 | AND RESTART THE ROUTINEe . . ‘ , Sele2 ERROR CHECKING ‘ 
| | a= | 4 | : , — 
~ = 
| | | 2 4 | | SAME ERROR CHECKING AS THE 1442 FUNCTION TEST WITH THE EXCEPTION 
E2F08 OOOR AAAA | WAS S/B = COL CNT ER aT 7 | THAT THE LEVEL O OSW IS NOT CHECK. 
_ XXXXX YYYYY 7 : | | ) be | ) 
| IN ADDITION, THE TIMING TEST ATTEMPTS TO FORCE PUNCH DELAY 
XXXXX IDENTIFIES THE NUMBER OF COLUMN INTERRUPTS THAT OCCURRED . ERRORS (THESE ARE DETECTED AS PUNCH CHECKS)» AND IT CALCULATES | 
DURING THE LAST OPERATION. YYYYY IDENTIFIES THE EXPECTED NUMBER 7 be THE READ AND PUNCH RESPONSE TIMES COMPARING THEM TO y 
OF INTERRUPTS. IF AN ERROR CHECK OCCURRED DURING THE LAST MIMIMUM AND MAXIMUM VALUES FOR THE APPROPRIATE 1442 MODEL. 
OPERATION (IDENTIFIED BY AN EOFO6 OR EOFOT MESSAGE), THE OPERATION | | | , 
WILL TERMINATE AT THE TIME THE ERROR OCCURRS. THUS» THIS ERROR ; ) bi 5.2*%% ROUTINE DESCRIPTION | : 5) 
MESSAGE WILL IDENTIFY THE COLUMN BEING PROCESSED WHEN THE ERROR 
WAS DETECTED. | THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 
es - 12: - SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR | 5 
| . | | are | ; IN THZ2 PROGRAM AS FOLLOWS - 
E2F09 OOOR AAAA ~~ WAS S/B COL = DATA ERR | : | 
| XXXX YYYY 00022 | y 3 le TEST SEQUENCE CONTROL ROUTINE | a 
THE DATA XXXX READS FROM COLUMN ZZ( IN DECIMAL) OOES NOT AGREE 2. NORMAL TEST ROUTINES , a 
WITH THE EXPECTED DATA YYYY FOR THAT COLUMN. CHECK CARD FOR » D | | . | 3 
CORRECT CATA. IF DATA IS CORRECTs THEN A READ ERROR OCCURRED. 3. OPTIONAL TEST ROUTINES ) 
IF THE DATA IS NOT CORRECT, A PUNCH ERROR OCCURRED. IN THE : | _ | | 
LATTER CASE, IF NO PUNCH CHECK WAS DETECTED WHILE PUNCHING THE | 18 4e TEST SUBROUTINES | | : : 3 
CARD, THE PUNCH ECHO CHECK IS NOT FUNCTIONING. : — a 
een Po 5. ERROR CONTROL ROUTINES 
I] 3 3 
LAST .OP = CCCC 6- INTERRUPT ROUTINE 
E2F10 OOOR AAAA WAS MAX COL -—- INTRPT SLOW : | | | 
: AXXXX YYYYY 22222 3182 50201 TEST SEQUENCE CONTROL ROUTINE — CNTRL So : 3 
XXXXX EQUALS THE COLUMN INTERRUPT TIME FOR THE COLUMN IDENTIFIED : THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SW1 IN THE PROGRAM 
BY 22222. THE EXPECTED MAXIMUM TIME FOR ‘THIS OPERATION oN THIS be 2 CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS TO BE RUN NEXT. — 
MODEL 1442 IS GIVEN BY YYYYY. IF A TEST ROUTINE HAS BEEN SELECTED>s 17 ESTABLISHES A TRANSFER TO 
THAT ROUTINE. IF NO ROUTINE IS SELECTEDse A TRANSFER IS ESTABLISHED 
CHECK THE ADJUSTMENT AND LUBRICATION OF THE FEED AND READ CLUTCH. Be 2 TO THE NEXT TEST ROUTINE IN SEQUENCES 
ALSO CHECK THE PUNCH INCREMENTAL DRIVE. 
aes THE ROUTINE ADDRESS TABLE (RTTBL) WHICH IS PART OF CNTRL CONTAINS 
2 THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN. THE SEQUENCE IN WHICH 


THEY ARE TO BE RUN. 


THE LAST TEST ROUTINE IN THE NORHAL SEQUENCE IS IDENTIFIED BY THE 


"y 


ry ry 


(i 


TABLE NRTN. AFTER THIS ROUTINE IS RUNe CNTRL WILL TRANSFER TO 





XXXXX EQUALS THE OLUMN INTERRUPT TIME FOR THE COLUMN IDENTIFIED a) MONITOR END AND TERMINATE THE PROGRAM. ROUTINES FOLLOWING THE Y x 
BY ZZZZZe THE EXPECTED MAXIMUM TIME FOR THIS OPERATION ON THIS 3: 3 TABLE NRTN ARE CALLED OPTIONAL TEST ROUTINES AND WILL ONLY BE RUN | ) 
MODEL 1442 IS GIVEN BY YYYYY. | | | IF SELECTED. | | | 
i = Ys oo , 
CHECK THE ADJUSTMENT AND LUBRICATION OF THE FEED AND READ CLUTCH. ce ae 3 Se2e2 NORMAL TEST ROUTINES us ae | aa a ») 
ALSO CHECK THE PUNCH INCREMENTAL DRIVE. : : 
ees | : IF NO TEST ROUTINE IS SELECTED, THESE FOUR ROUTINES WILL RUN IN 
, —o | 7,3 _ SEQUENCE THEN THE PROGRAM WILL TERRINATE y 
a4 
4; 9 ») 
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1442 TIMING TEST 


DATE 
EC NO. 


le 


Ze 


- ROUTINE. 


TEST ROUTINE 1 - DELAY PUNCH 

THIS ROUTINE PUNCHES CARDS USING DATA PREVIOUSLY SET IN THE 

DATA TABLE. THE DATA JIS ROTATED BY ONE COLUMN FOR EACH CARDO 
PUNCHED. EACH CARO IS READ AND CHECKED FOR BLANK BEFORE 

IT IS PUNCHED. THE ROUTINE PUNCHES THE FIRST 80 CARDS 

WITH A MAXIMUM PLINCH DELAY OF 330 USEC (PUNCH DELAY IS THE 

TIME BETWEEN THE PUNCH RESPONSE INTERRUPT AND THE PUNCH DATA 
COMMAND). THE DELAY 1S DECREASED BY 32 USEC. FOR EACH SUCCEED- 
ING BO CARDS.» WHEN MINIMUM DELAY IS REACHED, THE PUNCH DELAY IS 
RESET TO 330 USEC» AND THE CYCLE REPEATED UNTIL ALL CARDS IN THE 
HOPPER HAVE BEEN PUNCHED. 

IS REACHED, THE PUNCH DELAY IS RESET TO 330 USEC, AND THE CYCLE 
REPEATED UNTIL ALL CARDS IN THE HOPPER HAVE BEEN PUNCHED. 


AT THE START OF THE ROUTINE AND AT EACH CHANGE IN PUNCH DELAY, 

A MESSAGE IS PRINTED (A2F06) STATING THE PUNCH DELAY AND & PUNCH 
DELAY INCREMENT. THE DELAY IS RESET WHEN THIS INCREMENT GOES TO 
ZERO. : 


THE TIME BETWEEN COLUMN INTERRUPTS IS DETERMINED BY THE INTERRUPT 
ROUTINE. IF. THIS TIME. FALLS OUTSIDE THE FOLLOWING LIMITS, 
AN ERROR MESSAGE (E2F10 OR E2F11) 15S PRINTED. 


MODEL MIN “MAX AVG 
7 USEC USEC USEC 


12200 
6000 


14300 
7180 


6 ... 10600 
5 OR 7 5300 


AFTER PUNCHING. 80 CARDS OR AT THE COMPLETION OF THE ROUTINE, AN 
AVERAGE COLUMN TIME MESSAGE IS PRINTED SPECIFYING THE AVERAGE 
TIME SINCE THE LAST AVERAGE MESSAGE WAS PRINTED. 


TEST ROUTINE 2 — READ 

THIS ROUTINE READS THE CARDS THAT WERE PUNCHED BY ROUTINE ONE. 
THE DATA READ IS COMPARED TO THE DATA PUNCHED. IF THESE ARE 
NOT EQUAL, AN ERROR MESSAGE (E2F09) 1S PRINTED. 


THE TIME BETWEEN COLUMN INTERRUPTS IS DETERMINED BY THE INTERRUPT 
IF THIS TIME FALLS OUTSIDE THE FOLLOWING LIMITS» 


AN ERROR MESSAGE (E2F10 OR E2F11) IS PRINTED. 


MODEL = MIN MAX AVG 
USEC «USEC USEC 

1300 

1000 | 


6 900 1600 
5 oR 7. 700 1300 


AFTER READING BO CARDS OR AT THE COMPLETION OF THE ROUTINE, AN 


AVERAGE COLUMN TIME MESSAGE IS PRINTED SPECIFYING THE AVERAGE 


30 


WHILE PUNCHING A CARD. 


O2JAN66 
£15490 


TEST ROUTINE 3. 


TIME SINCE THE LAST AVERAGE MESSAGE WAS PRINTED» 
- PUNCH TIME GRAPH 


THIS TEST WILL STORE THE TIME BETWEEN PUNCH COLUMN INTERRUPTS 
ON THE NEXT CARD, IT WILL PUNCH A 
GRAPH WHICH DISPLAYS THE VARIATIONS IN COLUMN INTERRUPT TIME 
FROM COLUMN TO COLUMNe THIS PROCESS WILL BE REPEATED UNTIL 
THE LAST CARD INDICATOR IS. SENSED.) . 
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1442 TIMING TEST _ 
4G. TEST ROUTINE 4 - READ TIME GRAPH — 
THIS TEST WILL READ A BLANK CARD, STORE THE TIME BETWEEN READ 
COLUMN INTERRUPTS, THEN PUNCH A GRAPH DISPLAYING THE VARIATION. 
JIN COLUMN INTERRUPT TIME FROM COLUMN” TO COLUMN. THIS PROCESS | 
WILL BE REPEATED UNTIL THE LAST CARD INDICATOR IS SENSED. 
56203 OPTIONAL TEST ROUTINE a hp 
le TEST ROUTINE S = MODIFY. DATA 
THIS ROUTINE WILL READ ONE DATA CARD AND REPLACE THE PUNCH DATA 
‘TABLE WITH THE DATA CONTAINED ON THAT CARD. THE ROUTINE WILL 
THEN RESTART THE PROGRAM FROM ROUTINE ONE. | ee” a 
50204 TEST SUBROUTINES 
THIS SUBROUTINE PUNCHES ONE CARD THEN CHECKS FOR PUNCH ERRORS. 
2. READ a 
THIS SUBROUTINE READS ONE CARD THEN CHECKS FOR READ ERRORS. 
3. COMPARE ‘COLUMN TIME 
THIS SUBROUTINE CHECKS THAT COLUMN TIME FALLS WITHIN MINIMUM 
“AND MAXIMUM LIMITS. IT ALSO ADDS ALL COLUMN TIMES AND KEEPS 
COUNT. OF THE TOTAL NUMBER OF COLUMNS FOR CALCULATION OF THE 
COLUMN TIME AVERAGE. 
4e PRINT COLUMN INTERRUPT AVERAGE TIME 
THIS SUBROUTINE CALCULATES THE COLUMN INTERRUPT ‘TIME AVERAGE 
AND PRINTS THE AVERAGE MESSAGE™ 
5. CHECK FOR BLANKS 
THIS SUBROUTINE CHECKS EACH CARD- BEFORE IT 1S PUNCHED TO VERIFY 
THAT IT IS BLANK. 
6. GRAPH SETUP | 
THIS SUBROUTINE WILL CALCULATE A GRAPH POINT FOR EACH COLUMN 
TIME. THIS SET OF GRAPH POINTS WILL BE PUNCHED ON THE NEXT 
CARD. THE SCALE CAN BE CHANGED WITH A FUNCTION 3 BIT SWITCH 
ENTRY. | a. rh ae es 
Te READY 
THIS SUBROUTINE IS ENTERED BEFORE ANY 1442 CONTROL COMMAND 1S” 
GIVEN. IT READS THE 1442 DSW AND CHECKS IT FOR READY (ALL BITS 
OFF). ANY BIT ON OTHER THAN NOT READY (817 15) WILL BE 
IDENTIFIED BY AN E2FO] MESSAGE. IF ANY BIT 1S ONy A NRDY 
MESSAGE (A2FO5) WILL BE PRINTED. THIS ROUTINE STAYS IN A: LOOP, 
PRINTING THE NRDY MESSAGE EACH 10 SECONDS UNTIL ALL BITS IN THE 
OSW GO OFF. 
8. LAST CARD | _ 
THIS SUBROUTINE IS ENTERED AFTER AN OPERATIUN IS COMPLETED IF - 
THE LAST CARD INDICATOR WAS TURNED ON DURING THAT OPERATION. 
THE SUBROUTINE WILL FEED QUT THE LAST CARD, PRINT A MESSAGE | 
INDICATING THAT THE LAST CARD INDICATOR WAS DETECTED, THEN GO 
TO CNTRL TO TERMINATE THE ROUTINE AND ADVANCE TO THE NEXT 
‘ROUTINE. a 
DATE O2JAN66 O1MAY66 15NOV66  15JUN67 PROG 1D 032F—" 
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-5e205 ERROR CONTROL ROUTINES 


ae le 


Ze 


INTERRUPT WAIT ROUTINE 


ALL SUBROUTINES COME HERE AFTER THE START OF AN 1/0 GPERATION.. 
FROM WHICH AN INTERRUPT IS EXPECTED. THIS ROUTINE RESETS ALL 
ERROR CONTROL WORDS» SENSES AND STORES THE BUSY DSW, THEN WAITS 
IN A TIMED LOOP (AT LEAST 20 SECONDS) FOR THE OP COMPLETE 
INTERRUPT. ; . - 


IF NO OP COMPLETE INTERRUPT IS RECEIVED THE FOLLOWING ERROR 
MESSAGES ARE PRINTED. 


A. E2FO2 1S BUSY DSW ERROR 
Be E2FO3 - NO OP COMPLETE INTERRUPT 
IF OP COMPLETE INTERRUPT IS RECEIVED THIS ROUTINE WILL CHECK 


FOR PROPER PERFORMANCES OF THE OPERATION. THE FOLLOWING CHECKS 
ARE MADE AND ERROR MESSAGES PRINTED IF APPROPRIATE. — | 
A. E2FO2 IF BUSY DSW ERROR 


Be E2FO5 IF OP COMPLETE DSw ERROR 


‘Ce. E2FO8 IF INCORRECT NUMBER GF COLUMN INTERRUPTS 


THE ROUTINE WILL THEN CHECK FOR LAST CARD IF THE LAST CARD 
INDICATOR IS ON THIS ROUTINE WILL TRANSFER TO THE LAST CARD 
ROUTINE. IF NO LAST CARD THE ROUTINE WILL RETURN TO THE 1/0 


SUBROUTINE FROM WHICH IT WAS ENTERED, 
PRINT ERROR MESSAGES | 


THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE MESSAGE 
IS THE FIRST ERROR MESSAGE FOLLOWING AN 1/0 CONTROL COMMAND 
A LAST OP MESSAGE WILL PRECEED THE ERROR MESSAGE. THIS LAST 
OP MESSAGE WILL IDENTIFY THE LAST 1£/0 CONTROL OPERATION 
EXECUTED. THE ERROR MESSAGE FOLLOWING REFERS TO ERRORS 
DETECTED IN THAT OPERATION. | | 


INTERRUPT ROUTINES 


THE COLUMN INTERRUPT TIMING IS DONE IN THIS ROUTINE. THE PROGRAM 


TRANSFERS HERE ON THE FIRST COLUMN INTERRUPT. 


ALL FOLLOWING READ 


OR PUNCH RESPONSES ARE SENSED IN THIS INTERRUPT ROUTINE. THE 
ROUTINE DOES NOT BRANCH OUT OF INTERRUPT UNTIL AN OP COMPLETE 
RESPONSE IS SENSED... | | a 
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CESSES ESSERE SERESE EE SERRE SEK SEKHKKKKES SESSEERESK KSEE EKEK TESS EFS EKSE ES SESE 


CE SEEKEEESERESERSEERESRSS SECRET EES EESEEREE SE 
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DATE 


EC. NOe [ 
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'& 


* 7 

* THIS ENGINEERING CHANGE REFLECTS MAJCR | 
® CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 

* TESTS vIiLt NOT RUN BITH DIAGNCSTIC MONITOR IIe 
x ; 

* THIS TEST wILL NCT RUN wITH PREVIOUS MONITORS. 
aes | a 

* TESTS PRIOR TO EC 419643 CATED NOV 155 1966 

*# WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 

-@ MONITOR If. | | 

& 

EKEEKKAKRESECKE EKES SEEKKE ES SE SKEE 

KEK ERERHESEESE SES HESS €EKEKSE ELE SEES SELECT ESESESERE 

$e a at een oan me eee eae 

* | 1130 — 1442 READER/PUNCH TIMING TEST 

t*—— eee ae ame ae On Ge ae CED Ear ar eee ar ree eee we ee et @ Oe eee” we eer we wwe 
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TERSSCHE ESE EEEEREEHEESERESSERE SES £58 EEEEEE SEE 
EQUATE TABLE 


SSK SKERKEKKERKRSES KEKE FHKEST HH KTSESKEAFES SEL HE ER ES 
* THIS TABLE EQUATES TEST PROGKAM LABELS 
*¢ 0 THEIR EQUIVALENT DIAGNOSTIC MONITOR 
* ADDRESSES. | 
* . : , 

Kae ee + ne er 

* MONITOR ENTRY ADDRESSES 

Rm ee + ee ee rr rr re 
BEGIN EQU 4160 BEGIN. RCUTINE 


START EQU BEGIN) SUPERVISOR ROUTINE 

ERROR .EQU START 41 ERRCR LCG ROUTINE 

LOG  €EQuU ERROR+1L STATUS LOG ROUTINE 

ENG  EQU LOG+l £ND FRCUTINE 

, 3 

#--—----—--.-----+--- ——--------------—------- 

* MONI” OR CONTRCL WORD ADDRESSES 

SE ea nn a a nr rrr 

RINSw EQU END+t1l ROUTINE START SW 

ERLCK EQU END+2 LOCK ON ERROR CONTROL 

LOGBY EQU END+3 1/O BUSY Sw ADDRS 

* Bs 

¢---—------- —------—-----—------- oro 
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ROTY EQu. IL4#4l1.- CONSOLE PRINTER REQUEST 
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* 


Foe SHEEKEKES £444 ESE 


* 


2 


PID oC . 


OIL MAY66 
4154903 


KSREKKEEERSESERKEESEEESERELE 


PROGRAM CONTROL TABLE 


10326. . 


1 SNOyV66 
419643 - 


SFE SELES KEKE REKSERER ES OHEEE SEES SEES EEE ES ESS KEBE 


PROGRAM ID 


os, 


PART NO. 


PAGE 


32F00030 


32F00040 
32F00050 
32F00050 
32FU0070 
32F00080 
32F00090 


3200100 | 
32F00110 | 


32£00120 


32F00130 


32F00140 
32F00150 
32F00160 
32F00170 
32F00180 


32F00190 © 


32F00200 
32F00210 
32F00220 
32F00230 
32F00240 
32F00250 


32F00260 | 


32F00270 


32F00280 
32F00290_ 


32F00300 


32F00310__ 
32F00320 
32F00330 
32F00340 


32F00350 
32F00360 
32F00370 
32F00380 
32F00390 
32F00400 
32F00410 
32F00420 


32F 00430 © 


3ZF 00440 
32F00450 
32F00460 


32F00470 
32F00480 


32F00490 
32F00500 
32F00510 
32F00520 


32F00530 — 
32F00540 © 


32FC0550 


32F00560_ 
32FG0570 | 
32F00580 | 
22F00590 | 
32F00600 

32F00610 

32F00620 
32F00630° 


32F00640 


32F00650 | 
32F00660 | 
32FO0670 | 
32F00680 


32F00690 


32F00700 - 


PROG JD 


PAGE 


enieee 


032F-2 
l 


es 





: 
if 
: 
- 
t 
= 
3 
3 
€ 
7 
= 
é 
t ; 
? 
| = 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM. 


050D 


OSDE 


O50F 
O5E0 
O5E1 
O5€2 
05E3 
O5E4 


O5E5 


O5E&6 
OSE? 


OSEB 
OSEC 
OSEC 
OSEF 
OSFl 
O5F3 
O5F5 
OSF7 
OSF9 


O5F6 


OSFC 


OSFE 
OSFF 
0601 


0603 
0604 
0606 
0608 
0609 


0608 
060D 
C60E 
O60F 


0610 


0611 


0612: 


0613 


0615 


0617 


0618 
0619 


O61A 


061C 
O61E- 


0620 
0621 
0623 
0625 


0627 
0629 


Oo2A 


O062C: 


DATE 


 OoOrrOCco0ood 


Ol 


01 


00° 


1 
00 


ol 


Ol 


EC NO. 


1442 TIMING TEST 


0000 
G0v0 
0006 
000U 
0000 
0000 
O5E5 
O5SEB 
0000 


0000 
FREE 


44800160 
o50C 


6100 
69F0 
6D000683 
6590096E 
6DOU01TA 
65000993 


60000158 
C40006E2 
44200654 


~ COE5 
~4C200605 


6101 


66000AA9 


4400 09F 2 


CooD 
4C€2005c5 
65000603 
6SDC 
44800161 


04000682 
6100 
69D2 


~ 0840 


0841 
7101 


1004 


4C280610 


_ T500F90U 
1001 
7017 


6376 © 


~ 6F000973 
67000090. 


6FOU097TD 
6309 

6FOOU6ES 
67007117 
6FOU09AB 


—6F0009B5 


6317 
oFOO0CES 


67000057 


02 JANG6 
415490 


RID 
RAD 


Swo 


Swl 
SW2 
Sw3 


MLSCF 


* 
Pa 


* 
BGIN 


+ 


DC 


oc 


oc 
DC 
DC 
DC 
oC 
OC . 
DC 
DC 
OC 


BSI 
CC 


I 


10000 
40000 
40000 
40000 
40000 
40000 
STRT 

STRT 


e-t 


+-—* 
JEFFF 


ROUTINE 1D 
RDUTINE ADORS 


PROGRAM CONTROL 


ROUTINE SELECTION 


RESTART ADDRESS 


SET BY WAIT RTN AND MON 


SET BY CNTRL AND INRTPT 
TERMINATOR 


FUE EREEEESE 8EEEEEES HERE 6 OEEEEEE SESE EEEEEEESS 


TEST INITIALIZATION 


BEGIN 


PID 


SKEKKKRE KTH KKSKKKES SEKEKTKRESK SKS SGSKSE KS AKEK SKS 


PCT ADDRESS 


* START OF TEST ANC SINGLE PASS INITIALIZATION 


* 
STRT 


STRT1 


SP] | 


LOX 


tDx 
STX 
STX 
LDX 
STX 
LOX 


STX 


LD 
BSI 


LD 


BSC 
LDX 
LOX 
BSI 


LD 

BSC 
LDx 
STX 


—~BSI 


STO | 


LDX 
SIX 
X10 
x10 
MDX 


SLA 


5SC 


MDX 
/ MDX. 


MDX 


STX 


DX. 


STX 
LOX 
STX 
LDX 


STX 


~STX 


LOX 
STX 


‘LOX 


OLMAY 606 
#154908 


1 

l 
L1 
Ll 
L1 
ae | 
Ll 
L 


3 
L3 
L3 


13 


3 
L3 
L3 
L3 
i3 

3 
L3 
L3 


O : 

RID 
PONLY 
INTR 
ILO . 
INTR2 
IL4-2 
MODONM 
CNTRL oZ 


— $W2 


SP oz 

1 : 

AMOD 
TYPE 


 $e2 
STRT,Z 
~STRT1 


MLSUF 


START 


MODNM 
0 

Su2 
TYP 
SENTY 
i 


4 
SP1,¢4¢2Z 
-4/700 
*«4+)]. 
MOD 
118 
$?PD1+1 
144 ~— 
SPD2+1 


9 


PDMAX. 
47117 
DLPCH 
SPD3 
23.6 23° 
DINCR. 
135 


1 5NOV66. 
419643 


SET TO START WITH 
FIRST ROUTINE 
RESET PUNCH CNLY SW 


STO INTERRUPT TRANSFER 


VECTOR AODRESSES 


CK FOR MOD NUM ENTRY 
BR IF MCD NUM ENTERED 


CHECK FCR MOG NUMBER © 
BR IF MCD NUMBER ENTERED 


PRINT -— ENTER MOD NUMBER 


LOGP UNTIL NUMBER ENTERED 


RETURN TO THE MONITCR 
TO ALLCW MSG TO PRINT 


STO MOO NUP . 


CLEAR Sw2 


SET NEW BASE TIME 


SET FOR 9 PUNCH 


* DELAY. INCREMENTS 


SET INCR TIME TO 23 USEC 


PART NO- 


PAGE 


32F00710 
32FO0T20 


32F00730 © 
- 32F-00740 


32F00750 
32F00760 
32F09770 
32F00780 
32F00790 
32F00800 
32F00810 
32F00820 
32F00830 . 
32F00840 
32F00850 
32F00860 
32F00870 


32F00880 > 


32F00890. 
32F00900 . 
32F00910 


32F00920 | 


32F 00930 
32F00940 
32F00950 . 
32F00960 
32F00970 


32F090980 
32F00990 | 


32F01000 


32F01010 | 


32F01020. 
3ZF01030 


32F01040 | 


32F—01050 
32F01060 


32€01079. 


32F01980 
32F01090 
32F01100 
32F01110 


32F011206 — 


32F01130 
32F01140 | 
32F01150 
32F01160 
32F01170 
32F01180 
32F01190 
32F01200 
32FC1210 
32F01220 


32F01230 © 
32F01240 — 


32F023250. 
32F01260 
32F01270° 


32F01280 — 
32F01290 | 
32F01300 


32F01310 
32F01320 


32F01330 — 
32F01340 | 
32F01350 — 
32F01360 . 
32F01370 - 
32F01380. 


PROG ID 
PAGE 





2191228 
1A 


032F-2 
1A 
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- O62E. 


0630 
0631 
0632 
0633 
0634 
0036 
0637 


0638 


063A 


063C 
063C 


- 06O3F 
~ 0640 
0642 
- 0643 
- 0645 


0646 


0648 


0649 
064A 
064C 
0604D 


(O64E 


~ 0650 


0650 
0651 
0652 
0653 


0654 
0655 
0656 


0658 
065A 
065B 
065D 
O65E 
0660 


0662 
0664 
O66€ 


0667 


06609 
066 B 
966D 
O66F 
0671 
0673 


06075 
0676 


CATE 


Ol. 


0 
8) 
0 
0 
0 
0 
0 


Ol 
Ol 
O 
01 
©) 
01 
e) 
Ol 
0 
ol 
0 


ooocoe 
pa 


oc o-~ 


- €C NO}. 


1442 TIMING TEST 


oOFOUUGES6 


C051 
100C 
180C 
9051 
4€200638 
684C 
401C 


940006 84 
4€C200649 
C&5F 
DCOOCI1e 
C83E | 
DCO00S14 
C03D 
D4000AU2 
C038 
D400VA0 3 
4006 


903A 
44150654 


1810 


DO93 
709C 


0000 
0652 
0900 
0500 
OFO] 


0000 
COBA 
4C080662 


D0400050D 
SOLA 
4C 060669 
1810 
D400U5E0 
D400050D 


74010500 
C40005DD 
S00F | 


44800164... 
 * 


658005DD 
C5000676 
D400055E 
D4Q0005E6 
D4000165 
44800161 


0005 
0004 


MOD. 


. SRA. 


STX. 
BSE 


_ MOD6 


- STX 


SLA 


BSC 


~ BSC 
- LOD 


STO 


—-LDO 


LO 


STD 


—$To0 


MOD 7. 


STO 
BSI 


MOX 


O2JANG6G 


415490 


* 
CNTRL OC 
LO 
BSC 
CNIO STO 
S 
, BSC 
: SRA 
STO 
STO 
.* | 
_CN20 ADK 
LD 
a 
_ BSI 
CN3Z0 LDX 
-. » LO, 
STO. 
STO 
STO . 
BS) 
_RIDCK. DC 
_ RTNOM DC 
ae 
OLMAY 66 
4154908 


TYP 


 SENTY 


& 


x 


L3 


ADs xcs, 


PDBAS 


MODONM 
32... 


12. 
“FIVE 


MOD6,2 


- PONLY : 


‘ONE 
MODT 2 
POTM 


PC MAX 


_ ROT 


RDMAX 
-POAVG 
 PAVG 


-ROAVG 


~ RAVG 
. CNTRL 


CNE 


_ CNTRL o+- 


16 
Sw2 
STRT 


O.. 


SENTY 


40900 
40500 
/OFO1 


LD THE MOD NUMBER 


IF MOD SET Ci'TRL TO 
_-, RUN PUNCH. RTN ONLY 


CHECK FCR MOCO 


IF MOD6 SET FOR 
MOD6 TIMING 


CHECK FCR MOD7 


IF NOT MGO7 MOD NUMBER 
ERROR. GO REQUEST 
NEw MCC NUMBER 


CREE HES ERE EE EKE SHS CHEE EERE EEE OTE ES EE ES SES 


SEQUENCE CCNTRGL ROUTINE 


| EEE ER KES EES KES SKE SKE KES AE SARE HEE ERLE SES ES 


* THIS ROUTINE CHECKS SWITCHES AND CONTROLS 
* SEQUENCE IN WHICH TEST ROUTINES ARE RUN. 


* 


al a a ol 


a 


a 


“40000 | 


Swi 
CN20 > + 


RID. 


 RIDCK © 
CN30%+ 


16 
Swl 
RIO 


RIDO,1 


RIO oe 
RTNOM | 
END,-Z 


RIC 


RITBL-1 


RAD. 
ML SCF 41 


~ RTNSw& 


START 


BR IF NG RTN SELECTE 


SAVE NEW RTN NUMBER 


BR IF VALIC RTN 


IF INVALID RTN GO 
TO RTN ONE 


ADV TO NEXT RTN 


CHECK FGR END OF 


NCRMAL SECUENCE ~ +] 


ENC OF PROGRAM 


XR1=NEW ROUTINE NUMBER 
FETCH RETURN ADRS 


STCRE NEW RTN ACORS 


SET MLSCF FOR RETURN 


SET RTN START Sh. 


GO TO MCNITOR- 


LRIN-RITKL41 —— 
NRIN-RITBL4L 6 “22 


1 5SNOV66 
419643 


Ses 


) 


ROUTINE, ADDRESS TABLE . 


PART NO. 2191228 
2 


PAGE 


-.32F01390 
_ 32F01400 
' 32F01410 
| 32F01420 
-32F01430 
_ 32F01440 
| 32F01450 
_ 32F01460 
- 32F01470 
. 32F01480 

32F01490 


32F01500 


- 32F01510 
-32F01520 


32F01530 


32F01540 


32F01550 
32F01560 


.32F01570 
_ 32F01580 
' 32F01590 


32F01600 


.32F01610 


32F01620 


. 32F01630 


32F01640 
32F01650 
32F01660 
32F-01670 


—32F01680 


32F01690 
32F01700 


32F01710 
32F01720 


32F01730 


_ 32F01740 
-32F01750 
32F01760 


32F01770 


32F01780 
32F01790 
.32F01800 
32F01810 


32F01820 
32F01830 
32F01840 
32F01850 


.32F01860 
32F01870 


32F01880 


32FU1890 


32F01900 
32F01910 
32F01920 


_32F01930 
32F01940 
_32F01950 


32F01960 


-32F01970 


32F01980 
32F01990 


- 32F02000 
_ 32F02010 
_ 32F02020 
-°32F02030 
' 32F020640 
-32F02050 
__32F02060 


PROG ID 
PAGE 


O32F-2 
2 
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~<Q67T7 
0678 
 u6T9 
“OOTA 
~O07TB- 


~ Q67C. 
— OoTC 
0670: 
~ Q67E 
— COTF 
“0680 
* 0681 


“0682 


0683 
0684 


0685 


0686 
0687 
0689 
068B 


~ G68BC 
O6BE- 


0690 
0691 


0692 


— 0693 


0694 
0696 
0697 
C698 
O69A 


~~ 069C 
0695 


O69E 
O6A0 


O6Al 


ee 


eoo00o0°o 


cCooed 


ec ooeooo0ocoo 


eooo°c.,udc 
: p= 


Ol 


ol 


1442 TIMING TEST 


* 0686 | 
 O6ET) 
0721 
— O73C 
OTS2 


0000 — 

~-37DC 
(2968 
0640 
0384 

— 2FA8 
0514: 


0000 
0000 


0001 


0005 


- 6102" 


66000A72 
440G09F2 
1040 | 

DCO000618 


- D40U081A 


C053 


—DO4F 


684F . 


615U 
C500U0AD2 
1804. 
1004 
D5V0U0AD2 


-— D500GK22 
-T1FF 


T0F6 


65000AL3 
6927 


C400056 1 


~100C 


180C 
4820 
DO3A 


74000€85 
‘T002 
-4@49007D7 


C034 


02 JAN66 
415490 


Toll 


~—— ames > ED cee See ee ee ee ee ee ee eee ee ee oe om ee Oe ee ow en ee eee ee ee ee eee 


RTTBL C 


NRIT™N © 
x 


< 
* 


POTM: — 


ROTM 


P6AVG - 
R6AVG 
« 
MOONM 
PONLY 
ONE 
FIVE 
* 


- 


* 


+ 


LRTIN | 


DC 


TSTO1 


'-TST02 


~ 1442 MODEL 


ge hs 
14300 


TSTO3 
“<TSTO5 


10600 


~ 1600 


900 
~ 12200 
~°1300 


Me Oe 


-* 


DELAY PUNCH DATA 
REAC ANC CCMPARE 
GRAPH PUNCH TIME 
GRAPH READ TIME 
MCDIFY DATA 


6 COLUMN IATRPT TIMES 


“MIN PUNCH TIME: 


MAX READ TIME 
MIN READ TIME 
AVG PUNCH TIME 
AVG READ TIME 


MOD NUM + SPEED Sw 
PUNCH CNLY Sw 


SRERKKEREKKKKKETKSKESKKKSEKHEKKKKKKSEKSSKEKE CERES 


TEST ROUTINE O01 - DELAY PUNCH 
WRK RS RAK SE KEKE SHS SERS KKK KKH AEKE RETK SKA S | 


THIS ROUTINE PUNCHES CARDS USING DATA 
PREVIOUSLY SET IN THE CATA TABLE. 
THE FIRST 830 CARDS WITH MAXINUM PUNCH DELAY. | 
- 32F02360 


THE DELAY ES THEN CECREASEC ONE INCREMENT 


FOR EACH 8U CARDS PUNCHED. 


PUNCH CCLUMN 


INTERRUPT TIME ES ALSG CHECKED. 


LDX 


‘LDX 


TO10 


BSI 
SLT 
STO 
sto 


LD 
STO. 


STX 


LOX 


SRA 


SLA 
STG 
STC 
MDX 


~ MDX 


‘TO1l2 


x. 


~ T013 


LOX 


STX 


LD 
SLA 


“SRA 


8SC 


STO 


MDX 


' MDX 


O1MAY6 
415490 


BSI 


to 


6 
fe) 


| 
L2 
L 


L 
tL 


2 
ALDBK 
TYPE 


32 


TAVG 
AVGCT 


--PDMAX 


PDLAY 
PDWAS 
8U 
PDATA-1 
4 ‘ 


4. 
PDATA-1 
PDATA+T79 
-1 


-TOLL+1 


~PDATA 
—-T0144+1 | 


Sh2 


12 


12 
Z 


. PDLAY 


PCNLY 


#42 
CKBLK 


 PDLAY 


1 SNOV56 
419643 


PRINT MSG- LOAC BLANKS 


RESET PUNCH DELAY 


INITIALIZE PUNCH TABLE 


CLEAR TERM BITS | 


STO IN IMAGE TABLE 


SET FOR START. OF 
~~ ROTATE PATTERN 


CK SW2 FOR CCNSTANT CELAY 
CLEAR HIGH GRDER BITS 


SKIP IF NOT MCD 


CK FOR BLANK CARC 


IT PUNCHES 


PART NO. 


PAGE 


32FO20T70 
"32F02080 


32F02090 


- 32F02100 
~ 32F02110 
. :32F02120 
- 32F02130 
- 32F02140 


32FO02150 


32F02160 
— 32F02170 
- 32F02180 
- 32F02190 
32F02200 
-32F02210 


32FU2220 


~ 32F02230 
-.32F02240 
~ 32F02250 
 32F02260 
 32F022T70 


32F02280 
32F02290 
32F02300 


. 32F02310 


32F02320 


- 32F02330 


32F 02340 
32F02350 


32F02370 
32F02380 
32F02390 
32F02400 
32F02410 
32F92420 
32F02430 
32F02440 
32F02450 


32F02460 | 


32F02470 
32F02480 
32FO02499 
32F02500 
32F02510 


'. 32F02520 


32F02530 


| 32F02540 
— 32F02550 
_ 32F02560 
| 32F02570 
. 32F02580 


32F02590 
32—F 02600 


— 32F62610 
 32F02620 


32F02630 
32F02640 
32F02650 
32F02660 
32F02670 
32F02680 


32F02690 
- 32F02700 
32F02710. 
- 32F02720 
- 32F02730 
32F02740 


PROG ID 


PAGE 


2191228 
2A 


032F-2 
2A 
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1442 TIMING. TEST — 


O6AD 
O6AE 
0680 
0682 
0683 
0685 
0687 
C6B8 
0689 
O6BA 
0666 
0680 
O6BE 
O6C G 
06C 1 
06C3 


06C5 
06C7 
06C9 


06cB 


o6CcD 
O6CE 
O6CF 


06D 
06D3 
0604 


0605. 


0607 
06DS 


O6DA — 


OoDB 


06D 
OoDF 
O6EO 


O6E 1 
O6E2 
06E3 


06E4 


O6E5 


O6E6 O 


O6E7 
C6EB 
OOEA 
O6EB 


O6ED 


CATE: 
€C NO. 


01 


ol 


Ol 


ceco oo 


01 


01 
ol 


415490 


FO34 EOR PDWAS IF PUNCH DELAY CHANGED 
4C1&06C7  8SC L TOl4s4+- PRINT MSG 
678006E 1 LOX 13 PDLAY XR3=PUNCH CELAY FACTOR 
682F STX 3 POWAS. | SAVE LAST PUNCH. CELAY 
CTOOOAC 3 LD .L3 ADFCT4#2. #4«x°44LD 1053 CODE | 
D4000AC 1 $TO Lt ADFCT - §TC DLY FACT CODE IN MSG 
CU2D LO . DINCR . LO PNCH OLY INCR 
A028 4 -PDLAY MULT BY PNCH DLY FACTOR 
1090 SLT. 16 - ... | 
8028 A -PDBAS _- ADD PNCH DELAY BASE. 
D4000AU0 STO Lt MAXPD SET MAX PNCH DLY IN MSG 
6106 LDX lo. -: MSG NUMBER 
66000ABA LDX t2 APDLY 
6301 Lox 31 
6FOOCSFD STxX 3 SMSG+2 SET MSG DATA CONTROL 
440009F 2 BSI] t TYPE . PRINT MSG-— PUNCH DELAY 
* 
oC O0008FD STX Lt cLooP SET LOGP ADORS 
67000000 TOl® LOX L3 *-* SET TO. PUNCH DATA 
44000765 BSI] t PUNCH . 
* : 7 
44000796 BSI bk COMPR CCMPARE COL INTRPT TIMES 
0912 DC _  PCMAX 7 
0913. Ha  PCMIN 
#4000822 BSI] bk LOCK CK FOR LOCK CN FUNCTION 
: re 
74)106C8 MOX L TO144#1l9l ADV PUNCH ADDRS 
COF4 Lp TOl4+1 .-- CK FOR END OF -PUNCH 
900E 5 ENDPD DATA TABLE 
4C08 06A1 BSC LL TOlL3s4+ CONTINUE If NOT ENC 
- 
* DEC PUNCH DELAY THEN RESTART 
+ PUNCH PATTERN 
* A 
C40005DF LD Lt Swo- , . 
1009 S_A 9 LOCK AT FORCE tGG Sw 
6306 LDX 3 6 2 4 SET MSG DATA CONTROL 
441007C6 BSI L TYAVGs- PRIAT AVG COL TIME MSG 
om & 
74FFO6E1 MOX LL POLAY,-l 
TOBE MOXx Tol2 
TOAF MDX TO10 If ZERC RESET 
, & 
0000 PDLAY DC *-% PUNCH DELAY FACTOR 
0000 POwAS DC e.-% LAST PUNCH DELAY SAVED 
0B22 ENDPD DC PDATA+T79 : 
0004 PDMAX DC 4 MAX PUNCH DELAY INCR 
. 
7 : 
0025 DINCR DC 37 
& 
. 00389 PDBAS OC 185 
& 
* $ 3 | : 
ESKKEES I SHE EKETE ESE SERESEEKER SESE FEES OEEESETES 
* ‘TEST ROUTINE O02 — READ AND COMPARE 
SHESKSES Sc HEKEKSKERSESKSE EEKE SHE SKEKREK SE SES KEKE SE SES 
* THIS ROUTINE READS THE CARD WHICH WERE 
+ PUNCHED BY ROUTINE ONE. IT COMPARE THE DATA 
* WITH THE PUNCH DATA. IT ALSO CHECK THE READ 
* COLUMN INTERRUPT. TIME. 
Gm ee we 2 ee ee ee a = wn ee ee we eer ere 
* : 
CC9B TSToO2 LO -PONLY SKIP IF NOT #OD 
44200654 BSI t CNTRL»Z — BR IF MED 
6103 Lox 13... -SET MSG NUMBER . 
66000AB2 LOX 2 ALPC | 
440009F 2 BSI t TvyPE PRINT #SG- LOAD PNCHC COS 
O2JAN66 Ol AY 66 15NOV66— 
4154908 @ 19643 


PART 
PAGE 


32F02750.. — 
32F02760 | 


32FO02770 


32F02780. 


32F02790 


32F02800 | 


32F02810 


32F02820.__ 


32F02830 
32F02640 


32F02850_ . 


32F02660 


32F02870. 


32F02880 
32F02890 
32F02900 
32F02910 
32F02920 


32F02930 


32F02940 
32F02950 
32F02960 
32F02970 


32F02980 | 


32F02990 
32F03000 


32F03010 — 
32F 03020 | 


32F03030 


32F03040 


32F03050 
32F 03060 


32FO3070 — 


32F03080 
32F03090 
32F03100 
32F03110 
32F03120 
32F03130 
32F03140 


32F03150 
32F03160 © 
32FO3170 | 
32F03180 


32F03190 
32F03200 
32F03210 


. B2F03220 . 
32F03230 


32F03240 
32F03250 
32F03260 
32F 03270 
32F03280 


32F03290 


32F03300 
32F03310 
32F03320 
32F03330 
32F03340 


32F-03350 | 


32F03360 
32F03370 
32F03380 
32F03390 
32F- 03400 


32F 03410 | 


32F03420 


PROG ID 


PAGE 


NO. 


2191228 
3 


- 032F-2 
oa 


e9 


“4 | ne 


leet ett tent od 


te ~ 


«2 


a ‘. ie 
ee, | ae 
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1442 TIMING 


O6OEF 
C6FO 
O6F 2 


U6F4 
O6F 6 


O6F7 


O6F9 
O6rA 


OoFC. 


OoFD 
U6F F 
o701 
0702 
0703 


0705" 


0707 
C709 


OT0A 
O7T0C 
O7OE 


0710 
0712 
0713 


0714 
0716 
0717 
0718 


O71A 
U71C 
071D 
O71E 
0720 


0721 
0722 
0724 


0726 
C727 


0729 
O72A 
o72C 
072D 
OT2E 
0730 
OT32 
0754 


01 
01 
O1 


Ol 


01 


Ol 


01 


O01 


01 
ol 


Ol 


01 


01 
Ol 
ol 
Ol 


DATE | 
EC NO. 


1OAO. 
DC000618 


D400C51A 


65000A02 
6907 


44000784 


1810 
D40008E4 
6101. 


C5000000 
60000918 
1804 
1004 
D400090UF 
F 500UB74 
442008 8B 
7101 


C4000918 
940U090C 
4C2606FD 


44000796 
0914 
OS15 


7401 06FE 
COE7 
SOCB 
4C2806F7 


C40005DF 
1009 
630A | 
441007C6 
70D3 


6102 
660U0A72 
440009F 2 


1810 
D4¢00U6E 1 


6150 
D50U0B74 
TIFF 
TOFC 
670U0875 
44000765 
6CO008FD 


6T8O0A02 


02 JAN66 


415490 


TEST. 





419643 





THE 1130 SYSTEM 


SLT. 32 
STD tL TAVG 
STG. t AVGCT | 
n , 
TO21 LOX .L1 PDATA-1 SET FOR START OF PATTERN 
STX 1 TO2Z3+1 
* 
TO22 BSI Lt READ 
«* 
SRA 16 meee : 
STO Lt M SET FOR FIRST ERROR © 
tDx 11 XR3=COLUMN COUNT. 
< 
To23 tO Lil *-* LD CATA. PUNCHED 
STx £1 COL STO COLUMN CCUNT 
SRA 4 CLEAR STOP PUNCH BIT 
SLA 4 ? 
STO L DATA+1 STG DATA S/B 
EOR Ll RTBL CCMPARE WITH DATA READ 
BSI L ERR9,Z BR IF ERRGR 
MDX 11. ACV TO NEXT COLUMN 
= | 
tO ct CCL CHECK FCR LAST CCL REAC 
S t cCOLCT | 
BSC Lb T0239+2Z LCCP UNTIL LAST COL 
: | aa 
TO24 BSI Lt COMPR COMPARE COL INTRPT TIMES 
OC — RDMAX 
DC . RDMIN 
x 
MDX L TO23+1,1 ADV COMPARE ADRS 
LD T0231 CK FOR END OF TABLE 
S ENDPD : ae 
BSC L TO22etZ CONTINUE TO ENC CF PATTERN 
Pa , 
LD Lt Swo oe ek 
SLA. 9 LOCK AT FORCE LOG Sw 
LOx 3 ZA SET MSG DATA CCNTRCL 
BSI Lb TYAVGe- PRINT AVG COL TIME MSG 
MD X To21 REINITIALIZE 
x 
ECKKKESKLEK KKK S KS EEESESKEEKKKKECESE SHEESH SEKSE 
co TEST ROUTINE 03 — PUNCH TIME GRAPH 
KEK EERE EERE CRETE RES REESE EERE EES COKE SE EESES EE 
* THIS TEST wILL STORE THE TIME BETWEEN PUNCH 
* COLUMN INTERRUPTS WHILE PUNCHING A CARD. ON 
* THE NEXT CARD IT wILL PUNCH A GRAPH WHICH 
* DISPLAYS THE VARIATION IN COLUMN INT TIME FRM 
% COLUMN TO COLUMN. THIS PRCCESS wILt BE 
* REPEATED UNTIL THE LAST CARD INDICATOR IS 
* SENSED. 
acta ee es 
—_ : 
TSTO3 LDX 12 
 LDx L2 ALDBK | — 
BSI lL TYPE PRINT MSG- LOAD BLANKS 
& 
SRA 16 . 
STO tt PDLAY KESET PUNCH DELAY 
x 
 .LDx 1 80 
TOo31l STO L1.RTBL 
MDx 1-1 
MOX To31l 
LOX. L3 RTBLEL SET TO PUNCH BLANKS 
. BSE LL PUNCH | 
To32 STX t LOOP SET LOOP ACORS 
LDxX 13 PAVG 
OIMAY66 1LSNOV66 
— 4154908 


PART 
PAGE 


32F03430. | 
32F03440 


32F03450 


'32F03460 


32F03470 


32F03480 


32F03490 


32F03500 | 
32F03510 

_ 32F03520 | 
-. 32F03530 


32F03540 


32F03550 — 
32F03560 


32F03570 
32F03580 
32F03590 


32F03600 © 


32F03610 
32F03620 
32F03630 
32F03640 
32F03650 
32F03660 
32F03670 
32F03680 
32F03690 
32F03700 
32F03710 
32F03720 


32F03730 . 
32F03740 


32F03750 
32F03760 
32F03770 
32F03780 


32F03790 | 


32F03800 
32F03810 
32F0 3820 


32F03830 | 


32F 03840 
32F03850 
32—-03860 
32F03870 
32F03880 


32F03890_ 


32F03900 


- 32F03910 
32F03920 


32F03930 
32F03940 
32F03950 
32F03960 
32F03970 
32F03980 
32F03990 
32F04000 


32F04010 — 


32F04020 
32F04030 
32F04040 


32F04050° 


32F04060 
32F04070 
32F04080 
32F04090 
32F 04100 


PROG I0 


PAGE 


NO. 





2191228 
3A 


032F-2 
3A 








IBM MAINTENANCE. DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


(1442 TIMING 


0764 C 


0765 C 
0766 QO] 
C768 O 
O769 O 
O764 VU 


0766 Ol 


O76D 0 


O76E Ol 
O770 Ol 


O772 O01 


0774 0) 
0776 0 
0777 0 
0778 Ol 
O77A 01 


-O77C Ol 
O77E O 
OT7F O 


0780 OL 


0782 Ol 


0784 0 
0785 01 


0787 01 
0789 O01 


0788 0. 


O78C Ol 


O78F O° 
—O78F O02 


o791 Ol 


0793 Q1 


0795 0 


0796 0 


CATE 


‘EC (NG. 


0000 


0000 
6FO000960 
T34F 
6BFA 
C300 


ECOUCE21 
D300 


4400056 8 
65000A5F 


- 60000903 


oCOOO08ES 
6150 
OBEA 


44000919 © 
4C9U08FD 


‘€4800764 


1804 


(100% 


D4800764 


4C800765 


0000, 
44000988 
65000A5C 


‘6D000903 


1010 
D40008E6 


6150 


OCOUGT60 
44000919 


4CAB0T84 
TOEF 


‘0000 | 


O2JANGE 


415496 


TEST 


prERR DC *-+ 
enerenrerererersvsrerrsrrretstresteret srt. 
* PUNCH. 
REKESKSEKKREKK SEL KKK SKS SKRKESKKSPE KEK KEE SESKESKSKE 
* THIS SUBROUTINE PUNCHES ONE CARD 
* THEN CHECKS FGR PUNCH ERRCRS 
* THE ADDRESS OF The PUNCH DATA TABLE MUST BE. 
* IN XRS UPON ENTRY.«. var 
Wee we en ee ee ee re we a ee eo ee ee ee ee 
* - © ube de 
PUNCH. OC . oo ae te ells Be 
STX L3 COLPC SET TG PUNCH IST COL 
MD XK 3 79 SET TERMINATOR IN 
ST 3 PTERM PUNCH DATA 
LO 3 0 
OR it KoOoOo8 
STo 3 0 
x 
BSI L READY CK FOR READY 
LDx Ll APCH | 
STx Ll OP 2 ts, as te 
STX L -RPSW SET RD/PCH SW TO PCH 
LOX 1 80 SET COL COUNT | | 
X10 STPCH > START PUNCH 
BSi L wAIT wAIT FCR INTERRUPT 
BSC I LOOP,- alee © ; 
x Eo ‘ 
LD. I. PTERM REMCVE TERMINATOR 
SRA 4 
SLA 4 
S10 | PTERM 
* a : : 
BSG I> PUNCH RETURN 
* 
aa ac i a ala a alias 
* READ — 
SEE EEER AUER ER SES EES AERESES EEEER EER EEE EEEEE 
* THIS SUBROUTINE READS ONE CARD THEN 
* CHECKS FOR READ ERRORS. 
WY ne ne ee a a ee ne ee ee ee es eo oe we 
*& : 
READ DC *-* 
BSI & READY CHECK FCR READY. . 
“LDX Ll ARD 
STX Ll OP 
SLA 0 16 ; | 
STO L_ RPSw SET RO/PCH Sw TO RD 
LDX 1 80 SET COL COUNT 
~ XIO lL sTRod START READ 
BSI Ct WAIT WAIT FCR INTERRUPT 
‘ | 
BSC I READ,+tZ ' RETURN 
MDX READ+1 
- ; 
x 


* 


SEKKKSEKRKSKEAKHKEKKEKSKE SKKKE KEEL SHER KSEKE TCE KKE KES ESE 


i ~ COMPARE COLUMN TIME | 
che asecaseeseanseaesesesoseeesesenseeneeeeess 


* THIS SUBROUTINE CHECKS THAT COLUMN TIME 
+ FALLS wITHIN MINIMUM AND MAXIMUN LIMITS. 
* ra IT ALSO ADDS ALL CCGLUMA TIMES AND KEEPS 
* - COUNT OF THE NUMBER COLUMAS FCR . 

* - CALCULATION GF COLUMN TIME. AVERAGE. 

= aS SP tern SEE 

COMPR DC. _ ¥=8 

O1MAY 66 1 SNOV66 

4154908 419643 


PART 
PAGE 


°-32F04790 
- 32F04800 


32F04810 
32F04820 


32F 04830 


32F04850 


_ 32F04860 


32F04870 
32F04880 


_ 32F 04890 


32F04900 
32F04910 
32F04920 


' 32F04930 


32F04940 
32F04950 
32F04960 
32F049T70 
32F04980 
32F04990 
32F05000 
32F05010 
32F05020 
32F05030 
32F05040 
32F05050 


- 32F05060 


32F05070 


-. 32F05080 
-32F05090 


32F05100 


- 32F05110 
 32F05120 
. 32F05130 
_ , 32F05140 
32F05150 


32F05160 


~ 32F05170 


32FC5180 
32F05190 
32F05200 


— .32F05210 
- 32F05220 


32F05230 
32F05240 
32F05250 


-32F05260 


32F05270 
32F05280 


_32F05290 
.32F05300 


32F05310 
32F05320 
32F05330 
32F05340 
32F05350 
32F05360 


-32F05370 
 32F05380 
32F05390 


32F05400 


.32F05410 


32F05420 


_ 32F 05430 
" 32F05440 
_: 32F05450 
. 32F05460 


PROG ID 


PAGE 


NO. 


2191228 
—  &A 


032F-2 
4A 


64 
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0736 
0738 


073A 


0738 


073C 
O73E 
0746 
0741 
0743 
0745 
0746 


0748 


OT4A 


O74C 


- OT4E 


. OT62 
0763 


0750 


0751 


0752 


753 


0755 
0757 
0759 


O75A 


-O75B 


075D 


C760 


C760 
076) 


CATE 


eoooco 


- 1442 TIMING 


01 
ol 


ol 
C1 
01 
01 
01 


01 


01 
01 


440007E5 


6 TOUUBCS © 


402A 


TOF6 


C4000683 
44200054 
6102 


66000A72 


440V00SF 2 
1810 
D40006E1 


44000707 


67800A03 


440U07E5 
67000BC9 


(4014 


-TOF6 


4U31 


6780090C 


- CTO0OBTS — 


DTOUOAC2 
73FF 
TOFA 


6COO0O5EO 


44000654 


9006 


EC NOe 


Yuv0c 
1404 | 
OO00uU 


1401 


O02 JANE6 


4154S5u 


TEST. 


* 


x 
x 


* 


* 


BSI 


LOX 
BST 


MDX 


L 
L3 


GRAPH 


TIME+2 
PUNCH 


T032 


TEST 


MCD6 


— MCDT7 


SET UP. 


SET TO 


1130 SYSTEM 


PAVG = 12200 
PAVG = 6000 
GRAPH _ 
PUNCH GRAPH 


REPEAT UNTil LAST CARD 


KEK RSERE RRS RHEE ES AH ELT ALE RE ERE SEES SERS TECHS 
ROUTINE O04 — READ TIME GRAPH 


EKEESKAKKHEK KER KKSKE HRS EEL KKK KE SSSS SEKK BE KS E 


x 
T 


= _ 


T 
* 


* 


# 


* 


* 


* 


at 


* 


"THIS TEST. wILu REAC A BLANK CARD, 
TIME BETWEEN REAG COLUMN INTERRUPTS, 


PUNCH A GRAPH DISPLAYING 


COLUMN INTERRUPT TIME FROM COLUMN TO COLUMN. 
THIS PROCESS wILL BE REPEATED UNTIL THE LAST 


CARD INDICATOR IS SENSED. 


ST04 LD 


BS] 
LDX 


LOX. 


3S] 


SRA 
STO 


041 BSI 


‘LDX 


BSI 
LDX 
BSI 


MDX 


THIS ROUTIN= 


L 


cL 


PONLY 


CNTRL 92 
oe 


ALDBK 


-TYPE 


16 


PDLAY 


-CKBLK 


RAVG 


.GRAPH 
 TIME+2 


PUNCH 


To41 


BR lt 


PRINT. 


RESET 


READ A 


XR3= RE 
MCD6 
MCD7 


SET UP 
SET TO 


REPEAT 


THE VARIATION 


MCD 5 


MSG- 
PUNCH CELAY 
BLANK CARD 


AC TIME AVG 


RAVG = 1300 
RAVG = 1000 
GRAPH 


PUNCH GRAPH 


STCPE THE 
THEN 


IN 


LCAD BLANKS 


UNTIL LAST CARD 


HE RKRERRES THEE REESE EEEEAK CRESTS EEE EEE TESTS 


TEST ROUTINE O05 — MODIFY DATA 
EEK ERERELEE FECES LEE SLES ELEREEES TBES SEES ASSES 


wILL REAC ONE DATA CARD ANE 


REPLACE THE PUNCH CATA TABLE WITH THE DATA 


CONTAINED ON THAT CARD. 


THE ROUTINE WILe 


THEN RESTAKT THE PROGRAM FROM RCUTINE CNE.} 


BSI 


LDX 
051i LD 


STO. 


MDX 


MDX. 


STX 
BSI 


READ 


13 
L3 
L3 


L 
L 


COLCT 
RTBL 
PDATA-1 
-1 

TO51 


Swi 
CNTRL 


REAC A 


XR3=CO 
LOAD D 
STG IN 
GO TG 

LOOP U 


SET CNTRL TO RESTART RTN 1 


GO TO 


CARC 


LLMN COUNT 
ATA READ — 
PUNCH TABLE 
NEXT COLUMN 
ATIi LAST COL 


CNTRL RTN 


+ 


S 


S 


0 
4 


BSS. 
TRD OC 
i. Oe. 
TPCH. OC. 
. DC 


1mMAY 66 
154908 


re 
 *—* 

. ., 1404 

a 


41401 


1 5NOVo6 
419643 


START 


START 


READ ICCC 


PUNCH IOCC 


PART 
PAGE 


3264110 


32F04120 


 32F04130 
'  32F04140 
~ 32F04150 


32F04160 
32F04170 
32FU04180 
32F04190 
32F04200 
32F04210 


32F04226 
— 32F04230 


32F04240 


- 32F04250 


32F04260 


~32F04270 
32F04280 
- 32F04290 


32F04300 
32F 04310 
32F04320 
32F04330 


_ 32F04340° 


32F04350 
32F04360 
32F 04370 


' 32F04380 


32F04390 
32F04400 
32F04410 
32F04420 


—32F 04430 


32F 04440 
32F 04450 
32F04460 


' 32F04470 


32F04480 


-32F044690 


32F 04500 
32FC4510 
32F04520 


—32F04530 


32F04540 
32F04550 
32F04560 
32F04570 
32F04580 
32F04590 
32F04600 
32F04610 
32F04620 
32F04630 
32F04640 
32F04650 
32F04660 


32F04670 


32F 04680 
32F04690 
32F04700 
32F04710 


_ 32F 04720 


32F04730 


'32F04740 
—32F04750 


32F04760 


 32€04770 


32F.04780 


PROG ID 


PAGE 


NO. 


2191228 
4 


032F-2 
4 


‘ 


, 


oh ; oo es sey 
& | d ™ =, i ‘ 
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/ / / ; 


























/ Ss e S$ e & | ce | Sc ee cy Ree? ee Re e ae, a. ew = Ko C & & C 
. Y 
o e : 
« al 
IBM MAINTENANCE DIAGNOSTIC PROGRAM FCR TRE 1130 SYSTEM PART NO. eaahees = 2 IBM MAINTENANCE OLAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ae NO. ar 
. PAGE 
1442 TIMING TEST Sale 1442 TIMING TEST 
2 ie 
* 32F06150 0797 Gl 65800796 LDX I1 COMPR XRL=CALL ACDRS+1 32F05470 
O7DB 01 6780090C ~  L~LDX 13 COLCT VERIFY THAT CARD 32F06160. | 0799.0 6501. Lox. 31 XR3=COL NUMBER | 32F05480 | 
O70D 01 C7U00874 ~~ CKBOI LD 23 RTBL 1S BLANK BEFORE 32FO06170 a | fc et e ae 32F05490 ~ 
OTDF OL 4C20082C BSC L ERROszZ PUNCHING IT 32FO06180.. C79A O 7301 COMP1l MDX 3 1 ADV COL NUM3ER 32FO5500°— 
O7E1 0 73FfF MOX 3-1 - 32F06190. O79B Ol 6F000915 STX L3 COL 32F05510 
O7E2 0 7OFA MDX CKeOl LOGP UNTIL LAST COL 32F06200 4 0795 61 C4000918 i eee ee 07 81 LD CCL NUMBER © 32F05520 | 
O7E3 O1 4C8UOTLT BSC 1 CKBLK RETURN 32F06210 | C79F.O1 9490090C S Lt COLCT COMPARE WITH COL CNT 32F05530 | 
| | * | : 32F06220 — O7Al 01 4C3007B8 BSC. L COMP3e-Z CK CN PRINT AVG 32F05540 
See seeasceeneeeaees veseceneeees sere ee sene sey 32F06230 = < od % ia Le | a 32F05550 
* GRAPH SETUP | 32F06240 - O7A3 00 C5800000 LD 38611 :«O LD MAX COL TIME 32F05560 
he HERE OES SEREE SES SEDER EERE EE BREE TEED EE SES 32F06250 > O7A5 O1 YTIOGCOBCT 5 L3 TIME - COMPARE WITH ACTUAL 32FC5570 
* THIS. SUBRGUTINE WILL CALCULATE A GRAPH 3206260 : OTA7 O1 4408U8A3 BSI L ERR1O st BR IF TC LONG 32F05580 
* POINT FOR EACH CCLUMN TIME. THIS SET CF 32F06270 | * | | | 32F05590 
* GRAPH POINTS wWILL BE PUNCHED CN THE NEXT 32F 06280 | O7A9 OO C5800001 LD {1.1 LD MIN COL TIME 32FO5600 © 
% CARD. THE SCALE CAN BE CHANGED WITH A 32F06290 O7AB O1 97OOCGBCT S L3 TIME CCMPARE WITH ACTUAL 32F05610 
% “FNC 3 BIT SwlTCH ENTRY. 32F06300 O7TAC O1 4410086C BSI L ERRI|le- BR IF TC SHORT 32F05620 
#—— ————— -—- —--- - --— - — - - - - 32F06310 - a : 32F05630 
* 32FC6320 O7AF O1 C7O00BC7 COMP2 LD L3 TIME TOTAL ALL COL TIME FOR AVG 32F05640 
O7E5 C v0G0 GRAPH DC +--+ 32F06330 O7EB1 0 1890. SRT | 16 32F05650 
O7E6 O 6836 STx 3 AVG STO AVG TIME 32F 06340 O7B2 O° 8865 AD TAVG 32F05660 
O7E7 0 6201 tDx 21 32F 06350 0783 0 D864 STD TAVG | | | 32F05670 
OTE8 O 6A33 STX 2 TEMP+1 SET SCALE FACTOR 32F06360 O7B4 O1 7401CB81A MDX L AVGCT?l ADV COL CNT FOR AVG CALC 32F05680 
| * — 32F 06370 O7B6 O 70E3 MDX COMP1 32F05690 
O7E9 01 C40005E2 LD tL Sn3 CK FOR NEw SCALE ENTRY 32F06380. | * 32F05700 
O7EB O 100C SLA 12 CLEAR UNWANTED BITS 32F06390 | c7B7 O 10A0 SLT 32 RESET IF CVER FLCW CCL CNT 32F05710 
O7TEC O 180C SRA 12 32F06400 0788 O D061 STO. AVGCT 32F05720 
O7ED 0 4820 BSC Zz SKIP IF NO NEW SCALE 32F06410 0789 O D8&5E STD TAVG 32F05730 
OTEE O ODO2D 7 sTu TEMP4 1 L os 32F06420 O78A O T7UDF MDX COMP1 32F05740 
* ass 32F 06430 1 32F05750 
OTEF Ol 6780090C LOX 13 COLCT XR3=COL CNT 32F06440 | 078B O01 C40G05DF COMP3 LD L_ SwWO | 32FO5760 | 
O7F1 0 73FF MDX 3 -1 | a 32F06450 O7BC O 1099 SLA so 9 LOOK AT. FORCE LOG Sw 32F05770 
O7F2 0 C029 LD TEMP+ 1] LOAC SCALE FACTOR 32F06460 — O7BE 00 67008002 LOX L3 £8002 SET DATA CCNTRCL 32705780 
O7F3 0 A02B M HUND CAL SCALE 32F 06470 | O7CU O01 442807C6 BSI] L TYAVGs+Z PRINT AVG COL TIME MSG 32F05790 
O7F4 O 1090 SLT 16 32F06480 i , * | | - 32FO5800 — 
O7F5°0 D028 STO SCALE SAVE SCALE 32F 06490. O7C2. 01 7402C796. MDX L COMPRe2 32F05810 
He . : , rs 32F06500 O7C4 01 4C80C796 BSC I COMPR 32F05820 
O7F6 C C026 GRPHL LD © AVG LD AVG TIME 32F06510 | 2 *  u | | 32F05830 
O7F7 Ol 970008C6 | S  t3 TIME+1 SUB ACTUAL TIME 32F06520 KEE KKKK HERR ELA ERS SRE SSK EK HES SEH EERE RSH ES 32F05840 
07F9 O 1890 SRT 16 32FC06530 4 * PRINT COLUMN INTERRUPT AVERAGE TIME 32F05850 
O7FA 0 A823 D SCALE DIVIDE BY SCALE 32F 06540 . REA THEKE RAE KS TRKASTHEKE ESKER E LALA SA RALA SES . 32F05860 © 
O7F8 0 ODOIF STC TEMP - 32F06550 * THIS SUBROUTINE CALCULATES THE COLUMN TIME  32F05870 
O7FC 01 65800818. LDx 1 TEMP ; . 32F06560 . : * AVERAGE THEN PRINTS THE AVERAGE MESSAGE. 32F05880 
O7FE 0 7104 — MDX 14 XR1=GRAPH BIT POSITION 32F06570 ¥e— —- —  - - 32F05890 ~— 
O7FF O 1000 NOP 32F06580 ek * : | : 32F05900 
os00 0 COI1F LD K8000 LD A BIT 32F 06590 07C6:.0 oOud0 TYAVG-DC . e-% -- 7 32F05910 ~ 
C801 0 1900 SRA 10 © SHIFT TO GRAPH PCSITION 32F06600 ; O7C7 0 C850 LOD TAVG CALCULATE AVG 32F 05920 
0802 0 1804 SRA : 32F06610. O7C8 O AS85l De -«-: AVGCT 32F05930 
0803 0 1004 SLA S SIRS ee ES 32F06620_ —. ae 07C9 O1 D4000A01 STO L CTAVG SET IN MSG” 32F05940 
0804 O1 D7V0UBCS STO U3 TIMES 2 STC GRAPH BIT IN PNCh BUF 32F06630 | i O7CB8 O 6107. | Lox 17 _ SET MSG NUMBER 32F05950 | 
0806 0 73FF MUX 3-1: ~ ADV’ TO. NEXT COL 32F06640 | O7CC.01 66000A9E LOX L2 ACOLT . 3205960 
0807 0 7OEE MDX GRPH1 LOOP UNTIL LAST COL 32F 06650.  - O7CE Ol 6FOO09FD STX L3 SMSG+2 SET MSG DATA CCNTRGL 32F05970 
0808 01 6780090C Lox 13 COLCT 32F 06660 0700 01 440009F2 BSI LL TYPE 32F05980 
O80A 01 C700UaC8 LD £3 TIME+1 a4 oo 32F06670 * 32F05990 
osoc 0 E814 - oR KOO08 — SET LAST COL BIT 32F 06680 ~ O7D2.0 10A0 SLT . 32, 32FO6000 
O80D 01 D700U0BC8 STC 2 TIME+1 | : 32F 06690 0703 0 D844 STD TAVG 32F06010 — 
. | * - Oe 32F06700 0704 0 D045. STO . =AVGCT 32F06020 — 
O80F 01 658C0081C LOX Il TEMP+1 XR1L=SCALE FACTOR 32F06710 © ~ O7D5 01 4C80G7C6 BSC I TYAVG RETURN | 32F06030 
os11 0 Tlo2 MDX 1 2 32F0Q067T20° * ° 32F06040 — 
0812 0 COOD LD K8000 CONVERT SCALE FACTOR 32F06730 RKEKKKKKKKE SS HR SKK SHES E SHEKE EEK SEEKS EKA KESE HEE 32F06050 
0813 0 1900 SRA 1o TG CARD IFRAGE 32F06740 : * CHECK FOkK BLANKS 32F06060 
0814 01 040008CS STO L TIME+2 SET TO PUNCH In CD COL ONE 32F06750 FER ELERK SES SSL SES ARES ST CERETET TREE ERT KES EES 32F06070 
0816 O1 4C8OOTES BSC I GRAPH RETURN = | 32F 06760 + THIS SUBROUTINE CHECKS EACH CARD BEFORE 32F06080 
- * | 32F0O67T0 | * IT IS PUNCHED TO VERIFY THAT IT IS BLANK. 32F060S0 
C818 0000 BSS E O 32F06780 Ba a nn nn rn ne 32F06100 
0818 0 0G000 TAVG OC t-* TOTAL COL TIME 32F 06790 | * | - | _— | 32FG6110 — | 
0819 GQ oOovOo DC e-—* 32F06800 . O7D7 OQ oOv00C CKBLK DC ) . 32F06120 
O8l1A O OODL — AVGCT DC *-* COL CNT FOR AVG 32F06810 | O706 O1 6COO006FD STX bt LOOP 32F06130 | | 
0818 0 0000 | TEMP DC +-e 32F06820 © O7DA 0 4uvA9 | B8S1 .. READ REAC A CARD . 32F06140 | 
CATE O2JAN66 OIMAY66 1 SNOV66 PROG IC 032F-2 - 2 CATE OZ2JAN66 OLMAY66 1 SNOV66 PROG ID 032F-2 | 
EC NO. 4154908 419643 PAGE 5A EC NOe 415490 4154908 419643 PAGE 5 ' 


415490 


IBM MAINTENANCE CIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191228 = = IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ees NO. rho, 
_ PAGE 6 
1442 TIMING TEST * = 1442 TIMING TEST 
C81iC 0 O0UD DC +--+ 32F 06830 : C86D O01 C40006E6 ERR6& LD L RPSw CK FOR PUNCH OPERATION 32F07510 
C810 0 OCcuva AVG DC *-* 32F06840 OB6F O1 4CO8087F BSC LL ERRTs+ BR IF NCT PUNCH - 32F07520 
Q081E 0 GOodu SCALE DC +-* 32F06850 . 0871 O01 OCOUODSS5E xIc bt CCOLRD RD ECHO BITS - 32F07530 
O81F vu U026 HUND DC 38 - 32F06860 0873 O01 C4#8U095E LD I COLRD 32F07540 
0820 0 80uU0 K8U00 DC 48000 '32F06870 0875 O01 4C18G87F BSC L ERR7_+t*- BR IF NCT PUNCH CK . 32F07550 
C821 0° OUNs KOUu08 DC /0008 32F 06680 . 0877 O01 D49009UA STO tL OSw STO ECHC IAN MSG | 32F07560 
* - 32F06890 0875 O 6106 LDX .1 6 32FO0T5T0 
KKK EKREK UKE ELK H SKS SHEERS SS ERKS AEE SEREREEESE 32F06900 O87A QO 6203- LDXx z /3 32F07580 
* LOCK CN FUNCTICN ROUTINE 32F06910 0875 0 Casc LDO _ MSG6 | 32F07590 
HES SEES EUS CERES SER HEKSE SESE KESER SSE SESE ERE ESSE 32F06920 C87C O1 440005EC BSI LL ETYPE PRIKT ERR MSG 32FO07600 
| . * 32F06930 O87E 0 7TOEC | MDX. _ERR5SR | 32F07610 
0822 0 wu000 Luck DC +-% 32F 06940 * - 32F0T62C6 
0823 01 C4U005DF LD i SwWo LD. SwO _32F06950 -O87F 0 6107 ERR?Y LDX 17 ERR CK 32FUT030 
0825 OU EC800166 OR I ERLCK COMB WITH MONITOR SwO 32F06960 0880 0 C859 LDD MSGT 32F07640 
0827 0 + 1OOA . Sul 10 CHECK LCCK Sw 32F06970 C881 01 440U008EC BSI L ETYCE PRINT ERR MSG 32F07650 
0828 01 4€90U822 BSC I  LOCK,- BR IF NCT LOCK ON FUNC 32F06980 0883 0 70E7 MDX ERR5R 32F0 7660 
O82A Ul 4CB8UC5FD 5SC 1 tooP LCOP ON LAST FUNC 32F06990 * 32FOT6T0O 
* : | 32FO07000 | ~ 0884 0 QOUU0 ERR8B DC. *-* COL COUNT ERROR 32F07680 
* | a | 32FO07010° c885 0 6198 LOx 168 32FO0T690 
ERS SERRA SERS SHES AEE PERSE SECELEE SHEE SELES REESE 32F07020 0886 0 62VC LDX 2 /C — 32F07700 
* ERROR MESSAGE SETUP. 32F07030 ~ 0887 0 C854 LOD MSG38 32FO77T10 
REKKSESE KL SECS SKK EES KRESS K KHER SE KES REL KKK KK SE 32F07T040 0885 0 4063 BSI . ETYPE PRINT ERR MSG | 32FO07720 
. * —“ 32F07050 (0889 01 4C800684 BSC I ERR8 32FOT730 
O82C 0 61V0 , ERRO LDX 10 CARO NOT BLANK 32FO7060 : . * | : 32FOT7TT40 
0820 0 6200 LDx 2 /G000 32F07070 0886 0 O0v0 ERRO DC *—% DATA CCMPARE ERROR 32FO0T7T750 
C82E 01 CCOUOBCE LDC Lt MSGO 32F07080 O88C O01 F400090F EOR L DATA+1 RESTORE TO DATA WAS 32F07760 
0830 01 6COOO5FS  STX & OPMSW in 32FO07090 ~ C88E O1 D400CS0E STO t DATA | . 32FOT770 
0832.01 440008EC BSI L ETYPE PRINT ERR MSG 32F07100 0890 0 696D STX 1 RX1+1 SAVE XR1 32FU0TT80 
- 0834 01 OCOOUSES X10 tt STACK-1 32F07110 C891 0 10A0 SLT 32 - | poe : '32F077T90 
0836 O1 4C8007D7 * BSC I CKBLK 32F07120 ~ 0892 00 6600C03U LOX L2 /C030 SET FOR MULTI LINE MSG 32F07800 
_ = 32F07130 C894 O01 740008E4 MDX L M CHECK FCR MULTI LINE 32F07810 
C838 O OU00 ERR1L OC *—* STATIC CSW ERRCR 32F07140 0896 0 7005 MDX ERROA BR IF FIRST LINE 32F07820 
0839 01 740008E5 MOX L ERRS5SSeO ~~ IF PREVIOUS ERRS 32F07150 - 0897 0 684C STX M SET MULTI LINE WORC 32F07830 
0838 0 7008 MOX ERRIA DO NOT PRINT THIS MSG 32F07160 0898 QO 6199. LDX 1.9 MESSAGE NUMBER 32F07840 
083C 0 0101 LDX | — 32F07170 . 0899 00 66004030 LDX L2 7/4030 SET wORC CNTL 32F07850 
083D 0 6203 LDX /3 32F07180 7 089B 0 C842 LDD MSG9 32F07860 
083E 01 CCOO0S8DO LOD L MSGl1 — 32F07190 O89C 0 404F ERRGA BSI ETYPE ERRGR TYPE OUT 32F078T0 
0840 01 oCO0USsFY ~$TxX LC OPMSW | | 3 32F07200 0890 00 65000000 RX1 LDX L] ¥-* RESTORE XR1 ; 32F07880 
0842 vl 440008EC BSI’ L ETYPE PRINT ERR MSG 32F07210 = - O89F O1 OCVO08BE6 XIO tt STACK-1 SELECT ERROR CARD 32F07890 
a * | : « 32F07220 O8Al O1 4C800685 BSC I ERRY RETURN 32F07900 
0844 0 1011 ERR1A SLA 17 32F07230 * : 32F07910 
0845 01 D40Q008E5 STG tk ERRSS RESET ERRS Sw 32F07240 a a * z 32F07920 
0847 01 4C300836 BSC IT ERRI | 32F07250 O8A3 0 O0VU0 ERR10 OC *-% 32F07930 
a * 32F07260 - 08A4 0 6923 STX 1 EXR1+1 STO XR1 32F07940 
C849 Q OUVv0 ERR2 OC == BUSY DSw ERROR 32FO07270 ~ a -O0BA5 O 6824 STX 3 EXR3+1 STC XR3 32F07950 
O84A O01 CCOOOS8ES ' LOD tL 8B8D0SW 32F07280 O8A6 O 6110 LOX 1 710 COL INTRPT SLOw 32F07960 
O084C 01 OCUUUSGA STD L ODSw SET BUSY DSw IN MSG 32F07290 O8A7 0 C838 LOD MSG10 | 32F07970 
O84E 0 6102 ‘LDX yao | | 32F07300 ~ 2 7 %* | : 32F07989 
O84F 0 6203 ~ LDX 3 32F07310 O8A8 00 66V0418U LDX L2 44180 SET FOR PUNCH MSG 32F07990 
0850 O01 CCO00BL2 LOD L_ MSG2 ‘. | 32F07320 G8AA Ul T40005EE MOX L RP SW CK PUNCH/READ Si: 32F08000 
0852 Ol 440006EC BSI L_ ETYPE PRINT ERR MSG 32F07330 7 O8AC 0 7010 MD X ERX BR IF PUNCH 32F08010 
C854 01 4C80C84S BSC I ERR2 . 32F07340 O8AD OO 66004486 LOX L2 14480 S=T FOR READ MSG 32F08020 
* 32-07350 O8AF QO 700D MOX ERX 32F08030 
0856 0 0000 | ERRS OC +-*+ INTRPT 4 DSW ERROR 32F07360 * * 32F08040 
0857 O1 6COU08ES5 STX LL ERKSS SET ERRCR 5 Sw 32F07370 60880 0 00600 ERR11 OC ene -32F08050 
0859 00 66000003 LOx L2 3 SET DATA IC 32F07380 0881 0 5916 STX 1 EXR1+41 STO XR1 32F08060 
C858 O1 F4QU08EA EOR L ODSw4 GET DSW S/B 32F07390 : 0882 0 6817 STX 3 EXR3+1 STO XR3 32FU08070 
085D 01 D40U08EB STG L OSwe+l SET IN MSG 32F07400 08B3 O 6111 LDX 1/11 COL INTRPT FAST 32F08080 
O85F 01 CCOOOBEA LOD L OSWG 32F07410 08B4 O C8&2D LDO MSG1I1 32F08090 
0861 01 DCOOO9CA STD L OSw SET DSw IN MSG 32F07420 : | a | | 32F08100 
0863 0 1002 SLA 2 LOCK FCR ERR CK 32F07430 08B5 00 66004286 tLDxX L2 44280 SET FOR PUNCH MSG 32F08110 
0864 01 4C28086D BSC Lb ERR6,+2 BR IF ERR CK 32F07440 0867 O1 740008E6 MDX L RPSW CK PUNCH/READ Sw 32F08120 
: * , 32F07450 - 0889 G6 7003 MDX ERX BR IF PUNCH | 32F08130 
0866 0 6105 LOX 5 32F 07460 08BA 00 60004660 LOX L2 /4880 SET FOR READ MSG 32F08140 
0867 O01 CCOU08DE . LOD kL MSG5 32FO07470 08BC O 70uU0 MD X ERX 32F08150 
08609 O1 440C008EC BSI L ETYPE PRINT ERR MSC 32F07T480 ~ + | 32F08160 
080B 01 4C8UU856 ERR5R BSC JI ERRS | 32F 07490 C8BD O01 740U05E4 ERX MDX Lt M™ 32F08170 
: - * | 32FO07500 O8BF OG 7001 MDX ERX1 '32F08180 
DATE O2J4N66 O1MAY 66 1 SNOVOE PROG ID 032F-2 | CATE O02 JAN66 O1MAY 66 1 5NOV66 PROG ID 032F-2 
EC NO} 415490 4154503 £19643 PAGE 6 a: EC NO. 4154506 4154908 419643 PAGE 6A 
/ a. 
a ~ a ~ = ps = eo = sa = ae 
\ \ "i # *\ oe ») ox ~“ pS ~ Ba a sre 2 ae 2 ~ ~ ~ ~. S. +e <“ “ ~\ Pages ~ 
; } | | \ ? ‘\ | . 
en a ms el aad a ) ay a, aa a _— ) ‘ou eA yy = ao 2 x ? ~N . Ne / Sh et aes tie 7 NL we 4 N D Sl Se - » 


, ‘ noo. , oo a — . 
7 eS ; 
/ : ar, ) ey 


a: 


\ 
Lo | 
f 

a“ 
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1442 TIMING TEST 


Osco oO 


osci O 
osC2 00 
osc4s Q 


.. GBC6 O. 


3 08C7 OV 
-08C9 00 


osc ol 


-CBCE 
—O8CE 
OBCF 
-C8DO 
-o801 
08D2 
. 0803 
0804 
08D5 
C8D6 
0807 
Cade 
08D9 
O8DA 
‘08DB 
O8DC 
O8DD 
O8DE 
C8DF 
O8ED 
O8E 1 
O8E2 
CBE3 


OBES 
OBES 
OBES 
OBE? 
O8E 8B 
OBES 
C8EA 
csEB 


SOOO OCO GO SM Sm vem ber pat pet tes Pet pee ee hs es ee ee ee ee 


CcBEC 
OS5ED 
O8EE 
O8EF 
O8FC 
O8F 2 


CCcoooce 
paw a 


 OBF3 Ol 
C8FS 0 
C8F6 GO 
O8FS 1 

ry 


OsF9 


- O8FA 00 


CATE 
EC AG. 


7004 


18A0 
T6008000 
1006 


4626 
681D 


65000000 
6700060G 
“4COCOTAF 


4000 
—0A04 


0000 


OQAOC 


OAILB 
vAOC 


OA24 


0A18 
0A34 
OAOC 
OA2C 
OAVUC 
OA3A 
OAOC 
0A40 


- OALL 


OA45 
OAOC 
OA4SC 
OATE 
0000 
OASE 
0000 


0000 


0000 
0000 
1480 
000u 
C003 
vOU0 
00U0 


0000. 
o917 
6A18 
0818 
C7000BC7 
DOLE 


T7400 05FS 
71004 
443800162 
O3FF 
OuV0 


44800162 


02 JAN66 


41549C 


= 


 ERKL 


> EXRL 


ek 
—MSGO. 
MSG1_ 


—MSG2 


MSG3- 


‘MSG5 


MSG6 
MSG7 
MSG8 
MSG9 
MSG10 
MSG1] 
x 

M 

ERR 5S 
RPSwzw 
STACK 
BDSa 


DSw4 


* 


MOX ERX2 
SRE oi 82 es 
MOX L2 78000. 
NOP Cah 3 nShy. « 
3st . . ETYPE 
STX o 1M 
LOX Ll #-% 
LDK L3.4-* 
BSG L- COMP2 
BSS E—. .. 
DC  ACN3K 
DC _ £0000 
DC AWAS 
DC ASDSw 
DC AWAS 
oC ABOSW 
DC ADSw 
DC ANINT 
DC AwWAS 
DC ADSW4 
dC AwAS 
DC APCK 
DC AwAS 
DC AECK 
C ADWAS 
DC ACCNT 
DC AwAS 
~—oCc ADATA 
oc ATL 
Oc 40000 
DC ATS 
OC ~ 40000 
DC *—% 
DC *—* 
DC *x-—% 
DC 1/1469 
CC *-% 
DC /0U003 
OC t—* 
DC to * 


Se a oe 


PRINT ERR MSG 


RESTCRE XRi 


RESTORE XR3 


CARD NCT BLANK 


STATIC CSW ERROR 


BUSY DSW ERRCR 


NC INTERRUPT 
LEVEL 4 DSW ERROR 


PUNCH CHECK 


-ERRGR CHECK 


COLUMN COUNT ERROR 


COLUMN DATA ERROR 
COL INTRPT SLOW 


COL INTRPT FAST 


MULTI LINE CONTROL WORE 
ERRS Sw 
REAC/PUNCH SW 
SELECT =2 STACKER 
BUSY DSwW WAS 
S/B 
INT & CSW WAS 
S/B 


HK CER SEKKAKKKE KTS SSRSSKSKKKSEKSERES TET HRKE HES 


PRINT ERKOR MESSAGE 
SKK SKEAKSKEK SES KKKSEKKSEKKSSEKEKSESEKS SSEKSKCERKERES 


THIS ROUTINE PRINTS ALL THE ERRGR MESSAGES. 


Fs 


UPON ENTRY THE MSG NO. 


MUST BE SET IN XRl, 


THE DATA ID IN Xk2_ AND THE ALPHA ACDRS IN 


THE ACCUM AND EXT. 


ETYPE DC +-* 
STX 1 EMSG 
STX  Z EMSG+2 
STD EMSG+3 
LD L3 TIME 
STU TIMWS 
= . 
MDX L OPMSn 
MDX ETY? 1 
BSI I ERROR 
DC ETYP2 
GPMSm OC *—* 
P 4 
ETYP] BSI I ERROR 
UIMAY66 1 SNOV6E 
4154903 419643 


SET *SG NUMBER 
SET DNATA ID 


SET ALPHA ADDORS 


PRIKT LAST OP MSG IF 
FIRST ERROR MSG AFTER 
A CCNTROL OP 


MJST BE ZERC FOR OP MSG 


PRINT ERRGR MESSAGE 


PAGE 


32F08190 


_. 32F08200 
- 32F08210 
.  32F08220 
. . 32F08230 
.. 32F08240 
-  32F08250 

_32F08260 
| 3208270 
.-..32F08280 
.  32F08290 
_. .32F08300 
- .32F08310 
. 3208320 
—..32F08330 
_ . 32F08340 

-.32F08350 

.32F08360 

- 32F08370 


32F08380 
32F08390 
32F 08400 
32F08410 
32F08420 
32F08430 
32F 08440 
32F08450 
32F08460 
32FO08470 
32F08480 
32F08490 
32F08500 
32F08510 
32F08520 
32FU8530 
32F08540 
32F08550 
32F08560 
32F08570 


32F08580 


32F08590 
32F08600 
32F08610 
32F 08620 
32F08630 
32F0 8640 
32F08650 
32F08660 


32F08670 


32F 08680 
32F08690 
32F08700 
32F08710 
32F08720 


32F08730 


32F08740 


-32F08750 
32F08T60 


32F08770 
32F08780 
32F08790 
32F08800 
32F08810 
32F08820 
32F08830 
32F08840 
32F08850 
32F08860 


PROG ID 


PAGE 


2191228 
7 


032F-2 
7 


| | q ; 
eter maebe bers toes a vi 
’ a ~) oa r @- 


¢ 


Soa nceuaeedar- tea EEE? 
Parr ic a vena | 


Py 
SAE TET ome gree 


apm = 


ete 


‘ 


’ 


.. OBFD O-- 
O8FE O 
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1442 TIMING TEST 


OBFC 


 OBFF 


c901 
0902 
0903 


0904 
»- 0905 


0906 


0919 
CIIA 
0918 
o91Cc 


0910 


O91E 
O91F 
0921 
0922 
0922 


0924 


0926 
0925 


0929 


0928 


092D . 


O92F 
c930 
0931 


CATE 


e0ecc0eocooooccce. 


1 


01 


0 


i 


0 


oO0000. 


ooo Soe oe SSeS 


Oo © 
poms © w= 


oeoo 


EC NG. 


0905 
oovo 


OBFA 


8000 
OA56 
0000 


- 0001 
0000 
 -TFSC 
- G0u0 
- 9000 

0000 


‘00u0 
0000 


0000 
0050 
GOOU 


“0000 


Uvdauod 
OV00 
1CUC 
1434 
0514 
028C 
OuvO 


~ 0000 


0000 | 


0000 


1810 
DOCS 
DOEF 
DODB 


 6SEE 


65001000 
6926 
0841 
vOC4 


65000920 
740005E6 
7OLS 


eLOU05ES 


44500161 


T4FFCS48 
T0F4 
C037 


FO67 


O02 JAN66 


#15490 


4C8U06EC .. 


...0P.. 





a ~ a oe Cc — ‘ ( on ‘ { : ia * \ 
ene, Ma Rg. 


1130 SYSTEM 


DC EMSG 
»;.LOOP*- dC a foe .. LOOP -ADDRS SET HERE 
STX OPMSWw 
ETYP2 BSC I ETYPE RETURN 
ee oh ee Sete als Ge Ae yea 2 
2 Ces +, £8000" |: : 
> 4,0C ca ¢ ep }ALOP. Le Katie she 
sstvtg EG ee. ahs Rs iin ce ox 
x 
Sere te ee ee ee 
.* 2. ERROR: MESSAGE TABLE . 
SK me ce ce a a se a ne a ee ne ee we we ee re we we ee we we ee 
-. BSS E 1 Soe eee ee 
EMSG -0C ek —- MESSAGE NUMBER 
DC /7FBC HEX/DEC Sw. 
OC *-* DATA 1/0 
Oc *-—* ALPHA ACDRS1 
| . DC *-* ALPFA ADDRS2 
* ; 
DSw OC *-% DSw WAS | 
; DC sda OSW S/B 
COLCT OC *—% CCLUMN COUNT WAS 
oC. 80 COLUMN CCUNT S/B 
DATA DC *—* REAC OR PUNCH ECHO WAS 
DC *—% READ DATA S/B 
oc 00U0 NOT USED 
TIMWS, DC +-% TIME WAS 
PCMAX DC 718u MAX PUNCH COL TIME 
PCMIN DC 5309 MIN PUNCH COL TIME 
RDMAX DC 1309 MAX REAC COL TIME 
RDMIN DC 700 MIN REAC COL TIME 
DC 0000 NOT USED 
~ OC 0000 NOT USEC 
COL. OC. +—* COL IN ERROR 
* 


KEELE SETHE EHTCER STE SERKE ESE KEES HOTE SES ESE SSS 


= 


INTERRUPT WAIT ROUTINE 


SKKKEKKKEKK SEK SKKE SKE SKKKTSKEKKKSESSSEKSEKKKKEKEE 


+ THIS SUBROUTINE WAITS FOR INTERRUPT. 
= WHEN THE INTERRUPT IS RECEIVED IT WILL 
* CHECK THE ROUTINE SELECTICN SwITCH. 
* 1F A NEw ROUTINE HAS BEEN SELECTED IT 
& WILL BRANCH TOG THE CONTROL ROUTINE. 
MH a in nn i ne i em ne ee a ae we oe ee ee ee oe 
+ : 
wAIT DC *—*% 
SRA 16 
sTtc M RESET MULT LINE CONTROL 
STc COLCT RESET COLUMN. CCUNT 
STC OPMSh RESET Ck MSG Sw 
STX 1 COLCT+41 
LOX LI. 410060 SET INTERRUPT 
STXx 1 wCNT WAIT CNT 
XIG SENSE SENSE B8uSY OSw 
STC BOSw 
* é 
WAIT] LDX Ll WAITS 
MDX LC MLSCF41 OK FOR INTERRUPT 
MD X wAITS BR IF INTERRUPT OCCUREC 
* 
WAIT2 STX Ll MLSCF SET RETURN ADDRESS 
BSI 1 START GO TO MCNITOR 
bd : 
wAITS MDX L wCNT,-1 DECREMENT wAIT CNT 
MOX wAITl . 
LO BDSa CK BUSY DSh 
EGR BDOSw+1 
ULMAY66 1 SNOV66 
4154908 419643 


PART NO. 


PAGE 


32F08870 
32FU8880 


-... 32F08890 


32F08900 


"_ 32F08910 
- 32F08920 
_. 3208930 
-. 32F08940 


32F08950 


. 32F08960 
3268970 


32F0898C 


. B2FQE990 
- >. 32609000 
~, 32F09010 
_ 32F09020 
_ 32F09030 
~. 32F09040 
- 3B2F09050 


32F09060 


-32F09070 


32F09080 
32F09090 


- 32F09100 
. 32F09110 


32F09120 


~32F09130 


32F09140 
32F09150 
32F09160 
32F09170 
32F09180 
32F09190 
32F09200 
32F09210 
32F09220 
32F09230 


 32F09240 
—32F09250 
~32F09260 


32F09270 
32F09280 
32FO09290 
32F09300 
32F09310 
32F09320 
32F09330 
32F09349 
32F09350 
32F09360 
32F09370 
32F09380 
32F09390 
32F09400 
32F09410 
32F09420 
32F 09430 
32F09440 
32F09450 
32F09460 
32F 09470 


- 32F09480 


32F09490 
32F09500 
32F09510 


32F09520 


32F09530 
32F09540 


PROG ID 


PAGE 





LL . fs. 
| 7 
LD 


2191228 
TA 


032F-2 
TA 


Ly ¢ 


J 
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PART NO. ete 


PAGE 


¢@ 


¢ 
t 


1442 TIMING TEST 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PART NO} 2191228 
BA. 


PAGE 


a ] we a4 


0932 O1 44200849 BSI L ERR2,2 BR IF ER 32F09550 O96E 0 cGO00 INTR— DC *-* 32F 10230 
0934 0 U82F - -XIO0 SENSE SENSE OS 32F09560 O96F O 691E STX 1 SVXR1+41 SAVE XR] 32F 10240 
0935 G@ DO0D4 STG DSW STCRE DSW IN MSG 32F09570 0970 0 oALF ~S$Tx 2 SVXR2+1 SAVE XR2. 32F 10250 © 
0936 0 6103 ERK3 LDX 1 3 MESSAGE NUMBER 32F09580 0971 0 62vl1 tLDx . 21 RESEY CCL CNT 32F10260 
0937 0 6201 LDXx 2 /0001 SET wORC CATL 32F09590 0972 00 650uUVU0E1 SPD1 LDX LI 225 RESET TIMER 32F10270 
0938 QO C8c3 LDD MSG3 MSG- NC INTRPT 32F 09600 0974 0 O8EF X10 SENSE SENSE CS& 32F 10280 
0939 QO 4082 5ST ETYPE PRINT ERR MSG 3 32F09610. 0975 O01 4CO8099D BSC t ROCGOL,+ BR IF READ COL INT 32F 10290 
O93A O1 €7800919 . LDX I13 WAIT SET TO RETRY FUNCTICN 32F09620 0977 0 1020 ~ SLA 45. TIMING ADJUST 32F 10300 
Q93C O01 6FUOO5E6 STX 13 MLSCF1 32F 09630 0978 0. 7034 MDX PCH 32F 10310 
* 32F 09640 * 32F 10320 
O93E O1 C40U05E0 WAIT4 LD t Sul 32609650 0979 0 Tel INTRI MOX 21 ADV COL CNT 32F 10330 
0940 00 44380161 BSI I START + CK FOR RTN SELECT 32F09660 O97TA Ol SOOUOBCT . STX: Ll TIME 32F10340 - 
0942 01 9400C5CD S L RID. CK FOR NEw ROUTINE 32F09670 Oo97C 00 650000E6E SPD2- LOX Li 190 RESET TIMER 32F10250 
094% O01 44206654 BSI Ct CNTRL»2Z BR IF NEw RTN 32F09680 | O97TE O1 C4000ECT LO tL TIME LO TIMER CNT 32F 10360 
0946 00 44800161 SSI. oI START _ 32F09690 0980 01 D600C5C7 STG L2 TIME STO TIME/COLUMN 32F 10370 
| x 32F09700 0982 O O8El XIO | SENSE - SENSE OSW 32F10380 
0948 0 0GO0G WONT OC *-% . 32F09710 0983 0 180E SRA 14 ; 32F10390 
* : ; 2 32F09720 098% O1 4C04C69A3 BSC tL PCCOL »E BR IF PUNCt COL INT 32F10400 
% > ERROR ANALYSIS | 32F09730. 0986 0 1801 SRA 1 : 7: 32F 10410 
EHH CERES SER ERE ERE HESS S ERRAKE ESSERE EERE ERERE 32F09740 0987 01 4C04C99D BSC bt RDCOL>sE BR IF READ CCL INT 32F 10420 
CREEK KHER SESS CEMKSKHKE LHKT SKS RKS LSE KEKE SKE RSE RES 32F 09750 * , | 32F10430 
‘* COME TC HERE FROM INTERRUPT AND CHECK FOR 32F09760 * OP COMPLETE 32F10440 - 
© ERRORS BEFCGRE RETURNING TC. TEST ROUTINE 32F09770 * 32F10450 
Sar Se SS a ee ee re ee 32F09780 0989 0 T2FF MDX 2-1 DEC FOR CORRECT COL CNT 32F 10460 
x 32F09790 O98A QO 1000 NOP 32F10470 
0945S 0 10A0 RTRN SLT 32 32F09800 098B O1 6EQGCI9OC STX tL2 COLCT STG COL CNT 32F 10480 
094A GQ CO9D Ld BDSW Ck BUSY DSw 32F09810 098D 0G 650000U0 SVXR1 LOX Ll *-* : RESTORE XR1 -32F 10490 
0948 GQ FO9D 8 EOR BDSwWe+1 7 32F09820 O98F OU 66000000 SVXR2 LDX L2 *-* RESTORE XR2 32F10500 
094C 01 44200849 BSI tL ERR292 BR IF ER 32F09830 0991 01 4CB80CS6E BSC I INTR BR GUT OF INTR 32F10510 
| * aa 32F09840 ¥ ; * | : 32F10520 
* 32F09850 c993 QO 9OaQuCc INTR2 DC Fa % - 2% 32F10530 
O946E 0 CO9B LD. DSh4 CK INT 4 DSW 32F09860 . 0994 QO 0O8D5 X10 SNC CM-1 SENSE-RESET OSW 32F10540 
O094F O FOLA EOR KU800 REMCVE RESPONSE BIT). 32F09870 0995 O01 D4QU05EA STG kL ODSwW4. . $TC DSW 32F10550 
0950 0 EOLB ANC KEFFE MASK LAST CD ANC NRCY 32FU9880 | : 0997 01 6700094S LOX L3 RTRN 32F 10560 
0951 O1 44240656 BSI LL ERR5e2 BR IF ERR 32F09890 0999 O1 6FQVUO5E6 STX L3 MLSCF SET FOR RETURN 32F10570 
2 + =. | 32F09900 ‘i 099B O01 4C800993 BSC JI INTR2 BR CUT CF INTR 32F10580 ~— 
0953 G COBS LD COLCT CK COLUMN COUNT 32F09910 | _ f- ¢ ~e * . . 32F10590 . 
0954 0 FOBS. EOR COLCT+1 COMPARE WITH S/B 32F09920 2 + READ COLUMN INTERRUPT 32F 10600 
0955 O1 44200884 BSI L ERRSeZ BR IF CCL COUNT ER 32F09930 z ‘ * . | 32F10610 
, * oe . 32F09940 C99D O O8CO RNCOL XIO. COLRD READ A COLUMN 32F10620 
— - * 32F09950 O99E O COC3 - LD RDATA. LD DATA | 32F 10630 
0957 Q@ C092 LD OSw4 CK FOR LAST CARD © 32F09960 . ne O99F O1 D600UB7T4 STO L2 RTBL . STC DATA/CCL 32F 10640 
0958 0 1004 SLA 4 : 32F09970 O9A1 0 10186 SLA 27 TIMING ADJUSTMENT 32F10650 
0959 UL 4CO0209D6 BSC L LSTCD,C BR IF LAST CARD 32F09980 | ee O9A2 O 700D MDX . INTRS3. . 32F10660 
095B O1 4C80091S BSC I WAIT RETURN TO TEST RIN 32F09990 | - as * ; 32F10670 | 
. -— ae , 32F 10000 | ~ * PUNCH COLUMN. INTERRUPT 32F 10680 
O95E.. oOgQuvd BSS E 32F10010 — | . | * — ; 32F10690 
O95E 1 0962 - COLRD DOC - RDATA eS 7 r 32F10020 | : O9A3 O01 678006E1 PCCOL LOX 13 PDLAY LD OELAY CNT 32F10709 
O95F 0 12vV0 DC 41200 READ CCL ICCC 32F10030 O9A5 O 7300 MDX 3 0 - Ck FOR MIN DELAY 32F10710. 
C960 0 v0U0 COLPC DOC *-t 32F10040 sn 04 C9A6 0 7001 MOX DLPCH | : 32F10720 
0961 0 1100 DC 41100 . PUACH 1I0CC 32F 10050 | | - O9A7 OQ: 7005. MDX PCH : | 32F10730 
0962 0 o000 | RDATA DC 0000 LAST READ CATA | | 32F 10060 . | O9A8 O 7125 DLPCH MDX 1 37. LDV - TIMER 32F 10740 
0963 0 1701 SNCOL DC 41701. SENSE AND RESET CSW IOCC ~—32F10070 09A9 0 100C SLA 12 TIMING ADJUSTMENT _ 32F10750 
6964 0 000. SENSE DC o 7 ae _ 32F10080 e. O9AA 0 73FF MDX 3-1 DECR DELAY CAT 32F10760 
0965 0 - 1700 : DC 1700 SENSE OSw I0CC 32F 10090. G9AB O TOFC. MDX: DLPCH LOOP UNTIL CAT ZERO 32F10770 
0966 1 0968. stop DC TERM 32F10100. O9AC O 1006 SLA 6 TIMING ADJUSTMENT 32F10780 
0967 O 1100 oc £1100 32F10110 = * . | ale a 32F-10790. 
0968 0 FFFF TERM DC JFFFF | 32F10120 C9AD 0 0882 PCH xIO. COLPC . -— PUNCH COLUMN | 32F10800 ... 
0969 0 1402 FEED OC 11402 | FEED IOCC 32F10130— O9AE O1 74010960 MOX Lt COLPCe1 ADV FOR NEXT COL. 32F10810 | 
Q96A 0 0600 «0800 DC . 40800. 7 32F10140 7 * 32F 10820 -: 
0968 O 1702 _~ =~. SNC OM OC 41702. 32F10150 _ a oe S Be oh t—- —-—- ~~ - + - + - 32F10830. 
096C 0 EFFE | KEFFE DC . J/EFFE 32F10160 __ : | a coe tO TIMER - THIS SUBROUTINE DETEMINES THE 32F 10840 
C9I6C 0 C800. KC800 DC | 4C800 32F10170. . : ; de 8 * TIME BETWEEN COLUMA INTERRUPTS 32F10850 | 
| + - 32F10180 _— | #--—---- ——- ---- --—- - + - +--+ ---- + ---- --- 32F10860 
REL SCESEKEKL SEKSSLKEAKKE EKKEKER SESE HES SRKEGE 32F10190 | . . * . : . as 32F10870 -- 
* . | INTERRUPT ROUTINE 32F 10200 ‘ss 0980 Vv 083dl INTRS XIO SNCOL -1 SENSE-RESET CSw 32F10880 . 
REEKCKES EKKE KEK EKRAKE SEES ESKER KSS SHKESESESERE SEE 32F10210 | | : e aot, & -32F10890 
 s | 32F10220 e 0981 0 0882. TIMER XIC | SENSE SENSE CSW. 32F10900. 
CATE O2J4N60  OLMAY66 = 15NUOV66 | PROG ID 032F-2 7 DATE U2JANoo  O1MAY66 I15NO0V66 1 PROG ID) 032F-2 
4154908 419643 PAGE 8 4154903 419643 . PAGE | 8A 


EC NO. 415490 EC NC. 415490 


co Gy 


a ™ 




















ry ee 2S * a ~ eR aes me Peel mn : 
po | ( & e oa - a C ) A ney i S  2o pa Pee. gs Sus ti, _ | 
Ra he Be “OOC CCOCOCOCC OC OC 
| 3 | Sy ee a, ee Ny ce Cy 
er 
IoM MAINTENA : | ~ | es, pos tas - 
I NCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191228 @ : 15M MAINTENANCE DIAGNOSTIC PROGRAM FGR THE 1130 SYSTEM PART ND. 
| : oa 7 ; | | PAGE 
1442 TIMING ag 
IMING TEST 3 : 1442 TIMING TEST 
0982 0 €038A ANU KC 600 MASK ALL BUT 09194 F 2 a i ca ate 
0983 01 4C200S75 BSC LL INTR1 eZ BR IF INTERRUPT aay di : THIS SUBROUTINE PRINTS ALL THE STATUS 32F11590 
0985 0 7120 espa NDR. aE KOU CAR acess a * MESSAGES. THE MESSAGE NUMBER MUST BE SET 32F11600 | 
09Bo 0 TOFA fox Tek OCe ECa sOM eee spd : * IN XR] AND THE ALPHA ADDRESS IN XR2 UPCN 32F11610 
c9B7 0 7005 MDX SVXR1 | 32F10950 . ENTRY « To: | : 32F11620 
| dys a SSE LOCEO. oo Ben a nn an nn nnn 32F11630. 
| | s 44 | + - a 32F11640 
SESCEKEREY HE 
i x aa ls See naeee. oe uous . TYPE DC. -geg) . 3211650 
| . 05 : STX: SMSG SET MSG NO. 32F11660 | 
SHE SKKSE ESE KKEKSSKETC EES : , 
| : ces 9 SEEPESES EELS EES EEEEESESE ESTED get 10280 G9F4 0 6A09 | | —STx. SMSG+3 SET ALPHA ADDRS 32F11670 | 
pee tay os i 7 | O9FS 00 44800163. 3S} I. Lac | PRINT. *SG 32F11680 
C988 0 O0VLU0 KEADY DC. +-+ = ee an | 
HORS O- “LOAG oe ae Seer iees COFT 1 U9FB ; DC SMSG 4 32F11690 
096A 0 O6A9 ~ XIC SENSE SENS Meee eee : — | 32F11700 
0952 01 DCOO0SOA eie# as “pce er eRE ca SSeriace O9F8 0 DUU4 STO SMSG+2 RESET DATA CONTROL 32F°1710 | 
pou oi CstOcEe Se eee, ceo ae aoe 09F9.01 4C38UU9F2 _ BSC I TYPE RETURN | 32F11720 
O9BF oO 1801 SRA 1 REMCVE ARDY | 32F11G60 Aoee O 00VU0 . SMSG DC ; sade MSG NO-SET HERE 32F 11730. 
O9CO Ul 44200836 BSI L ERR1s2 bR IF CTHER THAN NRCY 32F11070° Pied aco: 3 Arta * ef (32811740 
ie | . a 32F11080 | O9FD.G OvU0- DC . +--+ Oe el 32F11750 
09c2 © 1011 ~ sox: SCA aes ey agar O5FE QOuU DC *—* ALPHA ACDRS SET: HERE 32F11760 
09C3 UG DO; STC. BCNT RESET BOX CNT 32F11100 _ ! et ans * = ices a | a 32F11780. 
ea og * | ae ~ a | | : 
7 | 32FL1110 oe ee | as | 
09C4 01 650009CA BOX1l LDX Ll BOX2 LD REENTRY ADDRS 32F11120 aed ee ee ae — ae toe agen 3 eet ttiee 
09C6 O01 eDOCUSES - STX Ll MLSCF41 SET MLSCF | 32F11130 oo ee earned ae Re eee a eer FeOe ® 
O9CB O1 4CO0C93E BSC L wAIT4 GO TO MCNITOR 32F11140 . ne ae lamer pecias Se eee eae eR hans 
| | : : a Seen ig 0A03.0 0368 RAVG DC 1000 READ AVERAGE S/B 32F 11820. 
09€A 0 0899 _ BOX2 xXIC SENSE SENSE CSW 32F11160 | | Z : - Se ces 
09C» 01° 4C9809 7 = | 2 | Fl. 
pies Serine pita ae : a RETURN IF READY gerund “ae EHR CKREREERESES EERE SEKEHEREAEEES EES ESE ERSTE SS 32F11850 
ne , * 4 os . 32F11200 | SERSSLEAR SS TASER SE CASSEL ASSES eee eee 32F 11870. . 
0900 uv 6105 NRDY LDX 1 5 MESSAGE NUMBER F11210 ~ res : : = 32F11680 
09D1 01 66UUUA6E fon oe eNRDy say RE AGY eli cee. oe a ACNBK DC /LE3E CARD NOT BLANK 32F11890 
09D3 0 401 3S1 TYPE PRINT MESSAGE 32F11239_ ay GAGE GO CTTE ae oe eet bec 
0904 0 70D MDX BOX 32F11240 —gao7- - ae apd 32F E1910” 
| | : | 32F11250 OAs 0 2114 Oc ate See1 isso. 
0905 0 0000 BCNT DC _ os 32F 11930 
ae > ween be cate 

ERE SSH KESK SES SKEKES ESET S HTEKRER SLES SEEKS CERES 32F11280 — CAOB aera DC Aedes 32F11950 © 

* FEED LAST CARD 32F11290 = oe a i Geer iad 

KESSLER EKSERE KEKE EES ‘ : -* a. 7 ; 

4 : ee a aaa a ea ac ae aie OAOC O 923E AwAS DC /923€ WAS S/B 32F11980 
09D6 O01 670L0A623 LSTCD LDX L3 AFD 32F11320 . ore 0 ey: oc pe yal ae 
0908 01 6FV0U903 -« STX LB OP a 32F11330 CAOF O BCIA Be jecua seer eee 
O9DA 0 08aD x10 FEED-1 FEEC LAST CARD F1134 | | 32FL2010 | 

eS: * | : Bee iscat : i 2 QOA10 O. FFFF R DC /FFFF 32F12020. 

09DB 0 6104 LDx 14 32F 11360. - 7 : | 32F12030 
O9DC 01 66v00A78 LOX L2 ALCD 32F11370 Chie Gack iat ati WAS S/6 32F 12040 
O9DE O 4013 BSI TYPE PRIAT MSG- LAST CAREC 32F11380 = OA13 0 2121 Dc 72121 Ser icecé 
og : & , 7 : . é0 

| | | 32F11390 7 3 
O9DF oO 1810, SRA 16 oe 32F11400° | ie i ae icles 32F 12070 
O9EO 01 D4U005E1 STO t Sw2 RESET DELAY FACTCR 32F1141C - | - DALECO en oes ores 32F 12080 | 
Q9E2 01 D40UU5E2 STO L Sw RESET GRAPH SCALE 32F11420 [4 Bias = DE 72121 32F12090 
Mae, * . 32F11430 7.0 FFFF DC JEFF . 32€12100 
O9E4 01 C40005DD LD tL RID LD LAST RTN NUMBER 32F11440 3 pian aoe 32F 12110 
O09E6'0 900A 5 3 Tw CK FCR ROUTINE 1 OR 2 32F11450 | his et a ae fesse ae eens 
O9E7.01 44300654 BSI & CNTRL»-Z 8R IF NCT 1 GR 2 32F11460 OAlA 0. FFFF “ Vee ea aed 
oh —o < | 32F11470 : £4 0. Ff ? DC SFFFF. 32F12140 
09E9.01 C40005DF LD L = Swo 32F11480. eer a : | .32F12150 | 
O9EB 0 1009: SLA 9 LOCK AT FORCE LOG Sw 32F11490 OAC r Bae pce jeast Serene Ba leapt 
O9EC 0 6302 LDX 32 SET FOR AVG CNLY 32F11500 OAIL 0 3ESE a nee 32F12170 
O9ED O1 441U07C6 BSI L TYAVGs- PRIAT AVG COL TIME MSG 32F11510 GAlE O 221E a ae See ioice. 
lags * | , i 32F12190 
7 32F11520 
O9EF O1 44000654 8S1 L CNTRL GO TO CNTRL RTN 32F11530 mG ; ee Be fp ee 
O9F1 0 0002 TwO DC —_ 32F 11540 Akod 6 pine Se peed 32F12210 
.. * 3 | | 32F12220 
| 32F11550 

ERE SLERH STE ESSE EERE ESSE EET S FES KES E SE HEEEEETE 32F11560. - os eeee oC 16262 32F12230 

* PRINT STATUS MESSAGE 32F11570 : gear e oC /FFFF | 32F12240 

ESE ESEKES AE SESKEERS EKESE SEALE KES SEKE EERSTE SRE SS | i es 3 : 32F 12250 

, 32F11580 . OA24 0 2184 ABD Sw DC 12184 -BLSY DSW ERR 32F12260 
DATE --O02NAN06  O1MAY66 = LSNOVOS PROG ID 032F-2 | 
EC NC. 415450 4154908 41964 - DATE G2JAN66 O1MAY65 = 1 SNOVOS : 
19643 PAGE 9 io EC NG. = 4154590 4154505 419643 Chee | tee 


‘ 
, * eaten ae. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOs 2191228 
PAGE | 10 
1442 TIMING TEST 
O0A25 0 1AB2 DC. 41AB82 32F12270 
OA26 0 SAAG DC J9AAR6 32F12280 
OAZT 0 2132 DC 42132 32612290 ~ 
O0AzZ8 0 9A92 oC /9A92 32F12300 
0A29 0 Z1306 DC 12136 32F12310 
OA2A 0 6262 DC 16262 32F 12320 - 
OA2B O FFFF . DC /FFFE 32F12330 
* : 32F 12340 
OA2C 0 2184 ADSw4 DC 12134 -LEVS CSw ERR 32F12350 . 
OA20 0 5E36 DC /5E36 32F12360 
CA2E U0 5&6FO oc /BOFU _ 32F12370 
OA2F 0 2132 DC. £2132 32F12380 
0430 0 G9A92 DC /9A92 32F12390 
0A31 U 2136 pe 12136 32F 12400 
0A32 0 6262 DC 16262 32F 12410 
0A33 0 FFFF DC /FFFF 32F12420 
— ; * | | 32F12430 
-0A34 WO 2176 ANINT DC /2176 NO INTRPT (32F12440 | 
0A35 U 5221 DC 15221 32F12450 
GA36 0 2276 DC 42276 32F 12460 
OA37 O 9E52 oc 1962 32F12470 
~0A38 0 569E DC /569E 3212480 
OA39 O FFFF DC /FFFF 32F12490 
7 * ae 32F12500 
OA3A 0 2184 APCK DC 12134 PCH CK 32F12510 
0A38 0 5632 -  . oe 156B2 32F12520 
OA3C O T61LE DC /ToOl_E 32F12530 
OA30 0 2621 DC 42621 32F12540 
OAZE 0 1ESA DC JLES5A 32F12550 
OA3F O FFFF pc /FEFF 32F12560 
* 32F12570 
OA4O O 2134 AECK DC 12184 ERR CK 32F12580 
OA41 U 3662 : DC 43662 32F12590 ° 
0A42 9 6221 oc 46221 32F 12600 
 @A43 GO IESA OC JLESA 32F12610 
~CAS4 O FFFF oC /FFFF 32F12620 [ 
fo : * | | | | 32F 12630 
OA45 O 2134 ACCNT DC ' £2184 COL CNT ER 32F 12640 
OA46 0 1E52 DC  J1ES52 32F12650 we 
0447 0 5E21 DC 45E21 32F 12660 
OA48 0 1ET6 DC JIETO 32F12670 
~~ 0A49 0 9E21 DC /9E21 32F12680 . 
OASA 0 3662 DC 13662 32F 12690 
Q0ASB O FFFF Dc /FFFF - 32F12700 
| a | + ; 32F12710 = 
OASC O 2121 ADATA DC 12121 CCL DATA ERR 32F12720 
OAD 0 1E52 DC 41€52 7 32F12730 
OASE O 5E21 oc /5E21 - 32F12740 = 
OA4F O 2121 oc 42121 32F12750 
OA50 G 2184 DC 12184 - 32F12760 
OA51 0 323E oc ' 4323€E 32F12770 = 
OA52 0 SE3E oc /9E3E 32F12780 
0A53 0 2136 DC 42136 32F127790 
0A54 O 6262 DC 16262 32F12800 
OA55 O FFFF pc JF FFE 32F12810 
| - ie | : ' 32F12820 
OA56 0 OSSE ALCP: DC J095E LAST OP- 32F 12830 
©A57 0 3E9A DC /3E9A 32F12840 
OAS8 0 9&2) DC /9E21 |. 32F 12850 
0A59 O 5256 DC 15256 32F12860 
OQAS5SA 0 842) 0c 18421 32F12870 
OA5B OO FFFF DC /FFFE 32F12880 
| * : 32F12890 
OA5C 0 6236 ARD . DC 16236 REAO 32F12900 
'“QA5D O 3€32 | DC - J3€32 32F12910 
OA5E O FFFF DC /FEFF 32F12920 is 
es * | |  32F12930 
OASF 0 5632 APCH- DC 156B2 PUNCH . 32F 12940 = 
DATE O2JANG6 OLMAY66 1 SNUV66 PROG ID s 
EC NC. 415450 4154508 419643 PAGE : 
poo | a nn aie \ we be - ic 
\ ‘ a a ~ - =e * a —~ > 2 


¢@ 


IdM MAINTENANCE DIAGNOSTIC PKCGRAM FGR 


1442 TIMING TEST 


THE 1130 SYSTEM 


OA6U O Tel1E DC STOLE 
OA61 0 2600 DC 42600 
CA62 O FFFF OC /FFEFF 
OA63 0 1236 AFD ac /1236 FEED 
O0A64 U 3632 DC 13632 
0AG5 O FFFF DC /FEFF 
& or 
OA66 VU -Tbo2 ANRDY OC 17002 NRDY — PRESS 1442 START 
CA67T 0 32A6 DC /32A6 
VAG8 GO 2184 DC 12184 
OAG9 VU 5602 oc 15662 
OCAGCA 0 369A OC /36SA 
OQA6B-0 9A21 oc 49421 
OA6C G FCFO DC /FCFO 
OAoD.O FODS DC /FOD8 
OA6E 0 219A DC /219A 
OA6F QO 9E3E DC /SE3E 
OAT0 0 629E DC /629E 
Q0A71 0 FFFF oc /FFFF 
4 nee 
OA72 0 5E32 ALDBK DC /5E32 LOAC BLANKS 
OA7T3 0 2100 DC 72100 
CAT4 O 1AS5E DC JLASE 
OA7T5 0 3ETo DC /3ET76 
OA7T6 0 SAIA DC /SA9A 
OA77.0 FFFF “DC /FFFF 
x 
OATS O 5E3E ALCD DC /5E3E LAST CARD 
OAT9 0 GAIE DC J9A9SE 
OA7A O 211E DC /211E 
OATB O 3€62 DC /3E€62 
OA7TC O 3200 DC 43200 
OATD O  FFFF oc J FFFF 
% | 
OATE O 923€ ATL DC . 1923E wAS MAX -CCL IATRPT SLCW 
-OATF O 9A21 DC 49821 | 
OA80 0 2121 DC 42121 
OA81 O 723E DC 4723€ 
OA82 0 9621 DC 19621 
OA83 0 2121 DC (4/2121 
OA84 O 1€52 DC 41E52 
OA85 0 5E21 DC /5E21 
OA86 0 2184 DC 12184 
OA87T 0 2270 DC 412276 
QA88 0 9E62 OC S9E62 © 
OA89 0 569E DC 1569E 
OA8SA O 219A OC /219A 
OA8B 0. 5E52 OC — f5E52 
OA8C 0 9200 DC 79200 
OA8C O FFFF OC /FEFF 
eae * : 
' QOABE O 923E ATS DC  /923E WAS MIN -CCL INTRPT FAST 
OA8F O 9A21 — oc 49A21 . 
 ©0A90 OO. 2121 DC 42121 
OA91 O . 7222 oc 17222 
OA92 0 7621 —~OC 47621 
0A93 0 2121 DC 42121 
O0A94 O- 1E&52 oc J1E52 
OA95. 0 5E21 DC J/5E21 
GAI6 0 2184 DC 121384 
CAIT O 2276 OC 12276 
CA98 O 9E62 DC S9E62 
0A99 0 569E DC S5069E 
CAVA O 2112 DC 42112 
OA9B 0 3E9A DC /3E9A 
OAIC 0 9EVO DC /9E00 
CA9C O FFFF oC /FEFF 
x 
DATE 02 JANGE O1MAY66 1 SNOVES 
-€C NGe 415490 41545908 419643 


REA 1335929 


ee Gorse em 4 ee aa. a ae es -~\ weNy 
ew) a ry, 2 a, 7. ed Sa J —) cy 


PART NO 


PAGE 


32F12950 
32F12960 


32F12970 | 


32F 12980 
32F12990 
32F13000 
32F 13010 


°32F 13020 


32F 13030 


-32F13040 


32F 13050 
32F 13060 
32F13070 
32F13080 
32F13090 
32F13100 


-32F 13110 


32F13120 


-32F13130 
32F13140 


32F13150 
32F13160 
32F13170 
32F 13180 
32F13190 
32F 13200 
32F 13210 
32F13220 
32F13230 
32F 13240 


_ 32F13250 
-32F 13260 
-32F13270 
'32F13260 


32F 13290 
32F 13300 
32F13310 


32F13320 


32F 13330 
32F 13340 
32F13350 
32F13360 


32F13370 
. 32F13380 


32F13390 
32F13400 
32F13410 
32F 13420 
32F 13430 
32F 13440 
32F13450 
32F13460 
32F 13470 


32F13480 
-32F13490 


32F13500 


| 32F13510 


32F 13520 
32F 13530 
32F 13540 
32F13550 
32F13560 


* 32F13570— 
. 32F13580 
' 32F13590 
-32F13600 
~32F13610 


32F 13620 


PROG ID 
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2 


eal 


191228 
10A 


032F-2 
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yor 
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1442 TIMING TEST 


OAQE 
OASF 
OAAO 
OAA1 
OAA2 
OAA3 
OAA4 
OAA5 
OAAG6 
OAAT 
OQAA8 


oococoococo 


OAA9 
OAAA 
OAAB 
GAAC 
OAAC 
OAAE 
OAAF 
OABO 
OAB1 


OAB2 
OAB3 
OAB4 
OAB5 
OAB6 
OABT 
OABS 
OAB9 


eooeooceso oooooctcec 


OABA 
OABE 
OABC 
OABD 
OABE 
OABF 
OACO 
OAC1 
OAC2 
OAC3 
OAC4 
OAC5 
OAC6 
OAC7 
OACB 
OAcg9 
CACA 
OACB 
OACC 
OACD 
OACE 
OACF 
@ADO 
CAD1 
OAD2 


eooecooooocoecocooococoococoe 


OAD3 
OAD4 
OADS 
CAD6 
GADT 
oavs 


oooooo 


CATE 
EC NGe 


3EOG 
Bolé 
2iie 
525E 
2122 
TO9E 
6256 
9E21 
9E22 
T7230 
FFFF 


3676 
9E30 
6221 
7252 
3221 
T6B2 
721A 
3662 
FRFEF 


5E32 
2156 
1E26 
3632 
211€ 
3E62 
3298 
FFFF 


56032 
Tole 
2621 
3236 
5E3E 
A621 
6421 
0000 
FFF 
C400 
FCOUL 
Devo 
OCOO0 
FOUO 
F400 
DGVO 
D4VU 


‘E400 


EU00 
FCCS 


FCFC 


FCD8 


‘FCDC 


FCFO 


“FCFS 


8C10 


4020 


2040 
1030 


0900 
*°06VU0 


02 JAK 66 


415456 


ACOLT DC 


AMOD DC 


ALPC OC 


APDLY DC 


ADFCT DC 


* 
x 


* 


* 
PDATA DC 
oC 
oc 
DC 
oc 
DC 


 OILMAY6S 


4154903 


43E00 


/B616 
J211E 
4525E 
42122 
ST69E 
16256 
9E21 
S9E22 
7236 
/FEFF 


1/3676 
/9E36 


16221 


47252 
/3221 
17682 
‘721A 
13662 
/EFFF 


/5E32 
42156 
S1E26 
13632 
/211E 
S3E62 
43294 
/FFFF 


456B2 
/TO1E 
12621 
13236 
/S5E3E 
/A621 
18421 
L oe 

/FEEF 
7C400 
/FCOO 
7D80c 
/0C00 
7F000 
/F400 
/D000 
70400 
7E400 


4E000- 


7FCC4 


_FCFC 


/FCODB 
/FCOC 
/FCFO 
JECES 


SECESSEHESK ES KEKE CES FERRETS 


AVG COL 


INTRPT TIME 


ENTER MCD NUMBER 


LD PCHEC 


CAKCS 


PUNCH DELAY - X 


— 
COovmnw oO WS WN © 


(as 
= 


feat pad bet pu 
wi & WwW AD 


PUNCH ‘DATA TABLE 


48010 


- 44020 


12040 


~~ £1080 


40900 
40600 


15N0V66 
4 19643 


COLUMN -1 


. DELAY FACTOR 


SRESCKK FHSS SKERES EES | 


SSK SSEKEE EK KSEKEKEKST SERSESESHEKSKSEESK EKER SKE KEK ETE 


PART NO}. 


PAGE 


32F 13630 
32F 13640 
32F13650 
32F 13660 
32F 13670 
32F13660 
32F 13690 
32F13700 
32F13710 
32F13720 
32F 13730 
32F 13740 
32F13750 
32F13760 
32F13770 
32F13780 
32F13790 
32F 13800 
32F 13810 
32F 13820 
32F13830 
32F 13840 
32F13850 
32F 13860 
32F13870 
32F13880 
32F13890 
32F13900 
32F13910 
32F13920 
32F 13930 
32F 13940 
32F13950 
32F 13960 
32F13970 
32F13980 
32F 13990 
32F 14600 
32F14010 
32F14020 
32F14030 
32F 14040 
32F 14050 
32F 14060 
32F14070 
32F14080 
32F14090 
32F14100 
32F14110 
32F14120 
32F14130 


32F14140° 


32F14150 


~32F14160 


32F14170 


32F 14180 | 
32F14190. 
32F14200 | 


. 
| / ee / . Ly . 


2191228 
il 


32F14210 


32F14220 


32F14230- 


32F 14240 
32F 14250 


32F 14260. 


32F14270 


32F 14280 | 
32F14290 - 
32F14300. 
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‘A 
SZ 
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4 
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9 


| OAE2 


0308 
080 


—0B1C 
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1442 TIMING TEST 


CADS 
OACA 
CADB 
OADC 
OADE 
OADE 
OACDF 
OAEO 
OAE1 


OAE3 
OAES 
OAE5 
OAEo 
GCAET 
OAE8 
OAES 
OAEA 
OAEB 
OAEC 
OAECT 
OAEE 
OAEF 
OAFO 
OAF 1 
OAF 2 
OAF3 
OAF4 
OAFS 
OAF6 
OAF7 
OAF8 
OAFS 
OAFA 
OAFB 
OAFC 
OAFD 
OAFE 
OAFF 
OBOO 
OBO1 
OBO2 
0B03 
OB04 
0805 
03506 
0307 


OBOA 
OBOB 
OBUC 
OBOC 
OBOE 
OBOF 
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0900 
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~ 0000 
'- 8880 
4440 
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5550 
° 2220 
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3110 
0000 
0000 
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41110 
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4/8200 
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18040 
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8010 
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44200 


14100. 
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74010 
430900 


72890- 


424U0 
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—  2100- 


42080 
42040 
42020 
72010 
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403F0 
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48880 
74440 
42220 
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18880 
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46660 
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72220 
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OB1F 
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DC sFEFO 

DC JFFFO 
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.& = : 
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CROSS REFERENCE LISTING 


SYMBOL 
ABDSn» | 
_ ACCNT 
ACNBK 


ACOLT 


 ADATA 


ADFCT 
ADS w 


~ ADSW4 
ADWAS. 
~ AECK 

AFD 


ALCC 


ALDBK. 
ALOP. 
—ALPC 
-AMOC 
.  ANINT 
 ANRCY 


APCh 


-APCK 


APDLY 
ARD 
ASOSh 
ATL 
ATS 
AVG 
AVGCT 


—AWAS 
-BCNT 


BOSw 
EEGIN 


BGIN 


BOX 
BOX 1 
BOX2 


CKBLK 
~CKBUl 


CNTRL 


CN10 © 


CN20 
CN30 
COL 
COLCT 


COL'PC 
COLRD 
COMPR 
COMP 1 
COMP2 


COMP 3 
CTAVG 


DATA 


~ DINCR 
~DLPCt 


CSw 
DSwo 
EMSG 
END 
ENDPC 
ERLCK 


ERROR 


ERRO 
ERR] 
ERRIA 
ERK 10 


CATE 


EC NG. 


VALUE 
OA24 
0445 
OAU4 
OAQSE 
UA4L 
OAC] 
OQAlb 
OA2C 
O0A11 
CA4U 
GA63 
0A7& 
OAT2 
0A56 
OAB2 
OAAS 
O0A34 
OA66 
OASF 
OAZ3A 
OABA 
OA5C 
GA15 
VATE 
UABE 
G81D 
OB1A 
OAUC 
v9Dd5 
OSE 8 
0160 
USES 
09C2 
OSCT4 
O9CA 
Oo7D7 
070D 
0654 
0656 
0662 
0669 
vu918 
O9uC 


0960 


O95E 


0796 
O79A 
O7AF 
0738 
GAO] 
O90E 
O6E5 
OSAB 
USOA 
O8EA 
0905 
0164 
O6£&3 
0166 
0162 
082C 
O83& 
05+4 
U8A3 


O2JANEE 
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REFERENCES 
08D3 

O80DD . 

O8CE 

Oo7CcC 

0 8DF 

0683, 0685 

0804 | 
08D7 

0 8DC 

08DB 

09D6 

O3SDC mie 
0687,0722,0741 
0902 i . 
O6EB 

OSFF 

O8sD5 

0901 

0770 

0809 

OOBE 

o787 

08D1 

O8E0 

O8E 2 

O7E6, OTF6 
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09C 3, 09CD 

U84A » 0923 609309093120 54h 20948 
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0904 
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OTE2 | 

USF 9¢ C637 5 06485 064Ae06E8 s073E 2075 D 90944 0S ET, O9EF 


0656 

065B 

OOF F »0704,C79B,079D 

070C + G753,079F,070Be0 7EF «0808 ,O091C ,09D1E 909530954, 
0988 

07664 O9AD , OSAE 
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06CB, 0710,C79 7,0 7C2-C TCS 
0O7B 6, O7BA 

08ca 

O7A1 

o7c9 

0703, O88C » O88E 
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U8ED, O8EE , O8EF ,08FC 
0000, 0000,0000,0667 
06D4, 0717 -_ 

0825 
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1442 TIMING TEST @ YY = ———§ 1442 TIMING TEST 
{ 
@ - 
ERR11 0880 O7AD = . PAVG UAU2 0643, 0734 | 
ERR2 0849 0854, 0932 4 094C | PCCGL 0O9A3 0984 
ERR3 CS36 > ne PCH USAD 0978s 0947 
ERRS 0856 (80B, 0951 e PCMAX 0912 063D, O6CD. 
ERR5K C866 OB7E, 0883 PCMIN 06913 O6CE Ed 
ERR5S O6E5 0839» 0845,C857 = : PLATA OAD3 0694, 0698, 069A, 069E906E3 »06F4:0757 
ERRO 066D 0864 - PD3SAS O6E6 O62E,O06BA 
ERRT O87F O86F , 0875 < | _ | PDLAY Goll 069 1» 06A64 COACs 06 B02 06B8 sy 0600 ,0727 10746,09A3 
ERR& 0884 0889,0955_— | PDMAX U6E4 0621, 0690 . 
ERR U88B 0707, 08Al oo PDWAS (G6E2 0692, 06AD, 0682 
‘ERRSA = =UB9C 0896 PID 050C . OSEA 
ERX u88D OBAC » OBAF » 0889, 085C 3 : PONLY 0683 O5£D, 06364 06A7, 06ET7 20 73C 
ERX1 UsC 1 O8sBF . ; PTERM Q764 0769, 077C ,0780 : 
ERX2 08C5 osco | 3 PUNCH G765 06C 9, 0730, 073A4,0750,0782 
ETYPE O6EC 08325 0842, 0852 20869,087C 0881 »G88E .089C »08C5, 08FF, | e P6AVG 0660. 0642 
0939 : a POTM 067C 063C 
ETYP1  O8FA OaF5 _ RAD OSDE 0660 
ETYP2 O3FF O8F 8 7 RAVG VA03 0646, OT4A 
EXR1 UbCT 08A4, C83) | ROATA § 0962 095E », O99E 
EXR3 Uac9 O8A5, 0862 | =. % ROCOL 0U99D 0975,0987 
FEED 0969 O9DA a RDMAX 0914 0540 0712 
FIVE 0685 0633 | RDMIN 0915 0713 
GRAPH O7TE5 07365074 5 0816 | a READ 0784 O6F 7+ 0752 5079320795~e07DA 
GRPH1 O7F6 0807 | a. READY 0936 076E + 0785, 09BD,09CB 
FUND O08 1F OTF 3 : RID OSOD | O5EC » C6585 0660» 0662 20 664 5 0669 10942 209 ES 
ILO O17A 0000, 05F} RIDCK 0675 065A 
Iu 018A 0000 7 RP Sh UBE6 U77%» O78C » 0860, O8AAy O8BT 
IL2 019A 0000 - RQKB 018C 0000 
1L3 O1AA co00 RQTY 0138 0000 | 
IL4 OldA 0000, O5SF5 7 2s RTBL OBT74 07059 072A, 072 E,07554¢0 70D, 099F 
INTR U96E OSEF, 0591 -_ RTINGM 0676 0666 
INTRL 80979 0983 : RINSh 0105 0671 
INTR2 0993 O5F 340998 | 4 RTRN 0949 0997 
INTR3 9980 O9A2 RTTBL 0677 0568 » 0675, 0676 
KC8O0G 0960 0982 aS RX1 089D 0890 
KEFFE 096C | 0950 . | oa - R6AVG O6R1 0645 
KOOUS 0821 © O768,060C a : | ROTM OOTE 063F 
KO80G OUS96A . 094F se = SCALE O61E OTF5, O7FA | 
KB00G .0820  #. 800, 0812 a. SENSE 0964 09225 0934, 0574,0982 50581 » OSBAx09CA 
LOCK 0822 — O6CF, 0828 SENTY 0652 0610, 0650 
LOG 0163 | G6000,09F5 | - . | SMSG USFB O6C 1» O7CE » OSF 3,09F 4,0SFT,09F8 
LOGBY 0167  ~)— | ; . | wa 2 SNCGL 0963 0980 | 
LOOP =—s«U 8 FD - U6C5, 0732507 TA, 0708 082A | —_ SNCGM 0968 0994 
LRIN O676 © 0675 | a SP 0608 OSFC 
LSTCC 0906 0959 oe : = SPD1 0972 OolA 
M USS4 : OSF Ay 08944 0897,088D,08C6,0918 | | SPD2 O9TC O6l1E 
MAXPD . OA0U — .06BB eee ae . _ | SP D3 09B5 0627 
MLSCF - O5E5 0608+ 066F 9(:'52650929,053C 40999 ,09C6 | , 7 SP 1 U610 0613 
MUDNM 06382 ~~ —  O5F 7» 0603,(630 STACK O6ET 0834, O89F 
MOD 0630 Oo18 . i, aaten 8 . % START 0161 0900, 0609» 0673 20928 20940 50946 
MOD6 0638 + 0634 | os ae STOP 0966 . | 
MOD7 U649 . 063A a | | STPCH 0762 O777 
MSGG | OBCE 082E fy | | | STRD 0760 O78F 
MSG1 - C8D0 083E | = STRT O5EB 05£ 39 O5E 4s 060%, 064E 
~MSG10 O8—€O © OSA7 iy, tHe tage, aa Tge®. welee aaah pho dy | | 7 STRT1 0603 0606 
MSG1LI1: O8E2  08B4 | | a i © Sage SVKB 013D | 
MSG2 0802 + #.oss0 | Panes see oe ee ea SVXR1L 098D O96F » O9B7 
MSG3 .0604 |. 0938  — a ates ea SVXR2 O98F 0970 | 
MSG5 O8D6  ~=—.—sq«0 867 ee ap : SwO O5SDF 06D7 ¢ 0O71Ae07BB8,0823eCSE9 
MSG6 . 0808 08768 .. 7 vA Swi O5SEU 0655, 065E 40758 .093E 
MSG7 O8DA . Oo860 ~~ 7 : Sw2 05E1 O5F 5, CO03 5 060E,0640,0EAl y 09E0 
MSG8 G8DC .. 0887 | | Sw3 U5E2 OTE9, O9E2 
MSG9 -O8DE  . 0898 a. _ 3 _ TAVG CLE O68C» O6FO, 07324076390 789,07CT ,OTD3 
NRDY 0900 ~~. . | TEMP O8lec CO 7E&, OTEE se OTF 2,07F 5,0 7FC , O80F 
NRTN O67A 06T6 a TERM U96e 0966 | 
ONE 0684 0638, 0649 | . TIME 08C7 0736s O74E G7A55O07ABy CO TAF ¢ OTF T 9080440804 eO80De 0814, 
cp v905 0772.0789,0908 : O8F 0, OSTA, 097E20980 
OPMSw O8FS. .. 0830, U840,CSF3,08FE,091D : a TIMER U931 0986 
DATE ©: OeéJANGG _GIMAY66° ISNOV66.. 2. ee. PROG ID © 032F-2 va at. CATE OZJAN6E OLMAY66 15NOV66 PKCG ID 032F-2 
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TIMwWS Vv911 O8F 2 

TSTO] 0686 0677 

TSTO2 O6ET 0678 

TSTU3 O721 | 0679 

TSTO4 O73C COTA 

TSTO5 OT52. | 0678 

TwO C9OFl OYE6 

TYAVG vlCé V60B,071E.27C00,07D05,09ED 

TYP 0650 O6OF | 
TYPE USF 2 0601 » 0689 ,06C 3, 06E0.0 724,0743,0700,0903 ,0SDE,09F9 
Tu10 U690 U6EO 

TO11 0693 069D 

TO12 OGO9E O6oDF 

To13 Q6Al 06D 5 

T014 G6CT | O6A0, O6AE - 06D1,0603 

TO2]1 O6F4S © 0720 

O22 O6F7 0718 


T1023 OOFD | O6F 6» OTOE » 0714-0716 


T1024 0710 


7031) O72A 0720 
¥032 0732 | 0738 
~ TO41 07148 0751 
-TO51 | 0755 O75A 
WAIT 0919 0778, 0791 ,C93A,095B 
wAIT1 0924 O92F 
WAIT2 0929 
WAIT3 092D 0924 
WAITS O93€ | 0928,09C8 — 
wCNT 0948 0921,092D 
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READER/1442 MOD 5 PUNCH FUNCTION TEST 
TABLE OF CONTENTS 
GRAPH PAGE 
PURPOSE. oe.) 0 nd @e eo @ ‘ e e oo °o e oe @ ad * - 2 e e _@ 6 S @ eo 2 t~/) ° 
REQUIREMENTS oe o o © @ 2 0 0 eoeaee eo < o @ eee ee oe oe 
el PROGRAM REQUIREMENTS 
202 EQUIPMENT REQUIREMENTS 
OPERATING PROCEDURE 3 e oS t] ° @ oe @ eo o @ e @ oe @ 9 e o @ @ @ S 
el PROGRAM LOADING 
°2 PROGRAM OPERATION 
e2cl PROGRAM CONTROL OPTIONS — FUNCTION O 
eZe2 ROUTINE SELECTION — FUNCTION i 
e203 COLUMN COUNT CONTROL» ROUTINES 6 + 7» FUNCTION 10 
e2e% ERROR PRINT CONTROL» FUNCTION 22 
o2e5 SPECIAL SWITCH FUNCTION: ROUTINES 6 + 7 
o3 HALTS 
e3el NORMAL HALTS 
e302 ERROR HALTS 
o4 TERMINATOR 
305 RESTART 
PRINTOUTS» e @ é e eo 8 La oe o.6.OU68 6 @ e - 2 i) e e@ e oe CJ @ = S eG & Ss 
&ol STATUS MESSAGES 
&o2 ERROR MESSAGES 
COMMERTS Se eo @ so ee Ss e @ e@ °° ¢ . e t @ °e e@ Se 3 ad eo e @ S Se ed @ t) 
5.1 ROUTINE DESCRIPTION 
502 SERVICE SUBROUTINES 
563 MACHINE DISCOVERED ERRORS 
: HENGE OU ! ans 
| 
PURPOSE 
TO CHECK THE OPERATING PERFORMANCE OF THE 2501 READER AND THE 1442 MOD S 
PUNCH. THE. PUNCH. ROUTINES WILL RUN ON ANY 1462, BUT WILL CHECK ORLY 
THOSE FUNCTIONS WHICH ARE AVAILABLE ON 1442 HOD 5. 
PREREQUISITES 
201 THIS TEST ‘MUST BE RUN UNDER CONTROL oF DIAGNOSTIC “WONT TOR ile 
201 THE FOLLOWING EQUIPMENT IS REQUIRED 
le 1131 CPU. 
2. 2501 CARD READER. 
3. 1442 CARD PUNCH. . 
_ ' geeneseses 
15APR6O7 «1 SJUN6OT | | es fo PERRY ES ie PROG ID 030E-= 
#20317) PAGE 000) 
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3. OPERATING PROCEDURE 
3.1%%% PROGRAM LOADING 


STANDARD MONITOR LOADING PROCEDURES APPLY 
THESE PROCEDURES ARE SUMMARIZED HEREe SEE DM USE PROCEDURE FOR 
DETAILS. 


le SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEF? MARGIN. 
20 SET BIT SWITCH 15 OFF = LOAD AND GO © 
ON - TG SPECIFY OPTIONS BEFORE RUNNING. 


IF HALT AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE (SECTION 
3e5)e 


3, LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
4. SELECT PROGRAM OPTIONS, IF DESIRED. 
“Sees 


23.25% PROGRAN OPERATION. 


THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ORLY. 
FOR OVERLAP OPERATION, REFER TO SECTION 302. 3 OF THE 1130 OLAGNOSTIC 
HONITOR II DOCUMENTATION’ 


NOTE TO RUN 1442 IN OVERLAP WITH THE 2501, USE 1442 TIMING TEST. THE 
2501/1442 TEST MUST BE LOADED FIRST. SELECT THE DESIRED 250i ROUTINE 
BEFORE STARTING THE 1442. ROUTINES IN THIS TEST WILL NOT OPERATE 
PROPERLY. 


TIMING FROM 21442 TIMING TEST WILL NOT BE ACCURATE WHEN THE TEST IS 
OVERLAPPED. 


(30201 PROGRAM CONTROL - FUNCTION O 


i. SET SWITCHES 0-7 TO 01. 
2. SET SWITCHES 8-15 AS DESIRED. 











Su FUNCTICGN 
8 RESTART . 
9 ROUTINE START MESSAGE 
10 LOCK GN FUNCTION 
li LOOP PROGRAN 
12 LOOP ON ERROR 
13. ~—. BYPASS ERROR PRINTOUT 
14 HALT ON ERROR 
15 HALT 
3. PRESS INT REQ KEY ON CCNSOLE} 
So 
DATE  15APR67  15JUN67 | PROG 10 


EC NOe 419605. 420317 | PAGE 
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3e202 ROUTINE SELECTION - FUNCTION 1 


THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 


le TO SET ROUTINE SELECTION 
Ae SET SWITCHES 0-7 TO 41. 
Be SET ROUTINE NUMBER IN SWITCHES 12-15. 






































RTN DESCRIPTION 
i PUNCH ROTATE PATTERN ©: -e@ WNORMAL ROUTINES= 
2 ~ READ ORTATE PATTERN e THE PROGRAM STARTS WITH 
3 READ COLUMN COUNT CONTROL e ROUTINE 1, RUNS EACH 
wt re e ROUTINE IN SEQUENCE 
e THEN TERMINATES AFTER 
' a 'e@ ROUTINE 3. 
eran er enema ara em es 
& GANG PUNCH e OPTIONAL. ROUTINES |. 
5 READ GANG PUNCHED DECK e THESE ROUTINES RUN 
6 PUNCH SELECTED PATTERN e ONLY IF SELECTED. 
7 READ SELECTED PATTERN e 
8 REPRODUCE e 
9 REPLACE ROTATE PATTERN e 














Ce. PRESS INT REQ KEY ON CONSOLE. 


2e TO RESET ROUTINE SELECTIONe SET AS IT SELECTING ROUTINE ZERO. 


3e2e3 COLUMN COUNT CONTROL» ROUTINES 6 ¢ 7e FUNCTION 10. 

THIS FUNCTION ALLOWS SELECTION OF THE NUMBER OF COLUMNS PUNCH OR 
READ IN ROUTINES 6 + 7e THE DESIRED NUMBER OF COLUMNS IN BINARY 
IS SET IN SWITCHES 8 = 15. IF NO ENTRY IS MADE, OR THE FUNCTION 
CLEARED, 80 COLUMNS ARE ASSUMED. 


le SET SWITCHES O-] TO 10. 
2e SET PROGRAM LOAD SEQUENCE NUMBER IN SW 4-7. 
3e SET THE NUMBER OF COLUMNS DESIRED IN BINARY IN au 8-15. 
4&-e PRESS INT REO KEY. 
ge 


3.204 ERROR PRINT CONTROL, FUNCTION 12 


THIS FUNCTION PROVIDES CONTROL OF DATA COMPARE ERROR PRINTOUTS. 
IF THIS FUNCTION IS SET TO ZEROs ALL ERRORS WILL PRINT FOR EACH 
CARD. IF IT IS SET TO ANY. OTHER VALUEs ONLY THE FIRST ERROR IN 
EACH CARD IS TYPED. | 


lo SET SW O-1 ON. 

2. SET PROGRAM LOAD SEQUENCE NUMBER IN SW 4-7. 

3. IF ONLY ONE MESSAGE PER CARD IS DESIRED» SET ANY VALUE IN 

Sw 8-1] 5. 
4s PRESS INT REQ KEY. 
zs 
3.2.5 SPECIAL SWITCH FUNCTION, ROUTINES 6 +7. 
- ROUTINES 6 + 7 CALL FOR THE SELECTED PUNCH PATTERN TO BE PLACED 
IN THE SWITCHES. SWITCHES O-11 REPRESENT PUNCH ROWS 12-9 


RESPECTIVELY, AND SWITCH 12 SIGNALS THAT THE SETTING IS COMPLETE. 
eeSes8 
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2501 READER/1442 MOD 5 PUNCH FUNCTION TEST 
| rs 
3.3%** PROGRAM HALTS : 3 
32301 NORMAL HALTS: i 
SHALT NO. DESCRIPTION a RESTART is 
2(B REG). : ACTION ; 
2» 3001 . PROGRAM STOP OR ADDRESS STOP .« PRESS START ; 
. @ e : e : : e 
e 3002 e HALT ON ERROR e DISPLAY MODE-PRESS START. 
e e@ e RUN MODE-PRESS START e 





























es 

30302 ERROR HALTS 
eHALT NOe DESCRIPTION ° RESTART ° 
0(B REG). | oo o ACTION a 
e =D e PED - EP wee= e SL PES AD EP NS LED El GHD oy 
@ ® @ 
e 30Fl . CHECK SUM ERROR ON FIRST e RELOAD : 
° ° CARD OF LOADER o | 
@ @ e , e 
e 30F2 . READER DSW ERROR WHEN e RELOAD . 
° ° LOADING LOADER ° a 
® e o 
- 30F3 . — CARD 2 OF LOADER DID NOT » RELOAD 
° ° LOAD 2 _ ee 
e e . e ‘~ 
° 30F4 . CAN NOT CLEAR CORE = DUE TO . e 
. ° ERROR IN ADDRESSING UPPER ° : 
e ® CORE. e e 
@ @ e 
e 30F5 . READER CHECK WHEN LOADING »  NPRO THEN PLACE CaRDS ... 
° ° MONITOR OR TEST PROGRAM e RUN OUT IN FRONT OF ‘ 
° ° 7 e REMAINING DECK AND PRESS, 
oe e @ START. - a, eo. 
e e e ‘ — 
° 30F6 . MONITOR DID NOT LOAD e RELOAD ° 
® eo e 
e 30F7 . CHECK SUM WHEN LOADING e RELOAD ; 
° @ MONITOR ° ee 
eo. - ° e 
e 30F8 . READER NOT READY e MAKE READER READY e 
e e -  @ 
e 30F9 . INVALID INTERRUPT WHICH WILL © PRESS RESET AND START 
‘ m NOT.RESET . ° ; 
° 30FA . CONSOLE PRINTER HANG UP —- © FIX THE CONSOLE PRINTER « 
. . BUSY WILL NOT GO OFF e OR NOP THIS WAIT ° 
@ Se e@ OE LL LED TI TTY SD e 


eeecee 
324*** PROGRAM TERMINATION 


IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 3-2 ROUTINE 4 THRU A WILL ONLY RUN 


SELECTED. 
IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 
Seeeee 
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co ee a PAGE 0003 
2501 READER/1442 MOD 5 PUNCH FUNCTION TEST : 


3/5888 RESTART 


le SET SWITCHES O-7 TO Ol. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 
SSSESSESESeKES 


pate 15aPRO7 «=: 1 SJUNET | | PROG 10 = 030E=8 
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4. PRINTOUTS 


ALL PRINTOUTS ARE " aE. STANDARD FORMAT. 


APPNN OORR AAAA- - ”—t—~™ (MESSAGE) 
OR + 
EPPNN OORR AAAA (MESSAGE) 
WHERE ‘A IDENTIFIES STATUS MESSAGES 
E IOENTIFIES ERROR MESSAGES 
pp 


Ge 1sse 


A0000 


A000) 


AOECO OOOR 


AOEO] OORR 


_A0EO2 OORR 


IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 
THIS WILL BE EITHER 00 FOR MESSAGES 





2243552 
0003A 


ORIGINATED BY THE MONITOR OR 7 ee 


OE FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 


NN IS THE MESSAGE SEQUENCE NUMBER 
RR IS THE ROUTINE NUMBER 
AAAA IS THE ADDRESS OF THE ROUTINE 
MESSAGE IS ANY VARIABLE INFORMATION 
MMMM JS THE MACHINE TYPE 


STATUS MESSAGES 


NUM PID AORS RELF LD 
HMXX XXXX AXAXKX AAXX 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO MELECH: ane PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. | | 


SWS PID 
XXXK RAAS 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITC.4 ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM 'NTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 


AAAA 


ROUTINE START MESSAGE — IF SWITCH 95 FUNCTION 0, 1S TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFURE THE START OF EACH ROUTINE. 
R 1S THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 


AAAA : LOAD AND MAKE RDV- 
MMMM 7 


THIS MESSAGE IS PRINTED WHEN THE PROGRAM IS INITIALIZING & 
MACHINE IN ANY ROUTINE. LOAD THE PROPER CARDS IN THE 
MACHINE AND PRESS START. pes 7 


AAAA  NRDY 
 pdaanene 


THE PROGRAM IS WAITING FOR READY ON A MACHINE BEFORE 


INITIATING AN OPERATION. PRESS START. IF THE MESSAGE 
PERSISTS EVEN THOUGH THE READY LIGHT ON THE DEVICE IS On, 


THE NOT READY BIT (15) IN THE DSw IS PROBABLY STAVING ON. 


DATE \5APR67 15JUN67 PROG 10 
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PAGE 0004 . 


AOEO3 OORR AAAA LAST CARD 


THE LAST CARD BIT WAS ON THE DSW SENSED ON THE LAST OP COMPLETE 
INTERRUPT. THIS SKOULD OCCUR ONLY ON THE OPERATION AFTER THE 
START KEY WAS DEPRESSED WITH THE HOPPER EMPTY AND A CARD IN 

THE PREREAD STATION. IF THIS MESSAGE OCCURS AT ANY OTHER TIME, 
CHECK PROPER OPERATION OF DSW BIT 36 











AQEO4 0006 AAAA SET PATT IN SW O-11 THEN TN SW 12. 
THIS MESSAGE FROM ROUTINE 6+ *PUNCH SELECTED PATTERN® CALLS 
FOR THE OPERATOR TO SET THE DESIRED PATTERN IN THE SWITCHES. 
SWITCHES O-]]1 REPRESENT PUNCH ROWS 12-9 RESPECTIVELY. WHEN 
ThE SETTING IS COMPLETE, TURN ON SWITCH 12 TO SIGNAL THE | 
PROGRAM. PUNCHING WILL THEN START. JF THE SWITCH SETTING 
1S CHANGED, THE PATTERN WILL CHANGE SO LONG AS SWITCH 12 IS ON. 
IF SwITCH 12 IS TURNED OFF, AND THE PATTERN CHANGED, PUNCHING 
WILL STOP UNTIL SWITCH 12 IS AGAIN TURNED ON. 
AOEOS 0007 AAAA SET PATT IN SW O-11 THEN TN SW 12 
THIS MESSAGE FROM ROUTINE Te "READ SELECTED PATTERN® CALLS 
FOR THE OPERATOR TO SET THE PATTERN OF THE DECK HE INTENDS 
TO USE INTO. THE BIT SWITCHES. SWITCHES O-11 REPRESENT ROWS 
12-9 RESPECITIVELY. WHEN THE SETTING IS COMPLETE, TURN ON 
SWITCH 12 TO SIGNAL THE PROGRAM. THE PROGRAM WILL READ CARDS, 
COMPARING THE DATA READ TO THE BIT SWITCH SETTING. NO PROVISION 
IS MADE FOR CHANGING THE SWITCHES EXCEPT AT THE BEGINNING OF 
ROUTINE 7. 
4.288 ERROR MESSAGES | 
THE OSw 1S CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR THE 
SPECIFIC PROBLEM AREA. 
RESCSSEESSSESTSASTEAKSSSESSESSERASHSESSSSSSSKSAESESSSSSSSSESS 
s THE 2501/1442 DSW 8s 
oeeeeeone - a s 
Pf s 
s BIT & 
% 0 READ COLUMN (1442) s 
* 1 PUNCH COLUMN (1442) * 
* 2 ERROR | * 
* 3 LAST CARD s 
s 4 OPERATION COMPLETE s 
* 5 NOT USED s 
* 6 NOT USED => 
a 7 NOT USED * 
% 8 NOT USED * 
s 9 NOT USED s 
% 10 NOT USED * 
* 1) NOT USED s 
s l2 NOT USED * 
* 13 NOT USED * 
s 14 BUSY | . 
s 15 BUSY oR NOT READY H 
ee « 
sHaSneeaeaseneeacencnsceaenseusenseneeseneesenseesess 
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2501 READER/1442 MOD 5 PUNCH FUNCTION TEST 


£0001 | SWS INVLD 
7 ne... Se 


THE SETTING OF SWITCHES “7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 


E0003 a - OVR CORE 


THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 


E0004 ‘ | - CKSUM 


A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM, 
THIS ERROR OCCURS UNDER ANY OF THE. FOLLOWING CONDITIONS. 


le. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2e THERE IS AN EXTRA CARD IN THE DECKe | 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION, 
5e OVE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 

— + CORRECTLY CALCULATED. 


WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 
£0005 - # OOON XXX 


THIS ERROR WILL OCCUR 1S AN INTERRUPT OCCURS» BUT THE ILSw 

WAS NOT CORRECT} N JIS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSWe THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSSI. NO ATTEMPT eae JADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. | 


EOEO] OORR AAAA © -. WAS S/B. DSW ERR LEVEL 4 
. | DODD | DODD MMMM 


AN UNEXPECTED CONDITION HAS BEEN. DETECTED IN THE OSW FOR 
MACHINE (MMMM) ON INTERRUPT LEVEL 4. DATA MODIFIERS (DODD) 
SHOW THE DETECTED DSW, AND WHAT IT SHOULD SEs IN HEX. 


EOEO2 OORR AAAA WAS S/B DSW ERR LEVEL O 
DDDD DDDD MMMM 


SAME AS EOE EXCEPT FOR ech 0 


EOEO3 OORR AAAA NO INTRPT | 
ee. ne 


AN OPERATION WAS STARTED. ON THE MACHINE (MMMM) AND 

NO OP COMPLETE INTERRUPT WAS RECEIVED DURING A 15 SECOND 
TIMEOUT. THE ROUTINE RR WILL BE STARTED AGAIN FROM THE 
BEGINNING. THIS MESSAGE INDICATES A FAILURE OF EITHER THE 
INTERRUPT GENERATION CIRCUITS OR THE READY CIRCUITS. 


EOEF OORR AAAA WAS S/B DSW ERR INITIALIZING 
444m ono MMMM 


THE DSW FROM MACHINE (MMMM) WAS RESET, THEN SENSED BEFORE 
ANY OPERATION WAS STARTED IN ROUTINE (RR)e AND AN 
UNEXPECTED CONDITION WAS PRESENT. DATA MODIFIERS (D000) 
SHOW THE DETECTED DSW. AND WHAT IT SHOULD BE IN HEX. THE 
PROGRAM WILL REPEAT THE RESET AND SENSE DSW OPERATION 
CONTINUOUSLY, AND RETYPE THE MESSAGE EVERY 15 SECONDS. NO 
| OPERATION WILL BE STARTED UNTIL THE INITIAL DSW IS CORRECT. 
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2501 READER/1442 MOD S PUNCH FUNCTION TEST 2501 READER/1442 MOD 5 PUNCH FUNCTION TEST 
- 3 

EQEO6 CORR AAAA | - WAS S/8 COL COUNT ERR. 3 S. COMMENTS 


DDDDD DDDDD 1442 | 
5el*** ROUTINE DESCRIPTIONS 


AFTER PUNCHING A CARD, A COMPARISON WAS MADE OF THE ‘3 | w) 
ADDRESSES OF THE PUNCH TERMINATOR AND THE LAST COLUMN THERE ARE TEN TEST ROUTINES IN THE 2501/1442 FUNCTION TEST. 
PUNCHED. THE DATA MODIFIERS (DDDD) SHOW THE NUMBER OF ; THE FIRST THREE ARE *NORMAL ROUTINES, IE THEY ARE RUN WHEN NO 
COLUMNS PUNCHED, AND THE NUMBER WKICH SHOULD HAVE PUNCHED, ; 7 -. ROUTINE SELECTION IS MADE. AND CONSTITUTE A COMPLETE FUNCTIONAL 
IN DECIMAL. A PUNCH CHECK WILL NORMALLY PRODUCE THIS CHECK OF THE 2501 AND 1442- ROUTINES 4» 55 6% 7 AND A RUN ONLY IF 
ERROR; SINCE PUNCHING IS STOPPED AT THE COLUMN WHICH VIELOS SELECTED, AND PRGVIDE A MEANS OF EXERCISING CERTAIN FUNCTIONS, 
THE CHECK. ) 7 AND/OR BIT LINES. ROUTINES 8 AND 9 ARE UTILITY ROUTINES. 

_ 7 ~ 7 , | ALL CF THE TEST ROUTINES FOLLOW THE SAME GENERAL ORGANIZATION, 

-€0E0O7 CORR AAAA | WAS S/B COL COUNT ERR _ UTILIZING THE SERVICE SUBROUTINES. 

_ " DDDOD DODDD 2501 | ’ ) 
; | : GENERAL CRGANIZATION OF TEST ROUTINES 
AFTER READING A CARD, THE READ AREA IS CHECKED FOR THE _ : 
PROPER NUMBER OF CHARACTERS. THE DATA MODIFIERS (DDDDD) | | a le INITIALIZE THE DEVICE CINPCHe INROR). 
SHOW THE NUMBER READ» AND THE NUMBER EXPECTED. THIS | 2 SET UP DATA FOR PUNCHING OR COMPARE. 
MESSAGE COULD BE CAUSED BY FAILURES OF THE CR WORD COUNT | Ze CHECK STATUS. (CHK14, CHK25)~ 
REGISTER, CYCLE STEAL CIRCUITRY, OR THE CR ADDRESS REGISTER. ) ) Ph eae ie OPERATION (PNCHe RDACO) 
| e CHECK DATA. 
EOEOB OORR AAAA ag WAS S/B COL DATA ERR . 6e SET UP DATA FOR NEXT OPERATIONS 
- DNDD ODDD ODDOD | ) *) Te RETURN TO (3). CHECK STATUS. 
AFTER READING A CARD, THE DATA READ DOES NOT EQUAL THE , vs | 
DATA EXPECTED. THE DATA MODIFIERS (DDDD) SHOW THE Selel OPERATION OF NORMAL ROUTINES 
DATA READ, AND THE DATA EXPECTED IN HEX- AND THE COLUMN ; > y oe ae : 
NUMBER IN DECIMAL. THIS ERROR CAN COME FROM ROUTINES | 7 Ae ROUTINE l--e-—— PUNCH ROTATING PATTERN. . | 
2+ 5 OR Te : | | | | | | ae 
a - THIS ROUTINE PUNCHES A ROTATING PATTERN IN 80 COLUMNS. 


| THE PATTERN REMAINS FIXED IN STORAGE AND THE BEGINNING 
| ADDRESS IS INCREMENTED THRU THE FIRST 79 POSITIONS OF 

> | > THE 160 WORD FIELD. THE ADDRESS IS THEN RE-INITIALIZEDs 
| | | AND THE PROCESS REPEATED. 
| 


: 3 > Be ROUTINE Bowman READ ROTATING PATTERN. 
FHS ROUTINE READS THE DECK PUNCHED BY ROUTINE 
a ee ONE. DATA IS COMPARED IN THE SAME MANNER AS IT WAS 
PUNCHED. 
7:9 Ge ROUTINE 3=--——= READ COLUMN COUNT CONTROL 
, : THIS ROUTINE READS CARDS, VARYING THE WORD COUNT FROM 1 TO 
5° 3 80. THE LENGTH CHECK Is PERFORMED BY THE RDACD SERVICE 
Buen OUR INES, ft 
5 5 Be ROUTINE 4——-——— GANG PUNCH. 


| | THES ROUTINE READS ONE CARD IN THE 2501 AND PUNCHES THAT 
313 DATA CONTINOUSLY ON THE-1442. THIS ALLOWS PUNCHING ANY 
a PATTERN FOR ADJUSTMENT OR SCOPING PURPOSES. 


3 3 Bs ROUTINE 5—------ READ GANG. PUNCHED. DECK. 
ss THES ROUTINE READS THE FIRST CARL INTO A COMPARE AREA, 
4 3 | AND READS THE REMAINING CARDS INTO THIS READ AREA, COMPARING 
THE DATA TO THAT FROM THE FIRST CARD. THIS ALLOWS READING 
| ANY PATTERN FOR ADJUSTMENT OR SCOPING PURPOSES. 
7: 3 | 
| 
i 
: pee, 
3 3 
3 a) 
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2501 READER/1442 MOD 5. PUNCH FUNCTION TEST 


Se2tt 


DATE 
EC NO. 


eg! 


Ge 


He 


Ie 


Je 


ROUTINE 6—--——— PUNCH SELECTED PATTERN. 


THIS ROUTINE READS THE CONSOLE SWITCHES AND PLACES THE 
SETTING OF SWITCHES 0-11 IN THE PUNCH AREA. SWITCH 12 
SIGNALS THE PROGRAM THAT THE SETTING IS COMPLETE. THE 
SETTING MAY BE CHANGED AT ANY TIME, AND THE PUNCHED 
PATTERN WILL CHANGE ON THE NEXT CARD. IF SWITCH 12 IS LEFT 
ON» PUNCHING WILL CONTINUE.’ IF SWITCH 12 IS OFF AND THE 
PATTERN CHANGED, PUNCHING IS STOPPED UNTIL THE PATTERN JS 
SET AND SWITCH 12 TURNED ONe THE NUMBER OF COLUMNS 
PUNCHED MAY BE VARIED, BY MAKING AN ENTRY TO FUNCTION 10% 
“WITH THE NUMBER CF COLUMNS (IN BINARY) IN THE DATA 
SWITCHES. 


ROUTINE 7 ~------ READ SELECTED PATTERN. 


THIS ROUTINE READS THE CONSOLE SWITCHESs AND COMPARES THE 
DaTA READ TO THE SETTING OF SWITCHES O-1l1. THIS SETTING 
1S MADE IN THE SAME MANNER AS IN ROUTINE SIX, BUT WILL NOT 
CHANGE EXCEPT AT THE BEGINNING OF THE ROUTINE. THE NUMBER 
OF COLUMNS READ AND CHECKED MAY BE VARIED, AS IN ROUTINE | 
S1Xe 


ROUTINE 8 ae rrr. 


THIS ROUTINE WILL REPRODUCE A DECK FROM THE 2501 TO THE 
1442. ALL CHECKS ARE PERFORMED IN THE SERVICE SUBROUTINES. 


ROUTINE 9 - 





REPLACE ROTATE PATTERN. 


THIS ROUTINE READS ONE CARD FROM THE 2501 AND REPLACES THE 
DATA IN THE ROTATE PATTERN TABLE WITH THAT READ FROM THE 
CARD. LINKAGE IS MADE DIRECTLY TO ROUTINE ONE AND 

NORMAL TESTING FOLLOWS AS IF NO SELECTION HAD BEEN MADE. 


ROUTINE A --—— READ VARIABLE DELAY. 


THIS ROUTINE CHECKS THE 2501 FEED MECHANISM WITH VARYING 
DELAY BETWEEN READ COMMANDS. IT BEGINS READING CARDS 

WITH MINIMUM DELAY, AND INCREMENTS THE DELAY XX MSEC AFTER 
EACH CARD. IF DESIRED, A FACTOR MAY BE SET IN THE CONSOLE 
SWITCHES. IF ANY CONSOLE SWITCHES ARE SET, A DELAY OF THEIR 
VALUE TIMES XX MSEC IS GENERATED. IF THE CONSOLE SWITCHES 
ARE ALL OFF, THE DELAY FACTOR IS PRE REENTeY FROM 1 BY 1 
UNTIL THE LAST CARD . READ. 


SERVICE SUBROUTINES: 
As CNTRL —- SEQUENCE CONTROL 
THIS SUBROUTINE CHECKS FOR ROUTINE SELECTION, AND CONTROLS 
THE SEQUENCE IN WHICH THE TEST ROUTINES ARE RUN. 
B. DSW1A ——- LEVEL 0 1442 INTERRUPT SERVICE 
THIS SUBROUTINE SERVICES THE PUNCH COLUMN INTERRUPT FROM THE 
1442. IT ISSUES THE PUNCH COMMAND, INCREMENTS THE PUNCH 
ADDRESS, AND CHECKS THE DSW FOR ERRORS. IT IS NOT POSSIBLE 
TO TYPE THE ERRORS DURING PUNCHING, SO THEY ARE ACCUMULATED 
FOR CHECKING AFTER UP COMPLETE} 
Ce. OSW4A ——— LEVEL 4 1442 INTERRUPT SERVICE 
THIS SUBROUTINE SERVICES THE OP COMPLETE INTERRUPT FROM THE 
1442. IT SAVES THE DSW AND SETS UP THE LINKAGE FOR RETURN 
TO THE DSW ANALYSIS SUBROUTINE} | 
15APR67 15 JUN67 
419605 420317 PAGE 
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2501 READER/1442 MOD 5 PUNCH FUNCTION TEST 


DATE 
EC NO. 


é De 


E. 


Fe 


Ge 


He 


ool —_—- LEVEL, & °2501 INTERRUPT SERVICE 


THIS ‘SUBROUTINE PERFORMS THE SAME FUNCTIONS AS DSW4A, EXCEPT 
FOR THE 2501. 


DSWAN -=— DSW ANALYSIS 


THIS SUBROUTINE IS ENTERED ON RETURN FROM EITHER 2501 OR 
1442 OP COMPLETE INTERRUPT. IT FIRST CHECKS FOR ANY LEVEL O 
OSW ERRORS AND THEN ANY LEVEL & DSW ERROR, GENERATES THE 
ERROR MESSAGE, IF ANY, AND RETURNS TO THE TEST ROUTINE. 


TYPE AND E TYPE --— MESSAGE OUT 


THIS SUBROUTINE CONTAINS THE INSTRUCTIONS NECESSARY. TO LEWK 
TO MONITORS LOG” ROUTINES» AND THE MESSAGE AREAS: fas 


WAIT ——— INTERRUPT: WAIT. 


THIS SUBROUTINE IS ENTERED IMMEDIATELY AFTER INITIATING 

A READ OR PUNCH OPERATION. IT CONTAINS A TIMING LOOP, 
WITH A RETURN TO MONITOR TO ALLOW OTHER PROGRAMS TO 
OPERATE IN OVERLAP. IF NO OP COMPLETE INTERRUPT OCCURS, 
THE LOOP WILL TIME OUT. AND THE SUBROUTINE WILL GENERATE . 
THE NO INTERRUPT MESSAGE. WHEN THE INTERRUPT OCCURS» 

IT WILL GHECK THE ROUTINE SELECTION SWITCH. IF A NEW 
ROUTINE IS SELECTED, IT WILL LINK TO CONTROL. IF NOT, IT 
WILL REMURNS VIA MONLTORs TO DSWANe 

INPCH, INRDR -—— INITIALIZE PUNCH AND INITIALIZE READER 
THE PROPER SUBROUTINE IS LINKED TO FROM EACH TEST ROUTINE 
WHICH USES THE DEVICE, BEFORE ANY OPERATION IS STARTED ON 
THAT DEVICE. IT FIRST GENERATES THE LOAD MESSAGE, SHEN 
ISSUES A SENSE DSW COMMAND TO RESET THE DEVICE, THEN 
ANOTHER SENSE DSW... THE SECOND DSW IS CHECKED FOR ANY 
BITS OTHER THAN NOT READY OR LAST CARO. IF ANY ARE 
PRESENT A DSW ERROR MESSAGE IS GENERATED AND THE CHECK 
RETRIED. THE SUBROUTINE WILL NOT RETURN TO THE TEST 
ROUTINE UNTIL A PROPER OSW IS SENSED. 


CHK14, CHK25.e —-— CHECK STATUS 


‘THE PROPER SUBROUTINE IS LINKED TO FROM THE TEST ROUTINE 


Je 


Ke 


LSAPR67 
419605 | 


BEFORE EACH OPERATION IS STARTED ON THE DEVICE. IT CHECKS 
THE DSW wORD FROM THE LAST OP COMPLETE FOR LAST CARD, AND 
GENERATES THE MESSAGE AND LINKS TO CNTRL IF IT IS ON. IF 
NOT, IT CHECKS FOR READY CONDITION,» WAITS UNTIL THE DEVICE 
IS READY s THE RETURNS TO THE TEST ROUTINE. 


PNCH =--- PUNCH A CARO 


THIS SUBROUTINE CONTAINS THE INSTRUCTIONS NECESSARY To SET 
UP THE PUNCH TERMINATOR, INITIATE THE PUNCH OPERATION, AND 
CHECK THAT PUNCHING THE PROPER NUMBER OF COLUMNS WERE 
eee IF AN ERROR MESSAGE» BEFORE RETURNING TO THE TEST 
ROUTIN e 


RDACD ——— READ A CARD 


THIS SUBROUTINE FIRST FILLS THE READ IN AREA WITH WORDS | 
CONTAINING ONLY BIT 15+ FOR LENGTH CHECKING. IT THEN. 
INITIATES A READ OPERATION AND LINKS TO WAIT. ON RETURN FROM 
OP COMPLETE INTERRUPT, IT CHECKS THAT THE PROPER NUMBER OF 
COLUMNS WERE TRANSFERRED, GENERATES THE THE ERROR MESSAGE, 

IF ANY, AND RETURNS TO THE TEST ROUTINE. 
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2501 READER/1442 MOD 5 PUNCH FUNCTION TEST | | xn. Cee ae , 2501 READER/1442 MOC 5 PUNCH FUNCTION TEST 
a) 3 
Se 3eee ‘MACHINE DISCOVERED ERRORS” a) 5 5e4*ee ERROR CHECKING BY ROUTINE 
THE FOLLOWING ARE EXAMPLES OF WHAT MESSAGES TO EXPECT FOR CERTAIN a | EACH ROUTINE OR SUBROUTINE WILL PRODUCE ITS OWN ERROR MESSAGE. 
‘MACHINE CHECKS. THE LIST IS NOT. COMPLETE BUT IS SUPPLIED TO | ) 5 SINCE EACH OF THE SERVICE SUBROUTINES SERVICE SEVERAL TEST ROUTINES» 
FAMILIARIZE THE USER WITH. THE ERROR ‘CHECKING PHILOSOPHY. — THEIR MESSAGES MAY OCCUR IN ANY TEST ROUTINE.’ THE FOLLOWING IS A 
: ee ee | LIST OF THE ERROR MESSAGES, AND ITS SOURCE. 
es READ CHECK WHILE RUNNING ROUTINE 2. 2 we 2 | ) > 
7 | | ROUT INE/ SUBROUT INE - — — MESSAGES 
EOEO] 0002 Osea =o WAS S/B DSW ERR- LEVEL & © | | DSW ANALYSIS (DSWAN) - —- = E0E01 
-_ 2801 0801 2501 | y =) | . : : EOEO2 
(THE DSW SHOWS ‘AN ERROR BIT) | ; 
| | .e | WAIT FOR INTERRUPT (WAIT) - - —- EOEO3 
EOEOS8 0002 06 Pe a WAS S/B COL DATA ERR | ) =) 
| | 4020 4060 00010 7 . 2 3 INITIALIZATION CINPCH, INROR) - — EOEOS 
(THE DATA DID NOT COMPARE BECAUSE A SEVEN PUNCH | ) >) PUNCH A CARD (PNCH) - - = E0E06 
‘WAS DROPPED IN COL 10. THIS MAY NOT OCCUR ON A READ | | : 
CHECK.) we | < oa | : READ A CARD (RDACD) - = = E0E0T 
: 
a0c02 0002 O6EA NRDY | ROUTINES 2, 5, 7 - - - E0E0S 
| ; 2501 | 
| ) ) _ MONTTOR | - = = €0001 
(THE MACHINE WENT NOT READY WITH THE READ'CHECK > | E0002 
TRIGGER ON) oS | | | , | E0003 
| ») y —- €0005 
2e A FEED CHECK WOULD YIELD A DSW ERROR AND NOT READY IN SIMILAR nz : | 7 E0004 
- SASHION. | . | | 
| . ) ) 
3. ‘PUNCH ECHO CHECK WHILE RUNNING ROUTINE 4 | oF | 
EOEKO2 0006 «= 0739 WAS S/B DSW ERR LEVEL 0 a) 
| . 6003 4003 1462 a oS 
(THE LEVEL 0 OSW SHOWS THE ERROR BIT) 7 
y ) “ 
EOEOl 000% 0739 - WAS S/B DSW ERR LEVEL ry | 
oe ae 2601 00080 1442, : 
| (SO OOES THE LEVEL 4 OSw) - > 9 
E0E06 0004 0739 | | WAS S/B COL COUNT ekk - tes SS 8 
90056 00080 1442 ) ) 
“(THE ERROR OCCURRED IN COL 56e TERMINATING THE 
PUNCHING» } | 
ADEO2 0004 0739 NRDY i 
(READY DROPPED OVE TO THE PUNCH CHECK) 
; @e FEED CHECK ON 1442 WOULD YIELO DSW ERRORS AND NOT READY IN 
SIMILAR FASHION. 
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DATE 
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* EQUATE TABLE 

SESSKSSSSCSKSRSETCSETKCKCE SKE SKSSKSEKCKTEECKESKKLELS 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* 2 SADDRESSESs 

7 

* MONITOR ENTRY ADDRESSES 

Se ee eee Se ee Se ee eee eee rere 2S _— op ap we 

BEGIN EQU 40160 | BEGIN ROUTINE 

START EQU  -—- BEG IIN+#1 SUPERVISOR ROUTINE 

ERROR EQU START+1 ERROR LOG ROUTINE _ 

LOG . EQuU ERROR+1 STATUS LOG ROUTINE 

END EQU LOG+1 END ROUTINE 

a . 4 

* one ------ == ia i dl tol isles i Sedna Cac tc cc nahin 

* MONITOR CONTROL WURD ADDRESSES 

* Ee ee ee ee pe ee ay ey ha Bee eI Ph ee Ne 
_RTNSW EQU- END+1 | ROUTINE START SW 

ERLCK EQU  —s END #2 LOCK ON ERROR CONTROL 

LOGBY EQu. END+3 1/0 BUSY SW ADDRS 

RLCF EQU END+4 RELOCATION FACTOR ADORS 

x 

Se ee ee ee eo eee 

= INTERRUPT TRANSFER VECTOR ADDRESSES 

s 2D GD GW ED EP SED GP GED 6 OP GS ED EP POD OP OD OOD OO OP OD OOO! OO Ow ww or > 

ILO) 30 EQU SOLTA INTERRUPT LEVEL ZERO 

ILl €EQU. ILO+16 INTERRUPT LEVEL GNE 

IL2  EQuU 1L1+16 INTERRUPT LEVEL TWO 

1L3) EQU. 1L2+16 INTERRUPT LEVEL THREE 

IL& EQU: IL3+16 INTERRUPT LEVEL FOUR 

RQOTY EQU 1L44+) CONSOLE PRINTER REQUEST 

RQKB €EQU RQTY+1 USE KEYBOARD REQUEST 

SVKB EQU RQKB+1 KB SERVICE REQUEST 

e . 

SRHSKEKSSLSKSKSSKSSLESSKTSEKSKSE SSS AKSESAKSSAKKESSLES 

ORG #4/050C 


. Lb Ee SS EP ED SD EP SD OSD SB SD OD ED GS ESD EB SSD OB OES OOS SOOO 


* THE MONITOR USES CORE LOCATIONS O-O50C. 
* FOR CONTENTS OF THESE AODRESSES REFER 

* TO THE DIAGNOSTIC MONITGR LISTING. 
———— 
s 
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* . 
4O30E . 


Pie oC | 

RID OC /0000 ROUTINE ID 

RAD OC 40006 ROUTINE ADORS 

SWwO OC. 70000 PROGRAM CONTROL 

Swl OC 40000 ROUTINE SELECTION 

Sw2 OC 10000 = 

SW3 OC 40000 
OC. STRT LOOP ADDRESS 
DC STRT RESTART ADDRESS 

MLSCF OC STRT ENTRY SET IN MAINLINE 
riya 4/0000 IM INTERRUPT 
pC /FEFF TERMINATOR 


s 
SRSSSASSREANSAASAAT HE HASSE SERHESRSEES 
s INITIALIZATION AND START | 

SRST SSSE RES A SEE ESEE SEEKERS RERESENERERESEESS 
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BGIN asi I 
pc 
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PID PCT AUDRESS 
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O5EB 
OS5SEC 
O5ED 
OSEF 
O5F1 
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FUNCTION TEST 


6100 
69FO 
6500 
6000 
6500 
6000 
6500 
6000 
4000 


‘.°STRT LDX 1 0 


0630 
O17A 
063F 
01868 
064A 
0187 


0000 


COE4 


4C08 


DODE 
9015 
4C08 


0605 © 


0608 


1810 . 


00DC 


0008 
7401 


C005 
900D 
44B0 


6580 
C500 
DOCE 
Dons 
0400 
+480 


OCOA 
0003 


06C6 


06E4 
o72c 


0730 


OT4E 
0780 


O7CE 


os50D 


0164 


0500 
0616 


0165 
0161 


0824 _— 


0830 
0853 
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1402 
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30600680 


30E00690 
30£00700 
30E€00710 


30E00720 
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30£00760 
3000770 
30E900780 
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30E00800 
30E090810 
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30F00900 
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30E€00960 
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30E00990 
30E01000 
30EO10L0 
30E01020 


30E01030 


30E01040 
30E01950 
30E01060 


30601070 


30E€01080 
30E€01090 


‘30E01100 


' 30E01110 


STX 1 RID 
LOX LL DSWlA 1442 COL INT 
STX Ll ILO 
LDX-°Ll OSW4A =: 1442 OP COMP 
STX tl We=20 
LDX Li DSW4B 2501 OP COMP 
STX Ll IL4=3 oe ee 
BSI CRTRL 
s 
odéseubeeseccecscnecd026000%060¢040000000008 
* - SEQUENCE CONTROL ROUTINE 
PTET TTT TT TTT TTT TTT TT Tet tet 
* THIS ROUTINE CHECKS SW1 AND CONTROLS 
& . THE SEQUENCE IN WHICH TEST ROUTINES 
* ARE RUN. | 
& Se ewe ee weaneee a oo arep aes ener aner eran: orem | 
: | 
CNTRL OC 10000 
Lo Swi 
BSC Lb CN20,¢ BR IF NO RTN SELECTD 
2 ‘ ° 
- €N1LO STO RID SAVE NEW RTN NUMBER 
| S RIOCK } 7 
BSC L CN309+ BR IF VALID RIN 
SRA 16 | 
STO. Sw IF INVALID RTN GO 
STO R1D TO RTN ONE 
CN20 MDX L_ RIDsl ADV TO NEXT RIN 
LD RID CHECK FOR END OF 
S RTNOM NORMAL SEQUENCE *} 
BSI I ENDy-2 END Q© PROGRAM 
“ ine 
CN30 iDX 11 RID XRL®NEW ROUTINE NUMBER 
LD Ll RTTBL-1 FETCH RETURN ADRS 
STO RAD STORE NEW RTN ADORS 
STO MLSCF4l SET MLSCF FOR RETURN. 
STO tL RTNSW SET RTN START Sw 
BSI I START — GO TO MONITOR 
t ; 3 
RIDCK OC LRIN-RTTBL1 
RTNOM OC NRTN-RTTBL#2 *2 . 
x Sees awe oe > OS OE OO OES OE Oweww 
* «ROUTINE ADDRESS TABLE 
be Pn OO SOOO OO OOOO CO OOD WO Ceewroan coe 
* NORMAL ROUTINES 
RTTBL OC RTL. °——s«é PUNCCHX: ROTATING PATT 
oc RT2 READ ROTATING PATTERN 
NRTIN DC  RT3 READ COL COUNT CONTROL 
* «SELECTIVE ROUTINES ss 
oc RTS GANG PUNCH 
oc RTS READ GANG PUNCHED DECK 
oc RT6 PUNCH SELECTED PATTERN 
oc RTT READ SELECTED PATTERN 
OC RTS - REPRODUCE ROUTINE . 
OC RT9. REPLACE ROTATE PATTERN 
LRTN OC RTA 2501 “VAR DELAY READ 
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4203178 


SSTSESSSSSSSESESSSSSSS STS SSSSSAGCHKSEK SS SHS SSSF RISKS 
>_ 1/Q CONTROL COMMANDS . 
SSKSSSSSSSSSKSSSKSSESSSSSTSESSSSSSSSLKCAKKSSSSSSESRSSSSsS 
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BSS E O bse 
FOACcO OC 40000 FEED A CARD 
' oc 11402 | 
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30£01420 
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-30E01470 
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. 30€01750 


30£01760 
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30E01780 
30E01790 


- 30€01800 


30E01810 


.  30€01820 


30E01830 


30601840 
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30E01860 


- 30€01870 | 
-30€01880 
-30E01890 
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. 30E01920 


30£01920 


-30€01930 
-—30E01940 


30€01950 


-30E01960 
30E01970 
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- 30601990 


PCHST OC 40000 START PUNCH 
pC 44401 
PUNCH DC WAREA PUNCH 
oC 41100 ; 
SéS1 DC _ £8000 net 2 ie , 
a a 1703 SENSE 1442 DSW 
EWS2 OC 40000 SENSE OSe 
OC 74F03.-sCON 2502 
IREAD DC RAREA INITIATE READ 
oC = /sE00-—i 2S 
SNSWS DC ee READ CONSOLE SWITCHE 
pc 73800 | . 
es 
RISSSSSSSHSSSSSSLSSSSSESSSSSECRSSSSSSSSSSSKSSELSSSSSS 
* _ INTERRUPT SERVICE SUBROUTINES 
SSOSF-SISSTSSSSLSSSSSSSSEKSSSSOKSSSESSSESKSSSSSSSS 
s ne . 
Bien a> ena aner eae ean aDasenss Gra won a eer 
® OSW CHECK FOR LEVEL 0 | 
Gee wee wew ee ecw eww awes ewe 
7 7 
— PSW1A OF ene 
"x0 SNS SENSE DSM 
$TO tL WASO 
NOP | ut USE FOR IRAP 
x10 PUNCH PUNCH A COLUMN 
(MDX & PUNCHe*] INCRE PUNCH ADDR. 
Lo &{ wWASO CHECK FOR LOST OR 
EOR K4003 _ EXTRANEOUS BITS 
OR ~ KERR ACCUMULATE ALL ERRORS 
STO = KERR aa | 
BSC I OSWwiA RETURN 
3s a ; 
Ben ener es ere anea ee Grae SEES > eee ae ww eee 
* . DSW CHECK FOR LEVEL & 1442 
Bae 2 oO wR Oe ween eoewew=s, 
2 
-OSW4A OC _ BoB pe | | 
RTO SNS1 SENSE 1462 DSW; 
STO tL wWAS4 -_ 2 
Nop USE FOR TRAP 
LOx 03 OSWAN ADRESS OF ANALYSIS ROUT 
STX 3 MLSCFe) SET MONITOR RETURN 
~ BSC 1 -DSW4a RETURN : 
3 : 
Qe eer earners epee pen ere en a ee or @ erases 
s . 2s DSW CHECK FOR LEVEL 4 2501 
*- a ea aaa 
eS : a | 
OSW4B OC e=8 re oe 
~ xo -SNS2 SENSE OSH. 
STO L. WAS6 aa 
NOP od. tae . USE FOR TRAP 
LOX L323 OSWAN 
. STX 3. MLSCFO} 
esc 1 ODSweb 
& wo 
—- K4003- OC 44003 
-KEFFT OC _SFFFT 
KoO008 OC. 40008 
KFFFE OC. .  /FFFE 
KFFFO OC J FFEO 
KOCc5O OC 40050 
XERR OC . 0 


@62¢% @ 
@625 © 14801 
0626 1 OA29D 
0627 @ 1100 
— @628 © 0000 
0629 8 1703 
@62A @ 0000 
0628 @ 4FO3 
@62C 1 099F 
@620 @ 4ECO. 
@62E & 0000 
- @62F © 3000 
@630 @ 0000 
. 0631 0 O8F6 
0632 1 0400 OAE6 
0634 @ 1000 
0635 © O8FO 
0636 1 7401 0626 
0638 1 C400 OAE6 
O63A 0 FOIA 
0638 @ ESLF 
063C @ DOLE 
0630 1 4C80 0630 
~ @63F O 0000 
0640 @ OB8E7 
0641 1 0400 OAET 
0643 6 1000 
0644 1 6700 065C 
0646 1 6FOO O5E6 
0648 1 4C80 O063F 
064A 6 0000 
0648 0 O8DE 
064C 1 0400 OAET 
O64E 0 1000 
O64F 1 6700 065C 
065) 1 6FOO OSE6 
0653 1 4C80 064A 
- 0655 0 4003 
0656 0 FFFT 
0657 0 0008 
0658 0 FFFE 
0659 0 FFFO 
065A 0 0050 
0658 9 0000 
LSJUNGT O9SEPOT 
420317 4203176 
ae S age 


s | | | 
SSCS SSHSHSSSHSHSY SHSSSS SHSASSSESSESSSES LESSEE SEESESE 


peo ONS 


er. 
eS 


me oe Ate” 
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30E02000 
30€02010 


- 30€02020 
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EBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 2130 SYSTEM 
2501/1442 MOO 5 FUNCTION TEST 


DATE 


EC NO. 


420317 


O65C 6 COFE 
065D 1 4420 0678 
O65F 1 C400 OAET 
0661 0 F016 
(0662 1 4C98 069C 
0664 0 E014 
0665 1 4€98 069C 
0667 1 F400 OAE? 
0669 1 D400 OAEA 
0668 © 610) 
066C 0 6600 0212 
©66E 1 6700 0803 
0670 1 6FOO OAES 
(0072 1 6700 0800 - 
0674 1 4400 OACC 
0676 1 4C80 069C | 
0678 © 0800 
(0679 © EFFE 
067A 0 1000 
0678 0 0000. : 
O067C 1 F400 067A 
—O67E 1 4C18 0696 
0680 © CODA 
0681 © FOD3 
0682 1 D400 OAES 
0684 0 CODO 
0685 1 D400 OAEA 
0687 0 6102 
0688 0 6600 0111 
068A 1 6700 0808 
 068C 1 6FOO DAES 
- 068E 1 6700 0800 
- 0690 1 4400 OACC 
0692 0 1010 
0693 0 DCC? | 
0694 1 4C80 0678 
0696 1 C400 OAET 
0698 0 1003 7 
0699 1 4C28 0692 
0698 0 70E4 7 
1SJUN67  O9SEP67 
4203178 



































& ANALYSIS ROUTINE FOR DSW 
SSESCSSSHSSESSASSSHSSSSESSSSESSSSOSSSSSSSVSSESVSSESS 
Ss 
ad THIS SUBROUTINE ANALYZES THE OSH 
* APTER ANY LEVEL FOUR INTERRUPT AKO 
= RETURNS TO THE ROUTINE VIA THE 
s ENTRY POINT OF THE WAIT SUBROUTINE 
Se SC@eoeooeene 
OSWAN LO KERR > LEVEL 0 ERRORS 
os BST OL DSWEOsZ BR IF ANY : 
3 
| to tL wWAS4 LAST OSw Lg 
EOR —- K0800 OP COMP BIT. 
BSC I WAIT et+—- BR IF NORMAL LVL 4 OSH 
AND KEFFE REMOVE L/C + NRDY BITS 
BSC I WAITe+- ‘BR IF OTHERWISE NORMAL 
® mag a _— 
EOR &t WASS — - FO GET PROPER OSH 
- $TO L O2BE a ee ee ee 
LOX 11 4aSG NO er. 
LOX L2 70112 WASS—-O2BE 
LOX L3 ALVL4¢ LEVEL 4 
STX L3 ALPH2 
LOX 3 ADSWE - DSW ERROR 
6S1 tL ETYPE . Aes 
esc 1 WAIT. RETURN TO PROGRAM 
~ K0800 OC 20800 
KEFFE OC JEFFE 
K1000 OC 41000 
3 : 
ad ~OSW ERROR OCCURRED ON LEVEL O 
DSWEO. OC Bes 
GOR Lb 1090 | 
BSC L EOLCCe+=- BR IF L/C ONLY 
% are are fo ate, 
 BOTYP LD. XERR eh > eS 
"8 ~~ EOR K4003 ERROR AND PROPER BITS 
STO & wAaSso OSW WAS 
0 ~~ 4003 PROPER DSW 
“$T0 t O2BE SHOULO BE 
“LOX 22 MSG NO 
LOX L2° 70122 wASO--02BE © 
10x t3 ALVLO LEVEL O 
STX 3 ALPH2 J 2 
LOX L3 ADSWE WAS S/B DSW ERROR 
8SI L ETYPE Se ae 
& 7 
 EORTN SLA "16 
$TO XERR 
BSC 1 DSWEO RETURN TO ANAL ROUTINE 
= me 
EOLCC LD OL CWASG CHK IF L/C ON LEVEL 4 
3 BSC Lt EORTNo*Z #£=@8R IF LZC FROPER 
MDX EQTYP ~ BR TF WCT PROPER 
@ Bg Fite? a3 aa ge ges eh co ae 
SSESSTCSLSSSSESSSSESSSSSSTSSEVESTSS SS SESSKLSKLSESSSs 
*  - + INTERRUPT WAIT ROUTINE 
SSHSSSSESSSSESS SSSSE SS SSS SSS SSSSSSSSSSOSSSESSE 
* =: THIS SUBROUTINE WAITS FOR INTERQUPT. 


s > WHEN THE INTERRUPT IS RECEIVED IT WELL 
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2a 
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30E02046 
30E€62056 
30E02060 
20EO2070 


- 30€02080 
- . 30E02090 
+ 30E021200 


30E02110 


-30E62120 


30E02130 


_. 30602140 
30602150 
30602160 


30€02170 


- 30E02180 
30€02190 
.. J0E02200 
~30E02210 


30E02220 


. 30E02230 
- 30E02240 
- 30E02250 

- \30E02260 
: 30E02270 


30E02280 


- 30E02290 


30E02300 


. 30E02310 


30E02320 
30E02330 


- 30602340 
(30E02350 


30E02360 
30E02370 
30E02380 


-: 30E02390 


30E02400 


— 30€02410 


30E02420 
30E02430 
30E02440 
30E02450 


— 30E02460 


30€02470 
30602480 


' 30E02490 


30E02500 
30E02510 


~ . 30€02520 
—- . 30€02530 


30E02540 
30E02550 


-_ 30€02560 
~ , 30€02570 
—30€02580 


30€02590 


'- 30€02600 
-. 30602610 
-30€02620 
.° 30€02630 
30E02640 


30E02650 


. 30E02660 


30E02670 
30E02680 


~- 30€02690 
- 30E02700 
 30€02710 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER PART NO. 2243550 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM orce NO. aaa 
: | e PAGE 3 
? 2501/1442 MOD 5 FUNCTION TEST 7 | | = 2 2501/1442 MOD 5S FUNCTION TEST 
| | 
| 7 :  ] : 
s CHECK THE ROUTINE SELECTION SWITCH. 30E02720 | O6E1 © TOE6 MDX RTIC BR IF YES 30£03400 
2 IF A NEW ROUTINE HAS BEEN SELECTED IT 30E02730 2 | * 30E03410 
| R WILL BRANCH TO THE CONTROL ROUTINE. 30E02740 - : SHTEKSSSSSKSKSTSSS SSCS SSCSSKES SSCS SKKESSSSSREKSEKSSSESSS 30E03420 
2=s=—S == 30E02750 : . s ROUTINE TWO. READ ROTATING PATT 30E03430 
a 30E02 760 ee SSEEESSSTSSSTSSESSSSSESSSSCSSESLSESSLSE SSE SSKLSESSKSE 30E03440 
e - 069C 0 0000 WAIT OC 40000 30E02770 -, ® * | 30E03450 
069D ® 6500 1000 tox t1 /1000 SET INTERRUPT 30E02789 ' s THIS ROUTINE READS THE ROTATE DECK 30E03460 
| O69F 0 6925 STX 1 WCNT WAIT CNT 30E02790 ir: * ~ PUNCHED IN ROUTINE ONE, CHECKING THE 30€03470 
e ° 30E€02800 ~ 9 | * DATA AGAINST THE PUNCH PATTERN 30E03480 
O6A0 1 6500 O6A9 WAIYI LOX Ll WAITS 30E02810 oe ee wr a ee en em enw ewenn——= 30603490 
O6A2 1 7400 O5E6 MOX LL MLSCF} CK FOR INTERRUPT 30E02820 a3 s 30E03500 
e : O6A% 9 7008 MOX WAITS BR IF INTERRUPT OCCURE 30E02830 : - OO 2 30E€03510 
* 30E02840 . O6E2 1 OATS RT2CC OC WARA2 FOR AREA ENO CHACK 30E03520 
O6A5 1 6D00 O5E5 WAIT2 STX Li MLUSCF SET RETURN ADORESS 30E028506 = O6E3 0 0000 RT2CS Of aad COMPARE START ADDR 30€03530 
e O6AT 0 4480 0161 BSI 1 START . 60 TO MONITOR iJ 30E02860 ~ ® % | 30E03540 
* 30E02870 O6E4 1 4400 0889 RT2 ESI tL INRDR TO INITIALIZE READR 30E03550 
O6A9 1 T4FF O6C5 WAITS MDX UL WCNT»—] DECREMENT WAIT CNT 30E02880 ra od . . 30E03560 
| OGAB O TOF4 MDX WAITL - 30€02890 > ® O6E6 O 6150 LDX 1 sc 30E03570 
O6AC O TO0A MOX WAITS BR IF NO INTERRUPT 30E02900 O6ET 1 C500 OATS RT2A LO Ll wWARA2-1 INITIALIZE ROTATE 30E03580 
s 30E02910 O6E9 1 D500 OA2Z8 STO Ll WAREA=-1 PATTERN IN PUNCH 30E03590 
6 O6AD 1 C400 O5EO WAIT4 LO tL Swi . 30E02920 ; t ® O6EB O TIFF MDX 1-1 AREA FOR COMPARE 30E03600 
OGAF 0 4488 0161 BSI I STARTe* CK FOR RIN SELECT 30E02930 OG6EC O 7OFA MDX RT2A 30E03610 
06B1 1 9400 0500 s tL RID CK FOR NEW ROUTINE 30E02940 s 30E03620 
|] 0683 1 4420 OSFA BSI Lt CNTRLeZ BR IF NEW RTN 30E02950 t ® : O6ED 1 6500 OA29 RT2D LDX Ll WAREA INITIALIZE COMPARE STAR 30E03630 
Q6B5 0 4480 0161 BSI I START GO TO MONITOR 30E02960 OGEF O 69F3 STX 1 RT2CS ADDRESS 30E03640 
s 30E02970 * -30E03650 
1 0687 O 6103 WAITS LOX 1 3 MSG NO 30E02980 t ® O6FO 0 6100 RT2C LOX 1 0 30E03660 
0688 0 6600 0100 LOx L2 /0100 30E02990 O6F1 1 6D00 OACB STX tl UNSW CLEAR FIRST LN SW 30E03670 
O6BA i 6700 0803 LOx 3 ALVL4S LEVEL 4 30E03000 O6F3 1 4400 0920 BSI L CHK25 CHECK STATUS . 30E03680 
! O6BC 1 6FOO OAES STX L3 ALPH2 30€03010 tT © | * 30£03690 
O6BE 1 6700 OB4SA LOX 3 ANINT NO INTERRUPT 30E03020 O6F5 1 O9F1 BSI RDACD TO READ A CARD 30€03700 
= 06CO 1 4400 OACC BSI t ETYPE 30E03030 OOF7 O OC 80 NO OF COLS 30E03710 
* 06C2 1 6580 OSDE LOX 121 RAD START ROUTINE uVER 30E03040 ® * 30E03720 
06C%4 @ 7OEO MOX WAIT2 RETURN VIA MONITOR 30E03050 po O6F8 O . LDX - ~80 | 30€03730 
7 es 30E03060 O6FS 1 O6E3 LOx RT2CS COMPARE START ADDRESS 30€03740 
06C5 0 0000 WCNT OC oO WAIT COUNT STORED HERE 30E030T70 od O6FB 2 O9FO RT2B LO RAREA+81 CHAR READ 30E03750 
* if age ae 30E03030 O6FD 0 EOR PROPER CHAR 30E03760 
STSCSSSESSSSSS SSS KS SSS SSESSSSSSSSSSSELST SESS SS 30E03090 O6FE 1 0659 AND KFFFO REMVE UNWANTED BITS 30€03770 
s ROUTINE ONE - PUNCH ROTATING PATT. 30E03100 ® 0700 1 O70C BSC RT2DAeZ BR IF DATA ERROR 30E03780 
SCKSKSSLSISSEKSSESEKECSERLSSSKCEKSCSLSESKSSSSESEKCARIKSEKSVS 30E03110 = . , . 30E03790 
2 30E03120 0702 RT2E MDX +1 TO NEXT COMP CHAR 30E03800 
s THIS ROUTINE PUNCHES A ROTATING 30€03130 0703 MDX +1 TO NXT’ CHAR 30€03810 
s PATTERN. NORMAL TERMINATION IS 30E03140 0704 MOX RT2B CONTINUE 30E03820 
& AFTER THE LAST CARD IS PUNCHED 30E03150 * 30E03830 
s 3GE03160 0705 RT2F LOD RT2CC LAST ADDRESS 30€03840 
a 30E03170 0706 EOR RT2CS COMP TO THIS TIME 30E03850 
06C6 4400 0877 RT1 BSI tt INPCH TO INITIALIZE PUNCH 30E03180 0707 O6ED BSC RT2D_9+=- BR IF END OF PATTERN 30E03860 
s 30E03190 * . 30E03870 
06C8 6 6150 RT1IC LOX 1 80 INITIALIZE PUNCH AREA 30E03200 0709 06E3 MOX RT2CSo+1 INCRE COMP START ADDR 30E03880 
06c9 1 C500 OATS RTIA LO Ll WARA2-1 FOR ROTATING PATTERN 30E03210 +0708 MDX RT2C BR TO CONTINUE 30€03890 
O6CB 1 0500 OA28 STO Ll WAREA-1 30E03220 s . . 30E03900 
O6CD © TIFF MOXx 1 -l 30E03230 s DATA ERROR . 30E03910 
_O6CE 0 TOFA MDX RTA _ 30£03240 | : Pewee ee meena eee neces wee ween ene ene e enna ee= 30£03920 
* | 30€03250 € t | : * | a 30£03930 
O6CF 1 6500 OA29 tOx Ll WAREA INITIALIZE PUNCH ADDR 30E03260 O70C 1 6000 OAEB R*2D0A STX Ll COL STO ERROR COLUMN 30E03940 
06D1 0 6904 . STX 1 PCHA] 30E03270 ; O70E 1 7451 OAEB MOX &L COLs?+81 — 30€03950 
: s ne ofedt Ok ; 30E03280 Gg 8 0710 0 1000 NOP SKIPPED BY MDX 30€03960 
06D2 1 4400 OS8FC RT16 BSI Ct CHKI14 CHECK STATUS 30E03290 0711 0 C200 LD 20 PROPER CHAR 30€03970 
: * | 30E03300 0712 1 D400 OAEA STO tL O2BE 30E03980 
. 06D& 1 4400 095D — BSI L. PNCH TO PUNCH A CARD 30E03310 . € 8 0714 1 C500 O9FO LD Ll RAREA+81 ERROR CHAR 30£03990 
06D6 0 0000 PCHAL OC t-t PUNCH BEGINNING ADDR 30E03320 4 0716 1 D400 OaE9 STO tL wWASOD . a ; 30E04000 
3 06D7 0 0050 NCOL1 OC ~ 80 30£03330 - 7 0718 0 690F STX 1 RT2D141 SAVE XR1 30E04010 
. 0608 0 T0F9 . MDX RT1B , ERROR RETURN POINT 30E03340 - @ D 0719 0 6A10 ; STX 2 RT20241 SAVE XR2 | 30E04020 
& . . | 30E03350 O71A 0 6108 LOX i 8 30€04030 
06D9 1 7401 O06D6 | MDX tL PCHAlL,+41 INCRE PUNCH ADDR 30E03360 * 0718 O 6600 0138 tOx t2 /0138 30E04040 
. 0608 1 C400 O95C tD tc TERAD HAS ROTATION REACHED 30€03370 . §@ D 071D 1 6700 OBILE LOX L3 ADTAE 30E04050 
0¢DD 1 F400 OATS EOR tL WAREN ENO OF WRITE AREA 30E03380 : O71F 1 4400 OACC BSI L ETYPE — _ - a 30E04060 
‘ O6DF 1 4C20 06D2 . BSC Lt RT1B,Z BR IF NOT 30€03390 A 8 3 | s | 30E04070 
: DATE 1SJUNGT O9SEP6T PROG ID - O30E-0 g 3 DATE LIS JUN67 O9SEP67 PROG 10 O30E-0 


€C NO. 420317 4203178 | 3 PAGE 3 | EC NOw . £20317 4203178 | PAGE 3A 


IBM MAINTENANCE 


2501/1442 MOD 5 


DATE 


EC NOW. 


0721 1 C400 

0723 1 4C20 0705 
0725 1 6D00 OACB 
0727 0 4500 000C 
0729 0 6600 0000 
0728 © 7006 

072C 1 4400 0889 
O72E 0 6101 

O72F 0 6904 

0730 1 4400 092D 
0732 1 4400 09F1 
0734 0 0000 

0735 0 COFE 

0736 1 F400 065A 
0738 1 4C18 O72E 
073A 1 7401 0734 
073C 0 70F3 

073D 1 £400 0889 
O73F 1 400 0920 
0741 1 4400 OOF] 
0743 0 0050 
0744 1 4400 0877 
0746 1 4400 O8FC 
0748 1 400 095D 
074A 1 0940 

074B 0 0050 

074C 0 7000 

0740 0 70F8 

O74E 1 4400 0889 
0750 1 4#00 0920 
0752 1 &#00 09F1 
0754 0 0050 

15JUN67 O9SEP6T 
#20317 = #203178 
Ko a 


DIAGNOSTIC PROGRAM FOR 


FUNCTION TEST 


O5E2 


LO 
BSC 


STX 


RT2D01 LOX 
RT2D2 LOX 


s 


SHKTRESSSESERES HTS EKESSS SEEKERS EASES EKEEE EE 


| (ROUTINE THREE «©... 
SESSKTCSSSKESSKKSSSTESKSTCKEKSTKSSESEKLEKCSEEKCKSESAREAKERS 


2 


ta > EDP OP GD Eh STD OE Cw ES Par Cp GaP Sow E> Geb ise a ene Gy GP ane G-SE> GED O PS &> Ge ahr Gb Gap CP Ge 4 Gp am Sey Gea a 


RT3 
* 
RT30 


RT3A 
* 


NCOL3 
* 


RT3E 


= 


RT4A 


SRILSSSSSSKSSSSSSEKSSEKLSKLKEKKSESSSSKSKTCKSESSLE SSK CK SSSR SES 


SRTSKSSKSCHSKSCSSKSSKSKKSSRRSTSTCEKKSSESESKEKSSIEKASEKESVS 


3 
& 
2 
& 


s 
3 
RT5 


“Ox 


BSI 


LDX 
STXx 
BSI 


8S1 
OC 


LD 

EOR 
BSC 
MDX 
MDX 


BSI 
BSI 
BSI 
oc 

BSI 
BSI 
8S] 
oC 

oc 

MDX 
MDX 


BS! 
BS 1 


BSI 


THE 


L 
L 
Li 
Ll 
L2 


err 


er PT rer 


ree 


oC. 


1 


1130 SYSTEM 


Sw3 
RT2F eZ 
LN1SW 
tome 
S—2. 
RT2E 


THIS ROUTINE READS CARDS VARYING 


BR IF 1 LN OPTION SEL 


SET FIRST LINE Sw 
RESTORE XRl 


RESTORE XR2- 


READ ANOTHER CARD 


THE COLUMN COUNT FROM ONE TO EIGHTY 


INRDR 


NCOL3 
CHK25 


RDACD 
-% 


NCOL3 
KO0050 
RT3D09+— 
NCOL3,+1 
RT3A 


THIS ROUTINE READS ONE CARD 
FROM THE 2501 AND PUNCHES THAT 
PATTERN REPEATEDLY ON THE 1442 


INRDR 
CHK25 
RDACD 
80 

INPCH 


CHK14 
PNCH 
RAREA?] 
80 

= 

RIGA 


INITIALIZE READER 


INITIALIZE NUMBER 


F COLUMNS 


CHECK STATUS 


READ A CARD 


NUMBER OF COLS 


BR IF COL COUNT = 80 
INCRE NO OF COLS 


INITIALIZE READER 


CHECK STATUS 


READ CARD 


COL COUNT 


INITIALIZE PUNCH 
CHECK STATUS 


PUNCH CARD 


FROM READ AREA 


COL COUNT 


ERROR RETURN 


RSSAEESS RE SERESEKRE SAREE SERESERERESESAESEARESE SESE EES 


ROUTINE FOUR--GANG PUNCH 
REKSSKKES SAH SKERSSESAE ESS RESHACSSRS SKE RHEE SKKSEASESS 


ROUTINE FIVE-~READ GANG PUNCHED DECK 


THIS ROUTINE READS CARDS, COMPARING 


‘THE DATA 


FROM THE FIRST 


INROR 
CHK25 
RDACD 


4 
< 
© 








FROM EACH CARD WITH THAT 


INITIALIZE READER 


CHECK STATUS 
READ FIRST CARD 


COL COUNT 





PART NO. 


PAGE 


30E04080 
30E04090 
30E04100 


‘30E04110 


30E04120 
30E04130 
30E04140 
30€04150 
30604160 
30£04170 
30£04180 
30E04190 
30E04200 
3004210 


30E04220 


30£04230 
30£04240 
30£04250 


-30E04260 


30£04270 
30€04280 
30£04290 
30£04300 
30£04310 
30£04320 
30£04330 
30604340 
30€04350 
30£04360 
30€04370 
30£04380 
30E04390 
30E04400 
30€04410 
30£04420 
30€04430 
30£04440 
30£04450 
30604460 
30E04470 
30£04480 


 30E04490 


30E04500 
30E04510 
30€04520 
30€04530 
30E04540 
30E04550 


30E04560 


30£04570 
30604580 
30£04590 
30£04600 
30£04610 
30E04620 
30E04630 
30E04640 
30604650 
30E04660 
30£04670 
30E04680 
30E04690 
30£04700 
30E04710 
30E04720 
30E04730 
30E04740 
30E04750 


PROG ID 


PAGE 


2243550 
a 


O30E-0 
& 


Cx oe ae 


Co 


. 2 oe 


IBM MAINTENANCE 


DATE 


EC NO. 


2501/1442 MOD 5 


FUNCTION TEST 


0755 © 6150 
0756 1 C500 099F 
0758 1 0500 OA28 
O75A O T1FF . 
6758 O 70FA 
075C 1 6DOO OACB 
O75E 1 4400 092D 
0760 1 4400 O9F1 
0762 0 0050 
0763 0 6180 
0764 1 C500 O9FO 
0766 1 F500 OAT79 
0768 1 E400 0659 
O76A 1 4C20 OT76F 
076C O 7101 
O76D 0 TOF6 
_O76E © TOED 
O76F 1 C500 O9FO 
0771 1 0400 OAES 
0773 1 C500 OAa79 
0775 1 D&00 OAEA 
0777 0 6912 
0778 O 7151 
0779 0 1000 
O77A 1 6000 OAEB 
O77C O 6108 
077D 0 6600 0138 
O77F 1 6700 OBIE 
0781 1 4400 OACC 
0783 1 C400 05E2 
0785 1 4C20 075C 
0787 1 6D00 OaCcB 
0789 0 6500 0000 
078B 0 70E0O 
078C 0 0000 
078D 1 4400 0877 
O78F © 6500 3000 
0791 1 6000 0874 
0793 0 6104 
0794 0 6200 
0795 1 6700 0828 
0797 1 4400 OAEF 
0799 1 6500 078C 
0798 1 6D00 062E 
79D 1 OCOO 062E 
O79F 0 COEC 
O7A0 O 1803 
O7Al 0 4804 
1SJUN67 O9SEP6T7 
420317 4203178. 
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LO 

EOR 
AND 
BSC 
MDX 
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LO 

$TO 
LO 
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STX 
MDX 
NOP 
STX 
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‘LO 


BSC 
STX 
LOX 
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-1 


RTSA 
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CHK25 © 


-RDACD 
80 
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RAREA+8] 
WAREA+80 
KFFFO 
RT50,2 

1 

RT5C 


RTSB 


RAREA+81 
wWASD 
WAREA+80 
O2BE 
RT5D1+41 


+81 


COL 

8 
40138 
ADTAE 
ETYPE 


Sw3 
RT5B,2 
LN1SW 
Kuo KR 
RTS5E 


MOVE COMPARE DATA 
TO WAREA FOR COMPARE 


RESET tN 1 SW 


READ CARD 
COLCOUNT 
FOR COMP 


CHAR READ 

COMP CHAR — 

REMOVE UNWANTED BITS - 
BR IF DATA ERROR 


CONTINUE SCAN 
READ ANOTHER CARD 


CHAR READ 


PROPER CHAR 


SAVE XR1 
TO COL NO 


MSG NO 
DATA ID 
DATA ERROR 


BR IF 1 LN ONLY OPTION SEL 
SET LINE 1 SW 
RESTORE XRl 


ROUTINE SIX 


THIS ROUTINE PUNCHES A 


SELECTED PATTERN. 


t—-8 
INPCH 


43000 
NTCNT 


4 

0 
ASETP 
TYPE 


RTOSW 


SNSWS | 
SNSWS 


RT6SW 


x 
s 
s 
s 
RT6SW OC 
& 
RT) BSI L 
* 
RT6A LOX Ll 
STX Lt 
ie 
LOX 1 
LOX 2 
LDOx t3 
BSI L 
Ps 
tOx tl 
STX Li 
RT6B xXIO L 
aol Pe os 
LO 
SRA 
BSC 
oo : 
—— \ 
Ne Set eee 


SWITCH SETTING 
INITIALIZE PUNCH 


TIMING CONST FOR 
WAITING LOOP — 


MSG NO 
NO ATA 


TYPE SET PATT MSG 
DATA ADOR 


‘READ CONSOLE SWITCHE 


SWITCH SETTING 
CHECK BIT 12 | 
SKIP IF SW 12 NOT ON 


Sore 
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30€04960 
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30£05020 
30€05030 
30€05040 
30£05050 
30£05060 
30£05070 
30£05080 
30£05090 
30£05100 
30605110 
30£05120 
30€05130 
30E05140 
30E05150 
30£05160 
30€05170 
30€05180 
30£05190 
30£05200 


. 30€05210 
30€05220 


30E05230 
30E05240 
30E05250 
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30E05270 
30€05280 


30E05290 


30€05300 
30E05310 
30£05320 
30€05330 


‘30E05340 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEN PART NO. 2243550 | 1130 SYSTEM py NO. eeraee 
PAGE 5 wey og aes A 
2501/1442 MOD 5 FUNCTION TEST tw 2501/1442 ROD 5 FUNCTION TEST 
a : i _ 4 12 
anes a, 2 
@TA2 © TOOA MOX RT6D BRIF SW 12 ON 30E05440 * 30E06120 
* 30605450 . | O7E4 1 T74FF 0874 MOX L WICNTe-2) SKIP WHEN COUNT ZERO 30E06130 
O7A3 1 T4FF O874 MOX LL WTCNTe-1 SKIP WHEN COUNT ZERO 30E05460 ms 3 O7E6 6 7001 MDX = RTTC BR TO DLY VIA MON 30£06140 
0745 0 7001 MOX RT6C BR TO DLY VIA MON 30E05470 O7E7 O 70E8 MDX RTTA BR WHEN COUNT = 0 -30E06150 
OTA6 @ T0E8 MDX RT6A BR WHEN COUNT = O 30E05480 = O7E8 1 6500 O7DE RT7C LOX Li RTTB RETURN POINT 30E06160 
) F , een | 30605490 ee 3 O7EA 1 6D00 O5E5 STX Ll MLSCF 30£06170 
O7A7 1 6500 079D RT6C LOX Ll RT6B RETURN POINT 30E05500 O7EC O 4480 0161 BSI I START VIA MONITOR 30E06160 
O7A9 1 6DOO O5E5 STX Ll MLSCF 30€05510 < | s | 7 30€06190 
O7AB 0 4480 0162 BSI 1 START VIA MONITOR 30E05520 ° 1 O7TEE 1 4400 092D RT7D BSI Lt CHK25 CHECK STATUS 30E06200 
r | 2 ? 30E€05530 | e | | 30€06210 
O7AD C CODE RT6D LO RT6SW ‘PUNCH PATTERN ~- 30E05540 O7FO 1 C400 05E1 LOD Lt Sw2 CHECK CC OPTION 30£06220 
O7AE 1 E400 0656 AND Lt KFFF7 REMOVE 12 BIT 30E05550 rt 8 -O7F2 1 4€20 0821 BSC L RT7He2 30£06230 
0780 0 6150 LOx 1 80 -30E05560 O7F& 0 6150 LOX 1 80 MAKE COL COUNT AO 30E06240 
0781 1 0500 0A28 RT6E STO Cl WAREA-1 FILL WRITE AREA 30E05570 O7F5 0 6905 STX 1 NCOL7? 30£06250 
0783 O 71FF MDX 1 -} WITH SELECTED BITS 30E05580 f | O7F6 O 6100 LOX 10 | 30E06260 
0784 © TOFC : MDX RTE . 30E05590 O7F7 1 6DO00 OaceB STX Ll LNISW REST LN 1 SW 30E06270 
ei 30E05600 * 30£06280 
-O7B5 1 4400 O8FC RTOF BSI L CHK14 CHECK STATUS 3CE05610 r » O7F9 1 4400 O9F1 RT7G BSI Lt RDACD READ A CARD 30E06290 
& Oo 30E05620 O7FB © 0050 NCOL7 DC 80 NO OF COLS. 30E06300 
0787 1 C400 0561 LD 6k OSW2 CHECK CC OPTION 30£05630 . * 30£06310 
07B9 1 4C20 O7CA BSC L RT6H,e2Z | 30605640 t D O7FC 1 6580 O7FB LOx 12 NCOL7 : 30£06320 
0788 6 6150 LDX 1 80 MAKE COL COUNT 80 30£05650 O7FE 1 C50G O99F RTTE LD Li RAREA CHAR READ 30E06330 
O7BC ® 6903 STX 1 NCOL6 30E05660 0800 0 FOCC —EOR RT7SW SWITCH SETTING 30E06340 
30£05670 r 98 0801 1 E400 0656 ‘AND L. KFFFT REMOVE TERM BIT 30E06350 
O7BD 1 4400 0950 RT6G BSI L_ PNCH PUNCH A CARD 30E05680 0803 1 4C20 0808 BSC L RTTFyeZ BR IF DATA ERROR 30E06360 
O7BF 1 OA29 DC WAREA PUNCH AREA 30E05690 | 0805 0 71FF KT7FR MDX 1 =} . 30£06370 
07C0 0 0050 NCOL6 DC 80 NO OF COLS 30E05700 ¢ #8 0806 0 70F7 MDX RTTE CONTINUE SCAN 30£06380 
07C1 © 7000 MDX * ERROR RETURN 30E05710 0807 O 70E6 MDX RT7D READ ANOTHER CARD — 30E06390 
= - 30£05720 | _ ® 2 , | 30E06400 
O7C2 1 OCOO 062E X10 tL SNSWS READ CONS SWS 30E05730 f | ® 0808 0 FOC4 . RT7F EOR RT7SW RESTORE CHAR READ 30606410 
Ps | 30E05740 0809 1 0400 OAE9 STO L wWASD 30£06420 
O7C4 0 COCT | LD RT6SW 30E05750 O80B 1 6DOO OAEB STX Ll COL COL NUMBER 30E06430 
O7C5 1 F&00 OA29 EOR Lt WAREA CHECK FOR CHANGES 30E05760 f ® O80D 0 COBF LD RT7Sw PROPER CHAR 30E06440 
O7C7? 1 C20 0790 BSC L RT6B 92 BR IF SWS CHANGED 30€05770 O80E 1 D400 OAEA STO Lt O2BE = | 30€06450 
| @ | 30£05780 | | 0810 0 690E STX 1 RT7F1¢1 SAVE XR} 30E06460 
o7c9 0 TOEB MDX RT6F -TO PUNCH ANOTHER CD 30E05790 f © 0811 0 6108 LOX 1 8 MSG NO 30E06470 
* 30E05a800 os 0812 0 6600 0138 LOX L2 /0138 DATA ID 30E06480 
O7CA 1 D400 O7CO RT6H STO L NCOL6 STO COLUMN COUNT 30E05810 : 0814 1 6700 OBIE LOX L3 ADTAE DATA ERROR HDG 30606490 
O7CC 8 7OFO MDX RT6G -. 30E05820 g 8 0816 1 4400 OACC BSI L  ETYPE | | 30£06500 
| 3 Pa : 7 30E05830 | S / *30E06510 
SRLHCS SSKSSSSSKSSRSKSKSHKSKKSS SSSSSAESKSKKELSRSSSSE 30E 05840 0818 1 C400 O5E2 LO L Sw3 30€06520 
2 ROUTINE SEVEN 30E05850 g ® O8l1A 1 4C20 O7EE - BSC L RT7De2Z BR IF 1 LN ONLY OPTION SEL 30606530 
SHTSKSKKHSRESES KS SEKAI STRASRSSSRSESRKSSSTSSSSSASSSSLSS 30605860 081C 1 6D00 OACB STX Ll LNISW SET LINE 1 Sw 30E06540 
s | | “S 30€05870 | O81E 0 6500 0000 RT7Fl LOX Ll *-2 RESTORE XR] 30E£06550 
ie | READ SELECTED PATTERN - 30E€05880 g | ® 0820 0 70E4 MDX RITTER CHECK FOR MORE ERRORS 30£06560 
a , a + = + -—---——--——— 30£05890 - | 30E06570 
* 30E€05900 i 0821 0 DOD9 RT7H STO NCOL7 STO COLUMN COUNT - 30€06580 
* | | 30E05910 a. 68 0822 0 70D6 ' —OX RT7G - 30E06590 
OTCD 0 0000 RT7SW DC —2 SWITCH SETTING -30€05920 8 - 30E06600 
x 30E05930 ae SESLHKLSESKCAKLSESESSASKSSKSKSKSSSKSESSEKSESKSSESSESASASSSSASEE 30E06610 
O7CE 1 4400 0889 RT? BSI Lt  INRDR INITIALIZE READER 30E05940 ¢: ® rs ROUTINE EIGHT 30£06620 
x 30E05950 f SFRKKFETKSHKSSHKSE KAS SSAKLSESSSETSKLESSKEKSSSSLSSEKEK SESS 30E06630 
07D0 0 6500 3000 RT7A LOX L1 £3000 TIMING CONST FOR 30E05960 - % | is | 30E06640 
O702 1 6D00 0874 STX Ll WTCNT WAITI8G LOOP 30€05970 g e * REPRODUCE ROUTINE - 30E06650 
* 30E05980 ! x ——-——-- = ee === 30E 06660 
O7D4 0 6105 LOX 125 MSG NO. 30E05990 * 30E06670 
0705 0 6200 Lox 20 NO DATA 30E06000 8. 8 * = , 7 30E06680 
O7D6 1 6700 0628 LOX L3 ASETP | -30E06010 . 0823 © 0000 RTSSA OC a—8 WASS SAVE AREA 30E06690 
0708 1 4400 OAEF BSI] L TYPE TYPE SET PATT MSG 30E06020 s 30E06700 
| 2 | : | : 30£06030 | © 0824 1 4400 0889 RTS BSI CL INROR 30E06710 
O7DA 1 6500 O7CD LDX L1 RT7SW DATA ADOR 30E06040 0826 1 4400 0877 BSI tL INPCH INITIALIZE PUNCH 30E06720 
O70C 1 6D0O 062E STX LI SNSWS 30E06050 ; 0828 0 1010 SLA =—s._—s «16 7 : 7 30E06730 
OTDE 1 OCOO 062E RT7B XIO Lt SNSWS READ CONSOLE SWITCHE 30E06060 f 8 0529 0 DOF9 STO RTS8SA CLEAR WAS& SAVE AREA 20E06740 
% 30E06070 ‘5 = : : 30E06750 
 O7E@ O COEC LO RT7Sw SWwiTCH SETTING 30E06080 O82A 1 £400 O8FC RT8A BSI] L CHK14S CHECK STATUS 30€06760 
O7E1 © 1803 - §RA. 3 CHECK BIT 12 30£06090 s 8 082C O COF6 | LD RTBSA 30£06770 
OTE2 0 4804 BSC E SKIP IF SW 12 NOT ON 30E£06100 6820 1 D400 OAE7 ~$TO L WAS4& RESTORE WAS& FOR CHK25 30606780 
O7E3 0 TO0A MOX RT7D BRIF Sw 12 ON 30E06110 t) > O82F 1 4400 092D BSI bk CHK25 CHECK STATUS - 30€06790 
DATE 1SJUNOT7 O9SEP6T PROG ID 030E-0 = B DATE L5JUN67 O9SEP6T PROG ID 030E-0 
EC NO. 420317 ° 203178 PAGE 5 EC NO. 420317 4203178 PAGE SA 
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SR EET 


NTENANCE DIAGNUSTIC PROGRAM FOR THE 1130 SYSTEM 


6831 1 4400 O9F1 
0833 © 0050 
0834 1 C400 OAET 
6836 0 DOEC | 
0637 1 4400 095D 
0839 2 O09A0 — 
083A 6 0050 
6083B 0 70600 
@63C 0 TOED 
0830 1 4400 0889 
O83F 1 4400 0920 
0841 1 4400 O9F} 
0843 0 0050 
0844 @ 6150 
0845 1 C500 O99F 
0847 1 0500 OATS 
0849 O TIFF 
OB4A @ TOFA 
0848 0 6100 
084¢C 1 6D00 OSEO 
OBSE 1 4C0O OSEB 
60858 @ 0000 
e851 0 0000 
6852 6 0000 
6853 3} 4400 0869 
0855 1 6500 0850 
0857 1 6D00 062E 
0859 0 6101 
O85A 0 69F6 
0658 0 69Fé 
e85C 1 4400 0920 
@8SE 1 OCOO 062C 
0860 1 OCOO 062A 
O862 @ 4804 
0863 © 7OFC | 
60864 @ 1010 
0865 1 D400 OSES 
O8e7 1 74FF 0852 
@869 9 70FD 
O86A 1 OCOO O62E 
o8ec O COE3 
1SJUN6T O9SEPET 
420317 4203178 
aN < a 
: : ‘ 
Sn ea ee. 


FUNCTION TEST 


RDACD 
80 
WAS4S 
RTSSA 
PNCH 
RAREA+) 
80 

2 


RTBA 


READ CARO 
COL COUNT 


SAVE STATUS FOR CHK25 
PUNCH CARD 

FROM READ AREA — 

Cot COUNT | 

ERROR RETURN. 


fen ait ati as mis iy topes Leni eg etniliatel tin erases ine Ree At Ne te pete ent ten aN A Ha 


SSSSSHESCSSSSSKSKSS SESS SSSKLSES CESS SRKSSESKS SSE SES IKSESSESESS 
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SSSSSSSSESSSSHSKSSSSSSSSSSTSESSESSSSSS SK STRESSES SSELSSSSS 


aad oa na 
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P 
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RT9B 
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BS! 
oC 

LOX 


Lo 
$T0 
MOX 
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Ll 
i} 
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LOX 
STX 
BSC 


i 
Ll 
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THIS ROUTINE REPLACES THE ROTATE 
PATTERN WITH THAT FROM THE FIRST 
CARD IN THE 2501 | | 
IT THEN RETURNSeTU ROUTINE ONE TO 


PUNCH THE 


CHK2S 
RDACD 
80 
80 


RAREA 


-1 
RT9B 
0 
Swi 
STRT 


WARA2-1 


PATTERN 








INITIALIZE READER 


CHECK STATUS 
READ CARD 
COL COUNT 


REPLACE CHAR 
IN ROTATE CONSTANT AREA 


ZERO ROUTINE SEL SW 
RETURN TO START OF PROG 


POSSHHSRSSHSSSHSSSASES SSS EKSSHSSSHOHSSSESHESSRHEESE SES 
ROUTINE TEN 


s 


3 

SB 

Bo ewe eee eee 

a 

~] 

RTASW DC 

RTAPC OC 

RTAOC OC 

s 

RTA BSI 
LOX 
STX 
Lox 
STX 
STX 

& 

RTAA BSI 
x10 

RTAAL XIO° 
BSC 
MDX 
SLA 
STO 

RTAB MDX 
ROX. 
x10 
Lo 

| 
ee 


READ WITH VARIABLE DELAY 
BETWEEN CARDS 





, re 
s—8 
a~@ 


INRDR 
RTASW 
SNSWS 
1 

RTAPC 
RTAOC 


CHK25 
IREAD 
SNS2 
E 


RTAA . 
16— | 
MLSCFel 
RTAODC »-] 
RTAB 
SNSWS 
RTASW 





SWITCH SETTING 
ROUTINE PASS COUNTER 
DELAY COUNTER 


INITIALIZE READER 
INIT SENSE SWS IOCC 


INITIALIZE COUNTERS 


CHECK STATUS 
READ A CARD 
SENSE OSW 

SKIP IF NOT BUSY 


LOOP UNTIL OP COMP 


NO INTERRUPT RET ENTRY 
OECRE DELAY COUNT 

BR TO DELAY 

SENSE CONSOLE Sw 
SWITCH SETTING 


VSFESCSSSSSSLSSSSSSSSESLSTSESSLSSKSHLSHSSSSSSSKSKSERSKEKESKS 
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30607180 
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30E07210 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2501/1442 MOD 5 FUNCTION TEST 


DATE 
EC NO. 


086D 1 
O86F 1 
0871 ® 
0872 0 
0873 © 


0874 
0875 
0876 


osTT 
0878 
O8TA 
os7c 
087D 
O8TF 
0881 
0883 
0884 
0886. 
0888 
O88A 
ossc 
O8B8E 
0890 
0891 
0893 
0895 
0897 
0899 
0898 
0890 


~mwewet ewe Omwewmw Owe Onm~w Oo 6 Oo C6e8e8 


O89F 
O8Al 
O8A3 
O8A4 
O8A6 
O8A8 
OBAY 
OSAA 
OBAC 
OBAE 
08B0 
O8B2 
O8B4 
0885 
0886 
O8B8 . 


@rwoorwrw rw COCO, Kr Om» 


15 JUN6 
420317 


4C20 


7401 
CODF 


0000 
0000 
0001 


0000 
6500 
6000 
6101 
6600 
6700 
4400 


1010 


D400 
ocoo 
6500 
6000 
ocoo 
D400 
1000 
4C98 
E400 


4C20 


4C 80 
6500 
6D00 


4C00 


C400 
4C04 
Cod2 
0400 
T4FF 
TOFO 
6105 
6600 
6700 
6FOO 
6700 
4400 
7001 
COBF 
0400 
TOED 


7 O9SEP67 
4203178 


a 


0872 
0651 


DODF — 
TOES 


1442 
OAEE 


0100 
0850 
OAEF 


OAE7 
0628 
3000 


O8FB 


0628 
OAES 


osTT 


0658 
O89F 
os77 


Ossc . 


O5E6 
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OaESs 


0885 


OAEA 
OSFB 


0114 
0617 
OAES 
oB0D 
oacc 


OAEA 
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eather gyn a en tert ena ne A UR aE ae ft nt SN Ae Re Arn at ms oe ne aH ER er 


BSC EL RTACeZ BR IF SWS SET 
MOX LL RTAPCe+] UPDATE PASS COUNT 
LD RTAPC LOAD NEW DELAY FACTOR 
RTAC STO RTADC STORE DELAY FACTOR 
MDX RTAA BR TO READ NXT CD 
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lp SD Ci EPSP 62-tey E> > GR CSD Gly Che dew Od GAS EES APSO? Ga > EP a GE Ge OOS GE Ap Sees Ga GD GEE > Ge SS AE Li SP 
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TESSHSSHSHHRS SSS HEATH SSS HS CRAKS SSH HS SESSELSSVVSSS 
wees SERVICE SUBROUTINES stsee 
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SRKKESSCRSEKKSKKSSESKSTKKSVSCSESSSSESSHTSSSHESESSSSSSVLSESSSTS 


INITIALIZE 1442 SUBROUTINE 


THIS SUBROUTINE INITIALIZES THE 
1442 PRIOR TO STARTING ANY ROUTINE 





* AND TYPES A LOAD BLANKS MESSAGE 
ewe wee we wee ee eee Ge we Bere Oe eee a eee aww ewe e-aree ae am 
e 
s 
WICNT DC os 
KO000 OC 70000 
KOOO1 OC /0001 
id 
INPCH DC 2% | 
LDX Ll 41442 MACH TYPE 
STX Ll MACH 
Lox 12 MSG NO. 
LOX Lt2 /0100 NO DATA 
LOX L3 ALDMR LOAD AND MAKE RDY MSG 
BSI Lt TYPE 
SLA 16 
STO L WAS4 
INRST XIO L SNS RESET UNSERVICED INT 
INHAT LDX L1 73000 TIMING CONST 
STX LL IWTCT FOR TIMING LOOP 
WATFR XIO -L  SNS1 GET DSW 
STO L WAS! | 
NOP USE FOR TRAP 
BSC 1 INPCH»+- 6R IF RDY AND NORMAL 
AND L_ KFFFE | 
BSC L DSWEIe2 BR IF DSW INCORRECT 
BSC I INPCH | a 
IRDYR LOX LI WATFR SET RETURN POONT 
STX Ll MLSCF4l | 
BSC Lt WAITS CHK SWl + RET TO MONITOR 
a 
DSWEI LO =L WAS! INCORRECT DSW 
BSC L RDYERSE BR IN NROY BIT ON 
LD x0002 
STO t O2BE SHOULD BE 
INMSG MDX Lt IWTCT»-1 DECRE COUNT 
MDX. IRDYR BR TO MON 
LOx 15 MSG NO 
LOx L2 0114 WAS~~—O2BE 
LDX (3 AINIT INITIALIZING 
STX L3 ALPH2 
LOX 3 ADSWE DSW ERROR 
BSI Lt ETYPE TYPE ERROR MSG 
MDX INRST BR TO RESET AND TRY AGN. 
RDYER LD x0000 | oe 
STO t O2BE. SHOULD BE 
MOX §—_INMSG 
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30€07430 
30E07446 
30E07450 
30E07460 


30E€07470 — 
30E07T480 > 


30E07490 
30€07500 
30E07510 
30E07520 
30€07530 


30E07540 | 


30607550 
3UE07560 
30E07570 


30E07580 


30E07590 
30E07600 
30E07610 
30E07620 
30£07630 


30E07640 


30£07650 
30E07660 
30E07670 
30E07680 
30E07690 
30E07700 
30E07710 
30E07720 
30E07730 


30E07740 


30€07750 
30E07760 
30E07770 
30E07780 
30£07790 
30607800 
30£07810 
30607820 
30607830 
30£07840 
30607850 
30E07860 
3007870 
30£07880 
30£07890 
30E07900 
30£07910 
30607920 
30£07930 
30£07940 
30£07950 
30£07960 
30E07970 
36607980 
30€07990 
30£08000 
30E08010 
30£08020 
30E08030 
30E08040 
30E08050 


30E08060: 


30E08070 


30E08080 
30E08090 
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TOR MAINTEMANCE BIAGKOSTIC PROGRAA FOR THE 1130 SYSTEA ence RO. Renner 4 10M MAIMTEWANCE DEAGNOSTIC PROGRAM FOR THE 1130 SYSTEM Ae 6B. sad al 
AG a 
2501/1442 MOD 5 FUNCTION TEST ‘| ® 2501/1442 MOD S FUNCTION TEST 
Pe 
| il © 
a INITIALIZE 25023 SUBROUTINE 30€08110 i 0901 1 C400 CAET Lo { WAS4 RAST OF COMP OSW 30E08790 
SKOSCACSLRSSSASSSISSSSSSSSRSSSSSSSSSSSSSSSCSSesssss 30£08120 ah. 0903 0 1003 SLA .. 3 CHECK LAST CARD 30€08800 
s | 30E08136 -° ® 0904 2% 4C10 0912 esc t CHRDY»- BR IF NOT LAST CARD 30E0031C6 
s THIS ROUTINE INITIALIZES THE 30E08140 6906 1 OC00 0622 xIO t FDACD FEED LAST CARD OvT 30E08820 
3 2502 PRIOR TO STARTING ANY ROUTINE 30E08150 a 0908 8 6103 LOX 1 3 MSG WO | 30608830 
See eee ener eee eeecconcesc== 30608150 _ @ 0909 0 6600 0100 LOX L2 £0100 DATA 10 - 30€08840 
s | 30E€08170 O90B i 6700 OAFA L£Ox &3 ALCO LAST CARD 30E€08856 
s 30E08180 = 090D 1 4400 OAEF 8SI t TYPE 30€08860 
S889 1 088A INRDR BOC s- & 30E08190 ~ 8 O90F 2 4400 OSFA — 6ST tC CNTRL JO ROUTINE COMTROL 30E03670 
O8BA 0 6500 2501 Lox ti 72502 RACH TYPE 30E08200 0911 6 6500 3000 CHRDY LOX £1 /3000 30E08680 
O86C 1 6006 GAEE STX Ll MACH 30€08210 es 0913 3 $800 O8FB STX &2 IWTCT FOR TIMING LOOP 30E08390 
O8BE 0 610} Lox 11 SG NO 30E08220 ° . 0915 1 O0COO 0628 CROYL XIG t SNS1 SENSE OSW 30E08900 
O88F 0 6600 0100 tDx t2 40100 . OATA 10 30E08230 0917 1 4C0% 0918 BSC Lt CWTFReE BR IF NOT READY 30E€06910 
08Ci 1 6700 0850 LOX C3 ALDAR LOAD NSG 30€08240 0919 1 4C80 O38FC 8SC I CHK14 RETURN IF READY 30€08920 
O6C3 1 4400 OAEF BSI & TYPE 30£08250 Ti ® * 30£08930 
s . 30E08260 s TIMING LGOP FOR NOT READY  +30E086940 
08CS 6 1010 SLA 16 30E08270 0918 1 T4FF OSFS CWTFR MOX G&G IWTCTe-2 DECREMENT COUNT 30E08950 
08Cé 1 0400 GAET STO t WAS ; 30E08280 t ® 091D 0 7009 OX CRDYR LOOP UNTIL TIMEOUT 30E08960 
o8Cs 1 OCO0 062A RINRS XIO LL SNS2 RESET UNSERVICED INT _ 36E08290 O91E O 6102 LOX 1 2 *SG NO 30E08970 
O8CA 0 6500 3000 RINWA LOX 1 /3000 TIMING CINST . 30E08300 O91F O 6600 0100 LOx t2 /0100 DATA 10 30E08980 
@8cCc 1 6000 O8FB STX L2 IwtcT FOR TIMING LOOP 30€08310 c ® 0921 1 6700 0800 LOX 3 ANRDOY NOT READY 30E08990 
Ss 30E08320 0923 1 4400 OAEF BSI t TYPE 30E09000 
@8CE 1 OCOD 062A RWATF X10 Ut SNS2 GET OSW 30E€08330 0925 1 4C00 09311 BSC t CHROY 30E09010 
@60® 1 D400 OAES STO t WAS! | 30E€08340 f @ es. 30E09020 
88D2 G6 1000 NOP USE FOR TRAP 30E08350 . 0927 1 6500 0915 CROVR LOX L212 CRDOVL SET RETURNTO RONITOR 30E09030 
6303 1 4C96& O889 BSC 3 INRDR,+- BR EF RDY AND NORMAL 30E08360 0925 1 6000 O05&6 §TX Lil ALSCKe) 30E09040 
s _ 30€08370 e ® 0928 2% 4€00 O6AD BSC L WAITS CHK SWi ¢ RET TO MONITOR 30E09650 
@805 1 E400 0679 AWD & KEFFE REMOVE L/C AND NROY BITS 30E08380 a eS - i 30E09060 
O8D7 1 4C20 0808 6SC bk RODSWES2Z BR IF OSW ERROR 30EC8390 SESRSELSSSSSKTESKSSSSSSESSASSSSSSESSSSLSSSSESSSSSSSSesses 30E0907G6 
0803 1 4C&80 0889 BSC 28 INRDR RETURN TO TEST ROUTINE 30E06400 g d S | CHECK STATUS 2501 SUSROUTINE . 30E09066 
@8DB i C400 OAES RDSME LD t Was! GET ERROR DSW 30E08410 | SSSCKKSSSVSSLASSSSSSSSSSHESSSISSSSRSELKSSSSRSSSSSSSSS 30609090 
O800 1 &C0& O8F} BSC LL RROVESE ERRGR AND NRDY 30€08420 s -  30E09209 
GB80F 0 C09 LD - k0001 PROPER DSW - 30608430 g @ ® THIS SUBROUTINE CHECKS FOR NRDY OR 30609110 
O8E6 1 0400 OAEA 7 S¥7O k& O2BE . ; | ~ 30E08440 3 LAST CARD ON THE 2501. IF L/Cy IT 30609120 
G8E2 1 T4FF O8FB RINRS MOX EL IWTCTse-] DEC COUNT 30E08450 e LINKS TO THE CONTROL ROUTINE — 30E09130 
O8E& 6 7010 MDX ~~ RERDY 2 30£08460 g ® Pome nee ween ne een e nee eeeewmeemaen—= 30609140 
O8E5 6 6105 tox 2} § #SG NO 30E08470 & 30E09150 
O8E6 0 6600 60114 LOx Lt2 #0124 DATA 1D 30E08480 a ~ 30€09160 
®8E8 1 6700 0B17 LOX L3 AINIT IMUTIALIZING 30£08490 g ® 092D 0 0000 CHK25 DC o-8 30E09170 
@SEA 1 6FOO OAES STX t3 ALPK2 30EC8560 O92E 0 6500 2501 LOX L212 4/2501 MACH TYPE 30E09160 
+ @8EC 1 6700 0800 -DR £3 ADSYE OSe ERROR 30E€08510 0930 1 6D0O0 OAEE STX LL) MACH . 30E09196 
. OBEE 1 4400 OACC BSE bk ETYPE 30E08520 f 2 0932 1 C400 OAET LD L waASé | 30E09200 
S 30E08530 C334 0 1603 SLA 3 CHECK FOR LAST CARD 30E09210 
O3F6@ 6 7007 ROX RINARS TRY TO RESET AGAIN 30E08540 0935 12 4010 0946 BSC tL RCHRDe- BR IF NOT LAST CARD 30E09220 
° 30€08550 ej; @ 0937 8 6103 LOX 13 MSG NO 30£09230 
O8Fi oO CO83 RROVE iD Kx0000 READY OSw 30E08560 0938 0 6600 0100 tox t2 /0100 DATA 10 30E0S240 
@SF2 1 D400 OAEA STG tL O2BE 30E08570 093A 1 6700 OAFA LOX t3 ALCD LAST CARD — 30€09250 
@6F4 6 TOED ADX RINKS SQEQCRSRO 8 @ o93C 1 4400 OAEF BSI & TYPE . * 39€09260 
s . 30E08590 ; . & 30E09270 
@©6FS 1 6500 O8CE REIRDY LOX Ll RWATE RETURN POINT 30E08600 O93E 2 4400 OSFA BSI t CRTRL RETURN TO SEQ CONTROL - 30E09280 
@8F7 1 6000 O5E6 STK Li MLSCFS] , 30E0861U 8} @ : | SS 30£09290 
O8F9 1 C00 O6A0 BSC tL WAITS CHK SW1 + RET TO AONI TOR 30E08620 0940 6 6500 3000 RCHRD LOX Ll /3000 30€09300 
, s 30E08630 0942 1 6DO00 O8F6 STX 1) IWTCT FOR TIMING LOOP 30E09310 
SSESASSSSSESSSSSSHSSSSSS SSSKS ESS SESESSSSSSSISESESSS 30E08640 § ® 0944 1 OCOO O62A RCROY XIO L SNS2 SENSE 2501 DSW 30E09320 
s CHECK STATUS 1442 SUBROUTINE 30E08650 0946 13} 4C04 O94A BSC CL RCWTFEE BR IF NOT READY 30E09330 
SHOSHSSSSLSSSSSSSSSSSOS SS SASS ST SEHSSSSSKSSSSSSSKSSSSSS 30E08660 | 0948 1 4C80 0920 BSC 1 CHK25 RETURN TO TEST ROUTINE 30€09340 
s ae _— . 30£08670 |  ) : a ® _ | 30E09350 
. THIS SUBROUTINE CHECKS FOR WROY 30E08680 094A 1 T4FF O8FB RCWTF MDX L IWTCTe=2 DECREMENT COUNT 30£09360 
® OR LAST CARD ON THE 1442. IF L/Ce 30E08690 | -—094C @ 7008  * OX ~~ RCRYR , 30€09370 
s GO TS CONTROL FOR NEXT ROUTINE. 30E08700 8 @ 094D © 6102 LDX 1 2 "SG &O 30£09380 
s ' 30E08710 094E @ 6600 0100 LOx tLe 40100 DaTa 10 30E09390 
s | 30€08720 e950 31 6700 OB00 LOX L3 ANRDY NROY 30E09400 
° | | 7 30£08730 @& |e 0952 1 4400 OAEF BSI L TYPE  3CE09410 
O8FB @ 0000 IWICT OC s-8 WAIT LOOP COUNTER 30E08740 go se po 8 ~~ 39609420 
s 30E€08750 0954 0 TOES MOX ~ RCHRO TRY AGAIN 30E09430 
@6FC @ 0000 CHKI4& DC s=8 30E08760 | & 0955 1 6500 0944 RCRYR LOX Ll RCRDOY SET RETURN POINT 30E09440 
G8FD 6 6500 1442 LOx £1 73442 RACH TYPE 30E08770 0957 2 @DO0O OSE6 STX Ll MLSCFe) P | -. 30E09450 
OSFF 2 6D00 OAEE STX 02 MACH : , 30E08780 g 2 0959 1 4C0O O6AD BSC L WAITS CHK SWl ¢ RET TO MONITOR 350E09460 
DATE 1SJUN67  O9SEPOT PROG 1D 030€-0 ae |) DATE 15JUN67  GOSEP6T PROG 10 0306-0 
EC NOW ©. £20317 + £%203178 PAGE 7 ; EC NO. 420317 203178 Pace 7A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2501/1442 MOD 5S FUNCTION TEST 


DATE 
€cC NO. 


0958 60 0000 
095C 1 OA29 
0950 0 0000 
O95E O 6500 1442 
0960 1 6600 OAEE 
0962 1 C480 0950 
0964 1 0400 0626 
0966 0 DOF4 
0967 1 7401 0950 
0969 1 8480 0950 
096B 1 9400 0876 
096D O DOEE 
O96E 1 7401 0950 
0970 1 C480 O095C 
o972 1 ECOO 0657 
0974 1 D480 O95C 
0976 1 OCOO 0624 
0978 1 4400 O69C 
OOTA 1 T&FF 0626 
o9s7C 1 C480 O9S5C 
O9TE 1 F480 0626 
0980 1 4C20 o98C 
0982 1 740} O95" 
0984 1 C42a0 O9S5SC 
0986 1 €400 0656 
0988 1 0480 O95SC 
O98A 1 4C80 0950 
098C 1 C480 0950 
O98E 1 0400 OAED 
0990 1} C40C 0626 
0992 6 90CS& 
0993 1 8400 O876 
0995 1 D400 OAEB 
0997 0 6106 
0998 @ 6600 0140 
099A 1 6700 0830 
o99C 1 4400 OACC 
O99E 0 70ES 
OS9SF 6 9000 
O9A0 0050 
OSFO 6 000] 
O9F1 06 0000 
O9F2 0 6500 2501 
LS JUN6T7 O9SEP6T 
420317 4203178 
| ) 
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SSPSSSSSSSESSASHSSSS SCS SESE SSSTSSESSESCEELVSKELSKESESSS 
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s , 
PBGAD OC 
TERAD OC 
PNCH OC 
LOX 
STX 
Lo 
sto 
STO 
MDX 
A 

$s 
$T0 
MOX 


LO 
OR 
~$To 


x10 
BSI 


MDX 
LO 
EOR 
BSC 
MOX 
PRTN LO 
AND 
$TO 
BSC 


PUNEN LD 
$TO 
LO 
s 
A 
$TO 
LOX 
LOX 
LOX 
BSI 
MDX 
s 


SSSCCSCSSSSSSAESSKSSKSSSSKSESSSKSLSKHSSKSSLSEKSSRSSSESESAS 


SSFRLSSSE SS ERHSSLSKSS SST SKSKS SSL ETKSSLSSKS SSK KSESSSERSES 





RAREA OC 
BSS 
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RDACD OC 


- Per Pee 
td 


Perr Fr FRM 


| ad 
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ot 


man emer Pm FP 





PUNCH A CARD ROUTINE 


THIS SUBROUTINE PUNCHES A CARD . 


AND CHECKS THAT THE PROPER NUMBER OF 


COLUMNS WERE PUNCHED 


Cr 
WAREA 
So-F. 
11442 
MACH 
PNCH 
PUNCH 
PBGAD 
PNCH,?1 
PNCH 
KoOoOo] 
TERAD 
PNCH,?] 


TERAD 
KOO06 
TERAD 


PCHST 
WAIT 


PUNCH,—1 
TERAD 
PUNCH 
PUNEN,Z 
PNCHe?] 
TERAD 
KFFF7 
TERAD 


-PNCH 


PNCH 
COLCT 
PUNCH 
PBGAD 
KOOO] 
COL 

6 
40140 
ACCER 
ETYPE 
PRIN 





BEGINNING ADDRESS 
TERMINATOR ADDRESS 


‘MACH TYPE 


GET START ADDRESS 
PLACE IN I10CC 
BEGINNING ADDRESS 
ADD NO OF COLS 
NEW ADDRESS 


FETCH TERM CHAR 
APPLY TERM BIT 


‘START PUNCH 
‘WAIT FOR OP COMP 


TO LAST CHAR PUNCHED 
LOAD PROPER LAST CHAR 


BR IF UNUSUAL END 
TO NORMAL RETURN 


REMOVE PREVIOUS | 
TERMINATOR 
RETURN 


NO OF COLUMNS 

COL COUNT SHOULD BE 
LAST ADDRESSS 

BEGIN ADDR 


COt COUNT WAS 
MSG NO | 

DATA ID 

COL COUNT ERROR. 


READ A CARD ROUTINE 


THIS ROUTINE READS A CARD INTO 
THE READ AREA. — . 





s-¢ 
80 
70001 


b Sda! 


LOx Ll /2501 


oS ap 





WORD COUNT 
AREA 
TERMINATOR 
RETURN ADDR 
MACH TYPE 


FOR LENGTH 








PART NO. 
PAGE 


30E09470 
30E09480 
30€09490 
30E09500 
30E09510 


30E09520 . 


30E09530 


30E09540 


30E09550 
30£09560 
30E09570 
30E09580 
30E09590 
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30E09640 
30E09650 
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30£09750 
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30E09860 


. 30E09870 


30E09880 
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30£10030 
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30£10050 
30E10060 
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IBM MAINJENAKCE 


2501/1442 MOD 5S 


DATE 
EC NO. 


DIAGNOSTIC PROGRAM FOR THE 


FUNCTION TEST 


O9F& 1 6000 OAEE 

O9F6 1 C400 0876 

O9F8 0 6150 ee 

O9F9 1 D500 O99F 

O9FB O VIFF. 

O9FC 6 TOFC 

O9FD 1 C480 O9F1L 

O9FF 1 0400 O099F 

OAO)] 1 7401 O9F1 

OA@3 1 OCOO 062C 

OAGS 1 4400 069C 

OAO7T 1 6580 O99F 

OAO9 1 C500 099F 

OAOB 1 4C04 OA12 

OAOD 0 7101 

OAOE 1 C500 O099F 

OA10 1 4C84 O9F1 

OA12 1 6580 O99F 

OA14 1 6D00 OAED 

OA16 0 6150 

OALT 1 C500 O99F 

OA19 1 &C0& OA26 

OA1B 1 6000 OAEB 

—O0A1D 0 6107 

OALE 0 6600 01A0 

OA2@ 1 6700 0830 

OA22 1 4400 OAC 

OA24 1 4C80 O9F} 

OA26 O TIFF 

OA27T © TOEF 

OA28 O TOF2 

OA29 0 8010 

OA2ZA O 4020 

OAZB O 2040 

OA2C 0 1080 

OA2D 0 0900 

OA2ZE 0 0600 

OA2F © 0600 

OA30 6 0900 

O0A31 0 1080 

OA32 0 2040 

0A33 0 4020 

OA34 0 8010 

OA35 O FFFT 

OA36 0 8880 

0A37 0 CCCO 

OA38 @ EEEO 

—0A39 © FFFO 

OAZA @ T77T 

OA3B 0 3333 

OA3C O 1111. 

OA3D O FFFT 

OA3E 0 AOGOO 

OA3F @ 9000 

0440 0 8800 

OA41 0 8400 

OAS&2 O 8200 

0A43 @ 8100 

@A44 0 8060 

0A45 6 8040 

0446 0 8020 

ISJUN67 O9SEP67 
420317 4203178 
aot —~ A 
_) 
NL : Ses e nN wy 


1130 SYSTEM 


STX Ll MACH 

LD tL Koool TO CLEAR READ AREA TO 

LOX 1 80 ALL TERMINATORS 
RDACR STO Ll RAREA. 

MDX 1-1 

MDX RDACR 

LD I RDACD FETCH NO OF COLS 

STO LL RAREA STO AT WORD COUNT 

MOX L RDACD,+1 TO RETURN 

XIO0 tL IJIREAD INITIATE READ 

BSI tL WAIT WAIT FOR OP COMP 
+e a CHECK FOR UNUSUAL END 

LOX I] RAREA ADDR OF LAXKT CHAR 

LO Ll RAREA LOAD LAST CHAR 

BSC L RUNENGE | BR IF TERM STILL THERE 

MDX 1 +1 TO NEXT CHAR 

LO Ll RAREA: POSITION AFTER LAST CHAR 

BSC I RDACD,E BR IF TERM NOT THERE 
RUNEN LOX I1 RAREA NO OF COLUMNS 

STX tl COLCT SHOULD BE _ 

LOX 1 80 
RELD LOD Ll RAREA FIND LAST CHAR READ 

BSC L RERFNeE BR IF NOT LAST CHAR 
RENON STX L1 COL COL COUNT WAS 

LDX 1 7 “SG NO 

* LOX L2 /01A0 DATA 10 

LDxX L3 ACCER COs COUNT ERROR 

BSI L ETYPE 

BSC I RDACD RETURN TO TEST ROUTINE 
& . 
RERFN MDX 1 -1 

MOX ‘-RELD 

MDX RENON 
* 
SKLECKCKRESKTSKLSSSKKSKKSKSKESSSS TS SSESSCKSSEKSKESTSKSEKKS 
Seeee WRITE AREA FOR PUNCH | 
SRESKSARSKSKTCSTSESTCSTLKCESCKSKCKSEKRSSLSESCKCCKSSAKESHSTKEKLESSS 
s , 
WAREA DC 48010 COLUMN 1 

OC 44020 | 

DC 42040 

DC 41080 

DC 40900 

oC 40600 

oc 40600 

oC 40900 

DC 41080 

DOC 42040 

oC 44020 

oc 48010 

OC SFFFT 

oC 48889 

oc /CCCO 

oC JEEEO 

oc /FFFO 

oc AV7T7 

oc 43333 

oC A111 

OC SFFFT COL 21 

oc 4A000 

OC 49000 ALPHA RIPPLE 

oc 48800 

oc 18400 | : 

oc 48200 COL 26 

oC 48100 

oc 48080 

oc 18040 

oc 178020 

ON, a . gore AK ae a 
| 
Re =, * ty: ee ) as 
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30E10680 
320&10690 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ool NO. Batn7ee Le 2 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ean NO. aa¢7e2e 
| ~ | PA . ro 
2501/1442 MOD 5 FUNCTION TEST Df 2501/1442 MOD 5 FUNCTION TEST | 
+» | 3 . 
OA47 0 8010 oc 78010 30£10830 OASB 0 3333 oC 13333 30E11510 
0A48 @ 5000 oc 75000 30£10840 is OA8C 0 1111 oc “ULL 30E11520 
0A49 0 4800 oc 44800 | 30E10850 * 3 OABD O FFFT7 pc  SFFFI COL 22 - 30€11530 
CASA 0 4400 oc 14400 -30E10860 OASE 0 A000 oc ~~ 4a000 30E11540 
OA4B 0 4200 OC /%200 30£10870 OABF 0 9000 DC 49000 ALPHA RIPPLE 30E11550 
Oa4C 0 4100 oc /4100 30E10880 t 3 -- @A90 0 8800 OC ~~ 48800 30€11560 
 .QA4D @ 4080 oc 14080 30E10890 : O0A91 -0 8400 05 =—s«s 8400 -30€11570 
OASE © 4040 oC 14040 30E10900 - 0A92 0° 8200 OC - £8200 COL 26  .30€11580 
OASE 0 4020 pe 14020 30£10910 ft) 3 0493 0 8100 DC 18100 30611590 
@A50 © 4010. oc 4/4010 COL 40 WAREA?39 30E10920 | /0A94 0 8080 DC 78080 -30€11600 
0451 0 3000 oc 3000 -30E10939 e . 0A95 0.8040 oc 1/8040 30E11610 
0A52 © 2800 — oc £2800 30E10940 | = 0A96 0 8020 CC 4/8020 - 30€11620 
0453.0 2400 oc 42400 30E10950 -0A97 0 8010 pc 48010  30€11630 
©A54 0 2200 oC /2200  30€10960 a  9A98 0 5000 pC — 75000 30€11640 
0455 0 2100 oc /2100 - 30£10970 e vs 0A99 0 4800. DC ~ 14800 30€11650 
0A5S 0 2080 oc /2080 30€10980 | OAIA 0 4400 oC 14400 30€11660 
CAST O 2040 oc 12040 -30E10990 = O0A9B 0 4200 pC /4200 -30€11670 
0A58 0 2020 - oc 12020 30E11000 | y OASC 0 4100 DC 14100 30E11680 
0459 0 2010 oc /2010 -30E11010 | OA9D 0 4080 DC 4080 30E11690 
0ASA 0 0000 oc 7/0000 30E€11020 | . OASE 0 4040 OC 14040 - 30E11700 
0A58 © FCOO oc /FCOO 30E11030 a } OASF 0.4020. DC 14020 7 -30€11710 
OA5C 0 03F0 oc /03F0 —30E11040 —QAAO 0 4010 DC 14010 COL 40 WAREA+39 30€11720 
OASD 0 FCOO oc /FCOO -30E11050 OAAl 0 300C oc 13000 | 30€11730 
OASE O O3FO oc 403F0 30E11060 q | OAA2 0 2800 DC /2800 -30E11740 
OASF 0 0000 oc /0000 30E11070 OAA3 0 2400 DC 12400 30E11750 
0A60 0 8887 pC /8887 30E11080 OAA4 O 2200 OC. 12200 30£11760 
@A61 0 4444 oc 14444 30E11090 a t OAAS © 2100 DC 42100 30E11770 
OA62 © 2222 oc 12222 30E11100 | OAA6: 0 2080 Oc /2080 30E€11780 
063 0 11212 oc “ili 30E11110 8 | OAAT 0 2040 DC 12040 30£11790 
-@A64 0 0007 oc 40007 30£11120 3 OAAB 0 2020 Dc 42020 30€11800 
OA6S 0 8880 oc /8880 30E11130 OAA9. 0 2010 DC /2010 30£11810 
OA66 0 CCC4 oC /CCC4 30E11140 e OAAA 0 0000 OC -40000 30E11820 
OA67 O AAA2 oc JARA2 | 30E11150 | OAAB 0 FCOO oC ——«s / FCO 30€11830 
0A68 0 9991 oc 7/9991 30E11160 | ~ QAAC 0 03FO oC - /03F0 30€11840 
OA69 0 4hoh oc vee’ ~  _30€11170 — - OAAD 0 FCOO oc /FCO0O 30€11850 
OAGA 0 6666 oc 16666 _ 30€11180 €; 8 _ OAAE 9 03FO DC /03F0 - 30€11860 
OA6B 6 5555 oc 15555 30E11190 - QOAAF 0 0000 Dc 70000 -30E11870 
CACC O 2222 DC 12222 - 30E11200 -  0ABO O 8887 DC /8887 30€11880 
 0A6D 0 3333 oc (73333  30€11210 6 8B - OAB] O 44h6 DC [habe - 30€11890 
- QAOE © 1222 DC WACSS\ on -30€11220 | ++ QAB2 O 2222 DC 12222 --30E11900 
‘QA6F 0 0005 DC ~ £0005 CHECK PCH TERM _ 3011230 --. 0483 0 2111 DC “1112 -30E11910 
0470 0 0006 oc /0006 30E11240 @ 28  QAB4 0 0007 DC /0007 30€11920 
OA7L O FFFT oc JEFF?  30€11250 - OABS -0 8880 nya - 48880 - 30€11930 © 
OAT2 © FFFT oc . JFEFT -30€11260  OAB6 © CCC4 DC ~ “ICCCe -30E€11940 
 0A73° © FFFT oc JEFF 30€11270 a OABT O AAA2 OC JABA2- 30E11950 
OA7T& © FFFO OC /FFFO | _ .30E11280 :  OaB8 0 9991 oc 49991 -30E11960 
OATS O FFFO DC ..—S_—s- S/F FFO 30E11290 OABI 0 4444 DC  fahae - 30€11970 
@A76 0 FFFO oC .-. /FFFO _30€11300 @ ® - OABA 0 6666 OC 16666 © — 30E11980 
OA77 O FFFO oc . /FFEFO | | *30E11310  OABB-.0 5555 oc 3——s—i—s«i/' S555 -30E11990 
0478 0 0000 - 9¢ ..- 70000 | 30E11320. - OABC O 2222 OC "72222 - 30E12000 
0A79 © 8010 WARA2 DC -...__ /8010 cou 2 30£11330 6 ] OABD 0 3333 DC 43333 30E12010 
OATA 0 4020 -.* DOC 44020  30E11340 , ; -. QOABE.0 21122 0c -—s DLL 30E€12020 
OATB © 2040 DC —=... 2040 _30E11350 - OABF..0 0005 OC ~~ 10005 CHECK PCH TERM . 30E12030 
‘OA7C 0 1080 pc /1080 30E11360 8 2 OACO 0 0006 OC “10006 3 - .30E12040 
OA7D 0 0900 oc /0900 30E11370 | OAC) 0 FFFT DC is FFET . 30E€12050 
OA7E © 0600 oc /0600 | 30£11380 OAC2. 0 FFF7 DC °  J/FFFT » 30€12060 
OATF © 0600 DC - 40600 _ + 30E11390 @ 8 OAC3 0 FFFT oC SFFFT - 30€12070 
0a80 0 0900 DC /0900 /  30€11400_ Q@AC4& O FFFO DC _ JFFFO 30€12080 
0481 0 1080 pc 71080  30E11410 | OAC5.0 FFFO DC ° /FFFO 30€12090 
QA82 0 2040 oc £2040 - -  30E11420 6 8 OAC6 O FFFO DC § /FFFO —. 30€12100 
0A83 0 4020 oC 14020, 30E11430 OAC? 0 FFFO a OC ~~ «/FFFO —- 30E12110 
OA84 O 8010 oC .. £80230 - 30E11440 OAC8 O 0000 COL80 DC 40000 -. 30E12120 
OA85 0 FFFT DC FRET ' 30E11450 t r aie = |  30£12130 
O©A86 O 8880 oc. .ti(‘é‘ 888OOCO 30€11460 OACS 1 OACB WAREN DC  +~+—~=CoLsb0 30E12140 
0A87 0 CCCO oc  =—Ss«- sO 30E11470 ee. * : 30E12150 
OABS O EEEO oc .-—r=—~—.sCWEEECD ~—30E11480 8  ] SECSHSAASHSTSTATHS SHTHSTKSASHHSSSH SE SSEHER ETRE THESES 30€121690 
OA89 O FFFO oc. “/FFFO | 30E11490 * MESSAGE OUT SUBROUTINE 30612170 
GABA O T7777 oC OVTV77 - 30€11500 @ 2 STTKSSSSSSSKSSSTSSSSSE RSS SSS STHRASRSERASSESSSESSSBasee 30£12180 
DATE 15JUN67 O09SEP6T PROG 10 030E-0 g B DATE ISJUN67 O9SEP6T PROG 10 030E-6 
EC NO. 420317 #203178 — PAGE 9 EC NO. © 420317 . 4203178 PAGE OA 





&.. kee ERE AS ag tee se. 


}M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


:01/1442 MOD 5S FUNCTION TEST. 


TE 
- NOe 


OacA © 8000 
@acs 6 0000 
@ACcc @ 0000 
OACD 0 6913 
OACE © 6A1l4 — 
OACF © 6814 — 
OADO 1 7400 GACB 
OAD2 0 7008 
' @AD3 © 4480 0162 
 @a05 1 OAEL 
OADe 0 0000 
 @OAaDdT O 1010 
OaDs O DOOC 
- OADEP 1 4C80 GACC 
@adsB © COO? 
OADC O ESED 
—@A0D © D00S 
OADE O 1010 | 
OADF © 0004 
QAEO 0 7OF2 
OAE] 0 0000 
OAE2 0 OOEO 
@AE3 © 0000. 
OAE4 © 0000 
@AES @ 0000 | 
GAE6 O 0000 
@AET © 0000 
OAES © 0000 
OAED 6 0000 
OAEA 0 0000 
OAEB 6 0000 
OAEC 0 0000 > 
@AED © 0000 — 
OAEE 0 0000 
@AEF @ OGO0O 
‘OAFO @ 69FO 
GAF! O GAF) 
OAF2 © 6BF1 
OAF3 © 4480 0163 
@AFS 1 OAEL 
OAFG © 1010... 
OAFT © DOED | 
@AFS.1 4C80 OAEF 
15JUN6T O9SEP67 
-420317 4203178 
| | ‘ } 
ieee Sa ctent ie a 


s . 
8 THIS ROUTINE HANDLES LOG AND 
2 ERROR MESSAGES. LINKAGE TO EITHER 
% ROUTINE VIA BSI WITH MESSAGE NUM 
s IN XR1l_- DATA 10 WORD IN XR2_ AND 
s ALPHA] ADDRESS IN XR3- IF ALPHA2 
s ADDRESS IS REQUIRES, IT MUST BE 
s SET UP IN MAINLINE. 
Sawmoemeeewowwwe Ten enen 
Ss 
@ 
K8000 DC 48000 
CNISW DC t—-8 FIRST LINE SWITCH 
s 
ETYPE OC _ Bes 
STX lL MSGNO 
STx 2 DATIO 
STX 3 ALPHI, ; e 
MOX tL LNISWeO | SKIP IF FIRST LINE 
wDX ETYP2 BR IF 2ND LINE 
ETvYP3 68SI1 3 ERROR. 
oc MSGNO 
REPTS OC aa LOOP ADORESS 
SLA le CLEAR ALPH2 
‘$To  ALPH2 FOR NEXT MAG 
Osc 3 ETYVPE 
‘ 
ETYP2 LO DATIO FOR 2ND LINE. 
OR K8000 | AOD MULT LINE BIT 
$TO OaTio 
SLA . 16 
Sto ALPH} . CLEAR HEADING 
MOX ETv?3 | 
s 
@ CDEP PALEY ED 
s MESSAGE AREA | 
Sewwroee — PE ane o> aren GP as aren eran & ap 
s 
MSGNO OC S—-8 MESSAGE NUMBER 
. oC 4O00E0 HEX-DEC SWITCH 
DATIO OC s—-8 DATA ID 
ALPHI OC s—% ALPHA ADDRESS 1 
ALPH2 OC t—-8 ALPHA ADRESS 2 
waso OC Bs-8 OSW LEVEL O WAS 
WASs Oc s-8 DSW LEVEL 4 WAS 
WASI oC e-8 OSW INITIALLY WAS 
wasd OC t—-8 DATA WAS 
O2B8E OC s-8 OSW SHOULD BE 
CoOL oc S-8 ERROR COLUMN 
WOCNT OC t—-8 WORD COUNT 
COoLcT Oc s-8 COLUMN COUNT S/86 
MACH. OC 3-8 MACHINE TYPE 
s 
TYPE OC | t—-8 
STX 1 MSGNO 
STX 2 OATIO 
STX 3 ALPH) 
8SI I t06 
oc eSGNO 
SLA lo 
~$to |. ALPH2 
Bsc I TYPE. 
s 






































Seeveaaececesesesessssseessssesevesesesessesessee 


MESSAGE AREA S8eeereceseseseess 


SSOLSSSSSSSSSSS SSS SHE SSH ASS SSSSSSSESS SSS SARSKSSSS 


/ 
7 

/ 
7 
J 
7 


fe nce Mach AU te arn te SH Capt ac pe a eb he Aen eg gc NERS Anne Me att Tete A needs an dese e Aten wae 


PART NO. 


PAGE 


30E12190 
30E12200 


30E12210 > 


30E22220 


30E12230 


30E12240 
30E12250 
30E12260 
30E12270 
30E12280 


30E12290. 


30£12300 
30E12310 
30£12320 
30€12330 
30E12340 
30€12350 
30E12360 


30E12370 — 


30E12380 
30E12390 


30E€12400 _ 


30E12410 


30E12420 


30E12430 
30E12440 


30E12450 


30€12460 
30E€12470 
30€12480 
30£12490 
30E12500 


30E12510 | 


30E12520 
30E12530 
30E12540 
30E12550 


30E12560 - 


30€12570 
30£12580 
30E12590 
30€12600 
30E12610 
30E12620 
30€12630 
30E12640 
30€12650 
30£12660 
30E12670 
30E12680 
30£12690 
30€12700 
30E12710 
30€12720 
30E12730 


30E12740 
30E12750° 


30E12760 


30E12770° 


30E12780 


30E12790 . 
30E12800. 
30€12810 © 
30E12820 


30E12830 


30E12840 — 
30E12850. 
30E12860 


PROG ID 


PAGE 


x 


2243550 


10 


030E-0 
10 


¢ 9 


¢¢ 


AE AE CITE OE COE Ls CTY = ee Se me OG Ok 


ee 
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IBM MAINTENANCE 


2501/1442 MOD 5S 


DATE 
EC wo. 


3 
OAFA O SE3E ALCO OC 
OAFB O SA9E oc 
OAFC O 211E oc 
OAFD @ 3E62 oc 
OAFE 0 3221 oC 
OAFF © FFFF oc 

s 

s 
OB00O O 7662 ANRDY OC 
0801 O 32A6 — oc 
QBO2 O FFFF oc 

3 
0B03 0 SE36 ALVL4 OC 
0804 0 8636 — oc 
OBC5 0 5E21 OC 
0B06 @ FO0O DC 
0807 O FFFF oc 

s 
OB08 O 5E36 ALVLO OC 
0809 0 B636 oc 
OBOA O 5E21 — oC 
oB0B @ C400 Dc 
OBeC 0 FFFF oc 

: & 

OBOD 0 923E ADSWE OC 
OBOE 0 9A21 | oc 
OBOF 0 219A. oc 
0810 @ BCIA DC 
OB11 O 2121 DC 
OB12 0 329A _ oc 
0813 0 9221 oc 
0814 0 3662 oC 
0815 0 6200 oc 
0B16 G FFFF oc 

= 
0817 GO 2276 AINIT OC 
0818 0 229E oc 
0B19 O 223E oc 
OB1A 0 SE22 oC 
0818 0 A222 oc 
OB1C O 7616 oc 
0B1D O FFFF oc 
OBLE @ 923E ADTAE OC 
O81F 0 9421 oe 
0820 @ 219A. DC 
0OB21 0 BSCIA oC 
0622 0 2121 oc 
0823 O 1E52. oc 
0B2¢ ® 5E2) oc 
0825 0 2132 oc 
0B26 @ 3E9E oc 
0827 0 3E21 | oC 
0828 8 3662 oc 
OB29 @ 6221 oC 
OB2A OO FFFF oc 

: s 
0828 0 9A36. ASETP DC 
OB2C @ 9E21 oc 
0820 0 563E oc 
OB2E @ SESE oc 
OB2F 6 2122 | oC 
3830 @ 7621 — oc 
0831 0 9A92 oc 
0832 @ 21C4& oc 
0833 6 84FC C8. oc 
0834 0 FC21 oc 

1S JUN67 O9SEPOT 
420317 4203178 
eo A ae ~ 
) | 
oy Nt ge * es 


sn bee a aes ai nage nae ean ti aH Rot TS drei 


ae 
a sce 
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DIAGNOSTIC PROGRAM FOR THE 1130 SYSTERM 


FUNCTION TEST 


/SE3E 


J9A9E- 
f211E 


/3E62 
1322) 
/FEFF 


11662 
132A6 
/FFFF 


45E36— 
18636 


4S5E21 


4FO00O0 | 


/FFEF 


45E36 
48636 
45E21 


10400 - 
/FEFE 


—, 4923E 
49421 
S2194 
—7BCIA 


42121 
43298 
49221 
13662 
46200 
SFFEF 


42276 
4229E 
4223E 


LAST CARD 
ST . | 


LEVEL 4 


S5E22 © 


1222 
17616 
/FFFF 


/923E 


79021 
42194 
JBCIA 
42121 
JIES2 
45E22 
42132 


J3E9E 


43E21 
13662 


A 


46221 
/FPPE 


/9A36 
49E22 


/563E°— 
S9E9E - 


12122. 


47621 


49092 


421C4 


/84FC 
sFC2L 


VE 
L 
& 


LEVEL O 
VE 
L 
0 


WAS S/B OSW ERR 
$ 


$ 
48 


OS 
w 


IMITEALIZING 
IT 
TA 
Ll 
ZI 
NG 


WAS S/B COL DATA ERR 


$ 
$ 
48 


co 

L 
D 

AT 


SET PATT IN SW O- 
T 
PA 
TT 

i 
N 
Su 

0 
-1 
i 


Li 


PART NO. 2243550 


PAGE 


30E12870 


30E12860 
30E12890 
30E12900 
30E12910 


30E12920 | 
30E12930 | 


30E12940 


~30E12950 


30E12960 
30E12970 
30E12980 
30E12990 
30E13000 


30E13010 . 


30E13020 
30E13030 
30E13040 


30E€13050. 


30€13060 
30€13070 
30E13080 
30£13090 
30£13100 
30E13110 
30€13120 
30E13130 
30E13140 
30€13150 
30£13160 
30£13170 
30613180 
30E13190 
30£13200 
30€13210 


30E13220 


30E13230 
30E13240 
30E13250 


30E13260.. 


30E€13270 


30E€13260 


30E13290 
30E13300 


30E13310° 
30€13320_ 


30€13330 
30E13340 


30€13350. 


30E13360 
30E€13370 


30E13380 — 


30€13396 


30£13400. 
30E13410. 


30€13420 
30€13430 
30€13440 


30613450 
3013460 _ 


30€13470 


30E13480 
30€13490, . 


30E13500 


30613510 — 
30E13520__ 
30£13530. 
30E13540 


PROG ID 


' PAGE 


10A 


030E-0 
10a 


ot etnies pt tne Nar tat ange ie ie 
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PART NOW 2243550 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2243550 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER 


_ EC NO. 


420317 


4203178 





PAGE 


| PAGE ll _ PAGE 121A 
2501/1442 MOO 5 FUNCTION TEST Sie | Pie ¢ 250171442 MOD 5S FUNCTION TEST | 
0835 © 9620 OC /9E26—-.-.: THEN TN SW 12 30€13550 CROSS REFERENCE 
0836 0 367% oc 13676 EN 30E13560 ; NAME VALUE REFERENCES 
0837 0 219E DC /219€ T 30€13570 ACCER 0B3D 099A,0A20 | 
0B38 © 7621 DC 11621 N 30£13580 ~ ADSWE OBOD 0672+ 068E,0880,08EC 
0839 © 9a92 oC 19492 Sw 30E13590 = “ADTAE OB1E 0710,077F,0814 
OB3A © 23FC DC /21FC i 30E13600 AINIT 0817 O8AC,08E8 
0838 0 DB2) | Oc /082} 2 30E13610 ALCO OAFA 0908,093A - 
OB3C © FFFF. | oc /EFFF 30E13620 . — ALDMR 0B50 O87F,C8C) | 
eg ¢ | 30E13630 - ALPH] OAES OACF,OADF,CAF2 
0830 @ 923E ACCER OC /923€ WAS S/B COL COUNT ERR 30E13640 ALPH2 OAE5S 0670, 068Cy066C »08AEs08EA, 0AD8s 0AFT 
OB3E @ 9A2) Dc /9A2) S 30E13650 . ALVLO OB08 068A 
: OB3F 0.2198 DC 42198 § 30E13660 : ALVL4 0803 066E,06BA 
(0840 0 BCIA pc /BC1A 78 30E13670 ANINT OB84A O6BE -— 
0841 © 212) DC 42121 30E13680 , ANRDY 0B00 0921-0950. 
OB42 © 1652. OC s1€52 CO 30E13690 : -ASETP 0828 079540706 
0843 0 5E22 DC /5E2) L 30€13700 BEGIN 0160 O5Ee. 
OB44 0 1€52 DC /1ES2 co 30E13710 : ~ BGIN  O5E8 OBSA. 
0B45 @ 8276 oC /8276 UN 30E13720 f CHK14 O8FC  06D2,07%5,0785,082A,0S19 
0B46 0 9E2) hye /9E21 ™ ° 30E13730  CHK25 0920 06F 390730 .073F 107501075 sO TEE ,O82F 5 OB3F 08SEC 0948 
OB47 0 3662 - oC /3662 ER 30E13740 ; —CHRDY 0911 -0904,0925 
0848 0 622) OC 1622) B 30E13750 C ; CNTRL OSFA 05F9,06B3,090F ,093E 
OB49 © FFFF oc /FRFF 30E13760 CN1O0  O5FE 
aes a ® 30£13770 . —€N20 0605 OSFC 
 OB4A 6 7652 ANINT DC 47652 NO INTRPT 30E13780 T t -CN30 0608 0606 
OB4B8 6 2122 DC 42122 i 30E13790 “COL OAEB -O70C 070E 407740808 ,0995,0A18 
-O54C 0 769E oC /T69E MT 30£13800 COLCT OAED O98E,CAIS | 
OB4D © 6256 pc 16256 RP 30E13810 t J COL86. GAC8 OAC9 
OBSE 0 9E21 pC 79621 T 30E13820 CROYL 0915 0927 
OB4F © FFFF DC /EPFF 30£13830 | CRDYR: 0927 0910 
Se es 2 30E13840 f B  CWTFR 0916 0917 
0850 0 SES2 ALOMR DC /5E52 LOAD AND MAKE RDY 30E13850 '- DATID OAE3 OGACE,CADB,CADD CAF 
0351 0 3632 oC /3E32 ad 30E13860 - DSWAN 065C 0644, 054F 
0852 0 213E DC 1213 h 30E13870 f & OSWE] 089F 0895 | 
0B53 0 7632 pC /1632 ND 30E13880 DSWEO 0678 0650,0694 
0854 0 2172. DC 42172 ra 30€13890 ‘DSHIA 0630 05€0,0630 
0855 0 3E5A OC /3E548 AK. 30E13900 f DSWSA 063F 05F1,0648 
9856 6 3621. DC 13621 E 30£13910 DSW48 064A O05FS,0653 
OB57 0 6232 DC 46232 RD 30613920 END 0164 0609 
OB58 @ A622 DC #621 Y 30£13930 ' i @ — ERLCK 0166. 
 0B59 0 FFFF pc /FERF 30£13940 ERROR 0162 OAD3 
OBSA O5E8 END BGIN 30£13950 ETYPE OACC 0674 0690,06CO,071F 90781 908160882, 08EE,099C 0A22,08D9 
NO ERRORS IN ABOVE ASSEMBLY | g ® ETYP2 OADB OADd2 
ETYP3 OAD3 OAEO 
EOLCC 0696 a67E 
c & EORTN 0692 6699: 
EOTYP 0680 0698 
FDACD 0622 0906 
a e ILO —-« O17A_—sCOOSSEF 
Ith «©0188 
—IL2 = 0194 
G e 1L3 OLAA 
1L6 (018A O5F3,05F7 
INMSG 0846 0888 
& | ® - INPCH O877 06C6,0744,078D,0826,0891 »0897 
-INRDR 0889 06E4 s072C 0730 90 T4E oO 7CE 10824 ¥ 0830, 0853, 08D3 4 0ED9 
“INRST 0886: ° O8B4 
| t  «INWAT 0888 
 IRDYR: 0899 o8a8 
“FREAD. 062C 085E,0A03 
3 ®  «IWTCT OB8FB O88A, 0886, 08CC e08E2 5091350918 10942,094A 
KEFFE 0679. 0664,08D5 
“KEFFE 0658 0893 
8 & -- KEFFO 0659 O6FE,0768 
—REFFT 0656 07E, 0801 »0986 
K0000 0875 0885,08F} 
? &  ROOOL O876 . DEA 3» CBDF 6096890993, 09F6 
- £0008 0657 0972) 
- K005@ 065A 0736 
g ) i ade ot oti 
DATE L5JUN67. O9SEP6T PROG 1D 030€-0 = ) —1SJUN67 —-O9SEP6T PROG 10 030€-0 
PAGE 1} -@20317 4263278 114 








IBN MAINTENANCE 
2501/1442 MOD S 


DATE 


EC NO. 


KO800 
K1000 
K4003 
K8000 
LN1SW 
LOG 
LOGBY 
LRIN 
MACH 
ML SCF 
®SGNO 
NCOL 1 
NCOL3 
NCOL6 
NCOLT 
NRTN 
O2BE 
PBGAD 
PCHA) 
PCHST 
P1D 
PNCH 
PRIN 
PUNCH 
PUNEN 
RAD 
RAREA 


RCHRD 


RCROY 
RCRYR 
RCWTF 
ROACD 
RDACR 
ROSWE 
ROVER 
RELO 
RENON 
REPT3 
RERFN 
RID 
RIDCK 
RINKS 
RINRS 
RINWA 
RIRDY 
RLCF 
RQKB 
RQTY 
RROVE 
RTA 
RTAA 
RTAAL 
RTAB 
RTAC 
RTADC 
RTAPC 
RTASW 
RTNOM 
RTNSW 
RTTBL 
RT1 
RTA 


R718 


RTIC 
RT2 
RT2A 
RT26. 


DIAGNOSTIC PROGRAA FOR THE 1130 SYSTEM 
FUNCTION TEST 


0678 
OTA 
0655 
OACA 
OACB 
0163 
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RT2C O6FO O70B 

RT2CC  O6E2 O705 - 

RT2CS 06E3 O6EF»06F9,0706,0709 

RT20 06EDO o707 . sa ree 
RT2DA O70C 0700 

RT2D1 O727 O718 

RT2D2. O729 O719.. 

RT2E 0702 oO728. 
RT2F 0705 0oO723 

RT3 Oo72C 0619 

RT3SA 0730 0o73C 

RT3D O72E 0738 

RT3E 0735 : 

RT 0730 O61A . 

RT4A 0746 60740 

RTS O74E 0618 

RT5A 0756 0758 : 

RT5B 075C O76E,0785. 

RTS5C 0764 076D 

RT50 O76F O76A 

RT501 oO789 O77T7 

RTSE o7eC O786 

RT6 O78D O61C 

RT6A OT7T8F O7A6 

RT6B 079D O7AT,O07C7 

RT6C. O7AT OTAS 

RT6D OT7TAD O7A2 

RT6E 0781 0O7B4 

RT6OF 0785 o7Cc9 

RT6G O7BD oO7CC 

RT6H 97CA O7B9 . — 
RT6SW O78C 0799,079F,07AD,0TC4— 

RT7 O7CE 0610 

RTTA 0700 O7E7 

RT7B O70E O7E8 

RT7C O7ES OTE6_. 

RT70 O7EE O7E3,0807,081A 

RT7E O7FE O0806 — 

RTT7F 0808 0803 

RT7FR 0805 0820 

RT7Fi O81E 0810 

RT7G O7F9 0822 > 

RT7H 0821 OT7F2 

RT7SH O7CD O7DA,O0TEO,0800,0808,080D 
RTS $0824 O61E 
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RWATF O8CE O8FS nd 
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SNS1 0628 0631,70640,0886,088C ,0915 
SNS2. 062A 0648 ,0860,08C8,08CE 0944 
START 0161 0613,706A7,06AF,0685,07AB 207EC 
STRT OSEB 05E€3,05E4,05E5,084E 

SVKB 0180 es 

Swo OSOF . 

SWl 05EO O5FB,0603,06A0,084C 

Sw2 O5E1 0787,07FO na 

Sw3 O5E2 0721,0783,0818 

TERAD O95C . 060B 2096D,0970,0974,097C ,0984,0988 
TYPE OAEF 0797,0708,0881 ,08C3,0900 »0923 .093C »0952,0AF8 
WAIT  069C 0662 20665-0676 .0978,0A05 
WAITI O6AQ O6AB ne ae 
WAIT2 O6A5. 06C4&. 
WAITS O6A9. OQ6A0_—. 
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i; | | 
TRE PURPOSE OF THE 1627 PLOTTER CIAGNUSTIC TEST 1S TU EXECUTE THE DIFFERENT 
MOVEMENTS UF THE PLUTTEX AND TU CHECK THE CABLES FUR CORRECT ADJUSTMENT. 

2. PREREQUISITES 
2el PRCGRAM PREPEQUISLTES | 

THE 2627 PLOTTER DIAGNOSTIC PRUGRAM MUST RU UNDER CONTROL OF THE 
LTAGNOS: IC YONITOR. 
202 EGUIPMENT PREREQUISITES | 
THE FOLLOWING EQUIP*LNT 1S REQUIRED. 
Ae VE3L CENTRAL PROCESSING UNIT (CPU). 
Be 1627 PLOTTER POUFL 1 OR 2 
3. USE PROCECURE 
3.1  LOACING | 
THIS PROSZAM FULLOWS THE LLACING PROCEDURES ESTABLISHED BY THE 1130. 
DIAGKUSTIC “CNITOR. EFE® 10 te Me DICUMENT ATION. | 
302 OPERATICN | | | 
3e2e1 P.OGRAP EXECUTION 
A. (OAD aNM GU KOCE | 
ALL HCUTINES WILL SE EXECUTED EXCEPT ROUTINE 5. 
mLL OFTECTEG ERRORS BILL BE ILENTIFIE® BY AN ERROR TYPEOUT. 
Be SINGLE PRUGKAM AND UVERLAP MUDE 
AFTER SRNGRAM IS LOADED, THE MONITOR WILL WAIT 
TO ALIOW OPTIUMS Tu KE SPECIFIED. 
le SPETIFY CESIRED OFTINNS AS INSTRUCTED IN SECTION 32222. 
I< NO CPTIONS SRE CESIXED, VO ENTRY 135 REQUIRED. 
PLL ROUTINES WiLL BE EXECUTED EXCEPT ROUTENF 5. 
10 "XECUTE ROUTINE 5 IT SUST BE SELECTED. THEN ROUTINE 5 
AND ONLY PUUTINE & WILL EXECUTE. | 
2. 10 START EXECUTICN — EXECUTE MUDE UST BE SPECIFIED 
SET BIT SWITCHES FUR DESIRED MODE 
“Swe SETTING CONTROL 
UGB. —«—s EXELUTE WITH 3 OPTIGNS 
008%  LUSP UN ERROR 
0084 BYPASS ALL FRROR PRINTCUTS 
O0C82 HALT GN ANY ERROR 
008C LOOP GN ERROR AND BYPASS ALL ERROR 
PRINTOUTS 
009% LOLS ALL PROGRAMS 
OC92 LOOP ALL PROGRAMS AND HALT UN ERRORS 
PRESS INTERRUPT PEQUEST KEY. ° 
DATE O2JAN66 ee a 2 er ee “a PROG ID 0395-0 
EC 


NO. 
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PROGRAM OPTIONS 


3.202 ee 
THE CPERATUR MAY MUOIFY THE EXECUTIIJN UF ThE PRUGRAM ANY TIME BEFORE 
UR AFTER 1T HAS STARTED FXECUTION BY ENTERING PROGRAM CONTROL OPTIONS 
GR R0U1INE SELECTION OPTIUNS. 

Ae PRCGRAT CONTROL OPTIONS | 
le 19 SELECT PROGRAM OPTIONS SET BIT SWITCHES AS INDICATED 
SW. SETTING CONTROL 
C500 RESET ALL CONTROL OPTIONS 
0501 HALT THE 1627 PROGRAM (TU START AFTER HALT, 
SET SWS TO CESIRED CGNFROL OPTION OR 0500, 
THEN PRESS INTEXRUPT REQUEST KEYo) 
C504 BYPGSS ALL 1627 LOGS 
0508 BYTASS ALL 1627 ERROR PRINTOUTS 
0520  LUOP A 1627 ROUTINE 
9524 LOOP ROUTINE AND BYPASS ALL 1627 LOGS. 
0528 LOG? RCUTINE AND BYPASS 1627 ERROR PRINTOUTS. 
2. PRESS INTERQUAT REQUEST KEY. 
Be ROUTINE CFLECTION 
LeU) SELECT ROUTINE OPTIONS SEI BIT SWITCHES AS INDICATED 
SWe SETTING ROUTINE 
4505 ALL ROUTINES 
45Cl ROUTINE le PEN UP-DGWN TEST 
45C2 KGUTINE 2, RESISTRATION TEST 
4503 RCUTINE 39 SWING TEST 
4504 RONTINE 4» STRESS TEST (wINOMILL) 
4505 ROUTINE 5S» MANUALLY SELECT CO¥MANDS 
2-2 PRESS INJERRUPT REQUEST KEY. 
Ce. COMMAND SELECT 
“RUUTINE 5 WILL LOOP ON ANY PLOTTER COMHANO, CAUSING THE PLOTTER 
TO MOVE I TE OLRECTION SELECTED UNTIL A NEw COMPAND I'S GIVEN. 
TU SET UP COMMAND SELECT= 
1. SELECT ROUTINE 5 (6505) 
2. SET THE BIT SWEICHES TU &5XX_ WHERE SWITCHES 6- 13 SPECIFY 
THE DESIRED COPMANDIS) AS FCLLOWS- 
Sw COMMAND 
e PEN DUWN 
Q PAPER DOWN 
lu PAPER UP 
11 PEN RIGHT 
12 PEN LEFT 
13 PEN UP 
3e PRESS INTERRUPT REQUEST KEY. 
DATE O2JANG6 PROG ID 0305-0 
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303. TERMINATICN | +: | 
IF THERE ART MO *LOUP* CONTROL OPTIONS SELECTEC, THE PROGRAM WILL 
TERMINATE AFTER UNE PASS. IF OPTIONS TO LOOP HAVE BFEN SELECTED: 
THE PRUGRAM KAY BE TERMINATED BY- | | 
1. REMOVE LOOP OPTIONS AND ALLOW NORMAL TenmLnestone. oe 
2. SCT ENTRY SWITCHES TO 4005 AND PRESS THE INTRPT REQ. KEY. 
3.4 RESTARS | aoc Ba 
11 RESTART THE PROGRAM. | 
1. SET SWITCHES TU 4085. 
2. PRESS INTERRUPT REQUEST KEY. 
Se SCT SWITCHES TO 01980. 
Se PRESS INTERRUPT REQUEST KEY. 
a NOTE 


LEPENDING U% HUW THE PROGRAM WAS” TERMINATED, THE 
LAST TU STEPS MAY NOT BE REQUIRED. = / 


4. PRIKTOUTS 


ALL ee ARE a ThE STANDaRD FORMATS. 


APPIN CORR (MESSAGE) 
oR 
ECPNN CORE. | (MESSAGE) | 
WHERE A LTOCATIFIES STATUS MESSAGES 


€ IUENTIFIT ES ERROR MESSAGES | re 
PP 145 THE PID OF THE PRIGRAM CAUSING THE MESSAGE es 
WN 61S) THE MESSAGE SEQUENCE NUMBER. 

PR 15 THE RCUTINE NUMBER es ee 

MESSAGE IS ANY VARIABLE INFORMATIUN 3 ~ 


4el STATUS PESSACES 


A0505 dORR NROY 
PLCTTER POWER IS TURNED OFF. 


A0S508 CORR PROG HALT = : 
INCICATES PROGRAM HAS BEEN HALTED BY BIT SWITCH 15 FUNCTION 00 e 
BEING SET CNe SET BIT 15 OFF TO CONTINUES : 


&e2 ERROR KESSACES 


E0501 OCKR — BIT FAILED | 
THIS MESSAGE HULEaT E> THE sale BIT FAILED AFTER a WRITE COMMAND. 


E0562 OORR “eusy “2 -% 
PULCTTER WAS BUSY WHEN OSW WAS SENSEDs 


E0504 OORR INFRPT a | er: a ao a a 
WA INTERRUPT WAS RECEIVED AFTER A WRITE COMMAND. THE PROGRAM WILL 
CONTINUE TC PUN. - 3 a eS 


XXXX ARKX | | 
WAS S/B 
OS ERRUS PODIFIERS SHOW INCORAERT DSW FOLLOWED BY CORRECT DSW. 


E0507 OORR 


O2JAN66 
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DATE 
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ROUTINE i ( PEN UP-PEN CLOWN “ACTASON TEST 3) 


THE PURPOSE OF THIS ROUTINE IS TO TEST THE CAPABILITY OF THE PLOTTER 
TO EXECUSC (HE PEN UP AND PEN DOWN PLOTTER CUMMANDS. IN THIS ROUTINE? ~ 
AS IN THE CTHNER PLOTTER PATTERN GENERATING RJUTINES» AN ADDRESS TABLE 
IS USEC TO SELECT THE CURRECT PLOTTCR COMMANDOS. THE ADDRESS TABLE, IN 
TURN» POINTS TO A PAIR OF CUMPUTER WORDS. UNE WORD CONTAINS A NUMBER 
wHICH INCICATES THE NUMBER UF TIMES THE OTHER BORD € THE PLOTTER 
COMMAND ) IS TO BE EXECUTED. 


THE PATTERN PLOTTED IN THIS FUNCTION TEST CUNTAINS TwO ADJACENT 
UCTAGONSs WHOSE SIDES ARE ONE AND ONE HALF [ches I” LENGTK. OCTAGON 
NO. 1 ( LEFTMOST OCTASON ) IS PLUTTED Tt A CLOCKWIS® OIRECTION. 
UCTAGON NC. 2 ( RIGHTMOST OCTAGON ) IS PLOTTED IN A COUNTER CLOCKWISE 
(DIRECTION. 


THIS ROUTINE IS DESIGNED SO THAT, IF A PEN UP COPMA"D IS NCT EXECUTED 
AS IT SHOULM BE, A LINE WILL Bt ORAWN IN THE INNER ?ORTION OF THE 
OCTAGON. IF A PEN DOWN COMMAND 1S NOT EXECUTEDse A SIDE OF THE OCT— 
AGCN WILL BF MISSING. FIGURE 1 SHOWS AN EXAMPLE OF THE GUTPUT OF 


THES ROUTING. 


RMLTINE 2 REGISTRATIUN TEST 


THE FUNCT ISOM UF THIS ROUTINE IS TO GETERMINE ITF ANY ADJUSTMENTS ARE 
NFEDED IN THE Pets OR DRUM MOVEMENT MECHANISMS. FIC!RE 2 SHOWS THE 
PATTERN GENEXATED BY THIS ROUTINE. IF ANY OF THE LINES FAIL TO 

INTERSECT, SOME MECHANICAL ADJUSTMENT OF (HE PLOTTER MAY BE NEEDED. 


RCUTINE 3 SWING TEST 


THE PURPOSE OF THIS ROUTINE IS TO TEST THe ABILITY OF THE PLOTTER TO 
PLOT LONG LINE SEGMENTS IN VARIUUS DIRECTIONS. THE PATTERN GENERATED 
BY THIS ROUTINE 13 SG CESIGNEDs THAT JF PLOTTER COMMANDS ARE NOT EX@- 
-ECUTED OR EXTRA COMMANDS ARE EXECUTED, THE CORNERS MF THE PATTERN 
WILL NOT JOIN. THIS TEST WILL ALSO SHOW UP ANY MALAGJUSTIPENT IN THE 
PFA GR ORUM MECHANISMS. 


THE PETHLD USED IN GENERATING THE PATTERN !S AS FOLLOWS, 


Ae TilE LIFT AND TOP SEDES OF A SERIES CF SQUARFS ARE DRAWN AS A 
CONTINUOUS LINE» VARYING IN SIZE FROM 10 TO 2 INCHES. 


Re THE RIGHT AND BOTIGM SIDES OF THE SERIES UF SGUARES ARE 
CRAWN IN CNE QUARTER INCH LINE SEGMENTS, JCINED TOGETHER, AND 
IGTALING THE LENGTH OF THE LEFT AND TOP S1I0ES.. | 


Ce ON COMPLETING THE PLOTTING OF THE SQUARES, LINES ARE DRAWN 
( BOT; SECMENTED AND CONTINECUS ) THRU THE CORNERS OF THE 
SUUARES. ALL OF THESE DIAGONAL LINES SHUULNA INTERSECT THE 
CURNERS OF THE SQUARES PERFECTLY. 


FIGURE 3 SHOWS THE PLOTTER PATTERN GENERATED BY THIS ROUTINE. 
ROLTINE 4 STRESS TEST ( WINOMILL PATTERN } 


THE PURPCSE OF THIS ROUTINE IS TO EXERCISE ALL OF THE MECHANICAL 
FUACTICNS OF THE PLOTTER. THIS OBJECTIVE IS ACCOMPLISHED BY PLOT= 
TING A PATTERN GF TRIANGLES» ROUGHLY RESEMBELIANG A WINDMILL. EACH 
STCE OF THE TRIANGLE CONSISTS OF A SERIES OF SHORT SAWTOOTH-LIKE SEG- 
MENTS, WHICH TESTS THE ABILITY OF THE PLOTTER TO PLOT SHORT LINE 
SEGMENTS WITH ABRUPT CHANGES IN DIRECTION. A SET OF FIVE TREANGLES 


i 


O2JANG6 ee ae on, 7 PROG 1D 0305-0 
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1S PLOTTED, THE AXIS IS THEN KOTATED 90 DEGREES ANDO FIVE MORE TRI- 
ANGLES ARé PLOTYED It; THE SAME MANNER UNTIL» FINALLY» FOUR SETS GF 
TRIANCLES HAVE GEEN PLOTTED. WHEN THE TRIANGLES HAVE BEEN PLOTTED, A 
LINE IS DRAWN ThRU THE INNERMUST SCOENTS UF THE TRIANGLES. THE RE- 
SULTANT PATTERN THEN APPEARS AS A WINDMILL WITH A CIAMUND SHAPED 
PATTERN CONNECTING THE INNER POINTS OF THE TREANCLES. THE OLAPMOND 
CESIGN SPGULO INTERSECT ALL OF THE INNER PCINITS GF THE TRIANGLES IF 
THE PLOTTER 1S ADJUSTED CORRECTLYe FIGURE 4 SHUWS THE PLOTTER PAT— 
TERN GENERATE BY THE KOUTINE. _ | : 


ROUTINE 5 ( MANUALLY SELECTED PLCTTER COMMANDS ) 


TO USE ROUTINE 5 IT MUST BE SELECTED IN FUNCTICN O1- 

THE PURPOSE OF THIS ROUTINE IS TO PROVIDE Th THE FIFLD ENGINEER THE 
CAPABILISY OF EXECUTING ANY PLOTTER COMMAND Hr WISHES TO ON THE PLOT-. 
TER», BY MEANS OF ENTERING THE PLOTTER COMY AND IN THE CONSOLE BIT 
SWITCHESS THE PLOTTER WILL CONTINUE TO EXECUTE THE COMMAND UNTIL IT 
RECEIVES ANfTHER COMMANC FRO® THE OPERATORS CONSOLE s OR A COMMAND UF - 
ALL ZERCS IS RECEIVED WeICH WILL EXD THIS PCUTINE. Ji'& ROUTINE May. 
ALSO BE DESFLECTED BY SELECTING ANOTHER RUUTINE. FER CUMMAND SET—- 
TING REFER YO TABLE 3 SECTICN 3.23236 : | 


6. APPENDIX 


DATE 
EC NO. 


THE FOLLOWING PAGES CONTAIN THE PLOTTER OUTPUT PATTERNS. 


415490 a 3 : _ i i _% += - PAGE 3A 


FIG. 1 PATTERN FOR PEN UP/PEN DOWN TEST. «ce o 4 
FIG, 2 PATTERN FOR REGISTRATION TEST . oe eo 0 & 
FIG, 3 SWING TEST PATTERN, e®ee e@®eeee LA 
FIG. & e Ineo TEST WINDMILL PATTERN, eeeseeeS 
4 
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FIGURE 2 | | PATTERN FOR REGISTRATION TEST | 
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FIGURE 4 STRESS TEST - WINDMILL PATTERN - oe 
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BEGIN EQU. 
START EQU.. 
ERROR EQU 
LOG E QU 
HALT EQU 
END EQU 
- 3 
LOGBY EQU 
RSTKB £QU 
ETRAP EQU 
AQSA EQU 
e 
ILO EQU 
IL1 EQU 
IL2 EQu 
IL3 EQu 
ILS EQU > 
-JLCRP EQU 
ILPAY EQU 
RQTY EQU 
RQKB EQU 
S¥KB EQU 
ILIR EQU 
x 
AEND EQU 
AIlvD EQuU 
ALO EQU 
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ANRDY EQU 
ARDY EQU 
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BEGIN 
PID 

RECEV 
/EFEF 
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ROUTINE NUMBER 

BIT SWITCH FNC O 
BIT SWITCH FNC 1 
BIT SWITCH FNC 2 
BIT SWITCH FNC 3 
INITIALIZATION ADOR 
LOOP PROG ADDR 

1ST MLSCF NORMAL 
2ND MLSCF BUSY 

3RD MLSCF INTR CK 
TERMINATOR 


SHESEEEEEEESESEESESESESEEES 


CALL TO MONITOR 
INTERRUPT ENTRY ADDR 


ROUTINE INTERRUPT ##¢¢¢¢0¢¢8¢¢¢ 


PLTOO240 
PLTOO250 
PLTOO260 
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PLT00350 
PLT00360 
PLTO0370 
PLT00380 
PLT00390 
Pi T00400 
PLT00410 
PLT00420 
PLT00430 
PLT00440 
PLT00450 


PLTO0460 


PLTOO47O 
PLT00480 
PLTO0490 
PLTOOSOO 
PLTOOS10 


-PLTO00520 


PLT00530 


PLT90540 


PLTO0550 


~ PLTOO0560 


PLTOO570 


PLTOOSSO 


PLTOO590 
Pt TOO600 
PLTOO610 


PLTO0620 


PLTO0630 


PLTO0640° 


PLTOO650 


 PLT00660 


PROG ID 


PAGE 


Serres 


Dp 


CERO. CEReIEeN CER REE ED on ort, es 


! 


rer -_, | | 
Mee one 7. oo MS 
2191236 | | 


9 


o@ 


6 


1627 PLOTTER FUNCTION TEST. 


05€0 
OS5EE 
OSFO 
OSF 1 
O5F3 
O5F5 
OSF7 
O5F9 


O5SF8 
O5FC 
O5FE 
o60n 
0602 
0603 


0605 
0607 


0609 
0608 
060D 
O60E 
0610 
0611 
0612 
0614 
0616 


0618 
OG1A 


O61C 
O6l1E 
Gé6l1F 


0621 


0623 
0625 
0627 


.0629 


0628 
062D 
062F 
0631 
0633 
0635 


0637 
0639 
0636 
063C 
O63E 
0640 
0642 
0644 
0646 


0648 


DATE 


0 

01 
0 

01 
01 
Ol 
01 
01 


01 
00 
01 


03 


01 
00 


01 
1 


01 


01 
01 
O01 


01 
01 


01 
01 


01 


00 
ol 
Lop | 
01 
01 
Ol 
01 
00 
01 
01 


01 
01 


01 
01 
01 
00 
01 
01 


01 


EC NO. 


0000 

0C000882 
1000 

F400089D 
D4000 TF 1 
6509081C 
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EOR 
STO 
LOX 
STX 
8SC 


oc 

idx 
STX 
LOX 
STX 
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STX 
BSI 


MDX 
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BSC 


BSI 
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STX 
STX 


LOX 
STX 


STX 


LDX 
STK 


LOX 
STX 
BSI 
MDX 
LOX 
STX 
BSI 


MDX 
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L 
L 
Ll 
Ll 
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L3 
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L3 
u3 
L3 
L3 
L3 
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‘tl 


Li 
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70000 
SENSE 


K8000 
ERBIT 
CONT 

MLSCF 
RECEYV 


10000 
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{13 
RUNIT 
MLSCF 
RTO 
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START 
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READY 
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LOOK,1 
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EE 
DISP 


LOOKe-2 
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RETURN ADDR 

SENSE DSW 

USE FOR TRAP | 
REMOVE. SERVICE REQST 
SAVE OSW ERROR BITS 
GET MLSCF. 

SET MLSCF 

RETURN TO MONITOR 


RETURN ADOR 


LO XR2 wITH RE-ENTRY. 
SET MLSCF 
RETURN TO MONITOR 


LOOP PROGRAM ADDRESS Se#eee8488 


USE INITIALIZATION 


RETURN TO MONITOR 


OCTAGON PEN UP—-DOWN 


CONSTANT OF 150 | 
INSTR CT €Q 1-5 INCH 
STORE MOVE COUNT 


FINISH STORING COUNT 


CALL DISPATCH RINE 


BUMP INSTR ADDR PNTR 
CALL OISPATCH RINE 


CHECK BIT SWITCH 
LOAD NXT ROUTINE NO}e 
GET NEXT ROUTINE 


REGISTRATION TEST #*@ 


INITIALIZE INSTR CTRS 
TO 100, EQUAL TO 
1 iNCH OF PLTR O/P. 


INITIALIZE INSTR CTRS 
TO 50, EQUAL TO 


SE 


SX 


SE 


$x 


sc 


SX 


sc 


rye 


SC 
sc 


sc 


0-5 INCH OF PLTR O/P. 


STRING ADDR 


RT TWO STRING 


CTR STG 

CALL DISPATCH RTNE 
BUMP INSTR ADDR PNTR 
LOAD 10 INCH PLOT 
MOVEMENT TO EAST 
CALL DISPATCH RINE. 


BACK UP ADOR POINTER 


sc 
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1627 PLOTTER FUNCTION TEST . . : » ? | 1627 PLOTTER FUNCTION TEST 
064A O1 74010897 MOX LL EXTRAs) PLTO1350 | O6AE 0 70F9 MDX SWNG3 PLT NXT LINE SEGMENT PL T02030 
064C 0 70F9 MDX REGO] PLTO1360 _* O6AF 01 7402089E MDX L CLOOK,2 PLTO2040 
0640 01 7403089E MDX L LOOK,3 PLT01370 a 0681 O1 74FFO8AO0 MDX L TRICT»-1. PLTO2050 
064F 0 63F3 LOx 3 <5 PLTO1380 0683 0 TOFO MOX SWNG2 PLTO2060 _ 
0650 O01 6F0N0897 STX L3 EXTRA PLTO139C 068% 01 749C0868 MDX L NNe-200 PLTO2070. 
- PLT01400 06B6 01 749C0868 MOX L NNe-100 PLTO2080 | 
G652 O01 440007F2 REGO2 BSI Lt DISP CALL DISPATCH RTNE sc PLT01410 O©6B8 01 749C086C MDX L E€,»-100 PLTO2090_ 
0654 O1 74FE0R9E MDX & LOOKs,-2 BACK UP ADDR POINTER PLTO1420 O6BA 01 749C086C MDX L E€e-100 PLTO2100. 
0656 O1 740108567 MDX L EXTRA) PLT01430 O6BC O1 74F806A5 MDX L SWNG2¢1,-8 ADJUST LINE LENGTH PLT0O2110 3} | 
0658 0 7O0F9 MDX REGO2 PLT01440 O6BE 0 1000 KEEP NOP MOX WILL HOP THIS PLT02120..-— 
| * ©1701450 O6BF 01 440007F2 BSI t OISP CALL DISPATCH RTNE SC PLTO2130 
0659 0 63F6 LOX 3 -10. LOAD xR 3 PLT01460 06Cl 01 74F7089E MDX “L° LOOKe=9 : PLTO2140 . 
065A Cl 46FOUC89T STX L3 EXTRA PLT01470 06C3 01 74FFOXR9F MDX tL SQRCT»-21 REDUCE SQUARE CTR PLTO2150 © 
065C Gl 7406308°E MDX & LOOK,3 PLT01480 O06C5 0 70DB MOX SWNG1 RE-INITIALIZE PLT02160 | 
. | * PLT01490 O6C6 01 740A089E MDX L LOOK,10 SUMP INSTR ADDR PNTR PLT02170 
(065E Cl 440007F2 REGO3 BSI t OISP CALL DISPATCH RINE oc PLTO1500 | O6C8 00 670003E8 LOX L3 1000 PLTO21860 
0660 O1 74F8089E MDX L LOOK,-8 BACK UP ADDR POINTER PLTO1510 O6CA OL 6F000868 STX 3 NN PLT02190 
0662 01 74010857 MDX « EXTRA] PLTO1520 O6CC O01 6FO00B6A STX 3S PL. TO2200 
0664 0 TOF9 MDX REGO3 PLT01530 O6CE Cl 440007F2 BSI LL ODISP CALL DISPATCH RTNE SC PLTO2210 
* PLTO1540 Q06D0 01 T4C1LO89E MDX L LOOKel BUMP INSTR ADDR PNTR PLT02220 
0665 01 .7409089E MOX £& LOOK,9 BUHP ADDR POINTER PLTOLS5O 0602 0 6302 LDX 32 PLT02230 
0667 0 6332 LOX 3 50 | PLTO01560 06D3 01 6F9008A0 STX L3 TRICT PLT02240 
0668 01 6FOO086A STX £23 5 PLTO1570 | 0605 0 6319 LDX 3 25 PLTO2250 
066A 00 670003E8 Lox 3 1000 PLTO1580 0606 01 6F0008T6 STX L3 NW PLT02260 
Q66C O01 6FCOGS6EE STX 3 WW PLTO1590 ! 0608 01 6F090870 STX 1&3 NE PLTO2270 
OU66E 01 440007F2 BSI 2 DISP CALL DISPATCH RTNE SC PLT01600 060A 0 6314 OLO LDX 3 20 PLTO2280 
| t : 7 PLTO1610 060B 01 6F000897 STX £3 EXTRA , PLTO2290 
0670 O1 44000794 BSI L 8SWCK CHECK BIT SWITCH SC | s—-PLTO1620 O6DD 01 440007F2 SWNG* BSI L ODISP CALL DISPATCH RTNE SC PL1T02300 
0672 0 6203 Lox 23 LOAD NXT ROUTINE NO. PLT01630 O6DF O01 74FFO89E MDX L LOOK,y-1 PLTO2310 | 
9673 01 4CO0007CO BSC L RTSET G&tT NEXT ROUTINE PLTO01640 | O06E1 O1 74FFO897 MOX LL EXTRA,»-1 PLTO2320 | 
| * PLTO1650 7 06€3 0 70F9 MDX SWNG4 PLTOZ2330 © 
* -PLTO1660 | : * PLTO23460 
O88 ROUTINE 3- SWING TEST #*#44¢4¢4¢% PLTO1670 O6E4 01 7402089E MDX L LOOKe2 PLTO2350 
* PLTO1680. OGE6 OL 7T4FFOBAO MOX & TRICTe-] PLTO2360 
& PLT01690 O6£8 0 TOFI MD X OLD rL 02370 
0675 Gl 4400082E RT3 BSI tt READY SC  .PLTO1700 * PLT023860 
0677 0 6328 LOX 3 40 ; PLT01710 OGED OL 44000794 BSI L BSWCK CHECK BIT SwITCHES SC PLTO02390° 
0678 0 652C STX 3 SWNG241 LINE LENGTH MODIFIED PROL PLTO1720 O6EB 0 6204 LOX 24 LOAD NXT ROUTINE NO. PLT02400 
0679 C9 670000C8 LOX 13 200 PLTO1730 O6EC O01 4C0007C0 BSC Lt RTSET GET NEXT ROUTINE PLT02410 
0678 O01 6FCN0868 STX 3 NN PLTO1740 _® | PLT02420 
0670 0 6364 LOX 3 100 PLi01750 * PLTO2430 
O67E 01 6FO00870 STX L3 NE PLTO1760 eeene ROUTINE 4— WINDMILL DESIGN #8 PLT02440 
0680 0 6332 LOX 3 50 PLTOILT770 se * PLTO2450 
0681 01 6F00086C STX L3 £€ 7 PLTG1780 ; : * _ PLTO2460 
0683 C1 65090913 LOX LI RT3ST LOAD ADDR STRING ADOR PLT01790 OGEE 01 4400082E RT&@ BSI L READY CHECK STATUS SC PLT02470 
0685 Ol 6D00089E STX £1 LOOK STO IN POINTER CTL WD PLTO1800 O6FO 00 67000164 LDX L&3 356 © PLTO02480 
0687 01 440007F2 BSI L oOISP SC PLTO1S10 O6F2 01 6F000870 STX L3 NE PLT02490 
0689 01 7T40L089E MOX L LOOKs2 BUMP INSTR ADDR PNTR PLTO1820 O6F4 01 6F000868 STX L3 NN. PLT02509 
068B CO 6700C1F4 LOX 3 500 PLTO1830 O6F6 01 67000930 LOX L3 RT4ST LD RT& CMD STRNG ADOR PLTO2510 | 
068D O1 6F090876 STX .L3 Nw PLTO1840 | O6F8 O1 6FO0089E STX L3 LOOK PLT02520 
O68F O01 6FC00872 STX 3 SE PLTO1850 O6FA 01 440007F 2 BSI Lb ODOSP. CALL DISPATCH RTNE SC PLTO2530 
0691 O1 6FO00CB7T4 STX 3 SW PLTO1860 O6FC 01 7401089E MDX L LOOKel BUMP INSTR ADDR PNTR PLT02540 
0693 0 6319 LOX 3 25 PLTO1870 O6FE 0 62F1 LOX 2 -15 PLT02550 
06S+ Cl 6FO0086A STX £3 5 PLTO1880 O6FF OL C4000899 LD tb K0002 MOVE COUNT PLT02560 
0696 O01 6FO0086E STX L3 ww PLT01890 : 0701 O01 06000877 WMIL1 STO L2 NN#¢1L5 STORE MOVE COUNT PLTO2570 
0698 CO 670003E8 LOx 2&3 1000 PLTO1900 0703 0 7202 MOX 22 | PLT02580 
069A 01 6F000868 STX L3 NN PLTQ1910 0704 0 70FC MDX WMIL1] FINISH LOADING COUNT PLT02590 
069C O01 6F00086C STX 3 EE PLTO1920 ic 0705 01 67000870 LOX L3 NE | PLTO2600 
069E 0 6305 LOx 35 PLT01930 O707 01 44000728 BSI LL ITCNTL SC PLTO2610 
O69F 01 GFO0089F STX L3 SQRCT INITIALIZE SQUARE CTR PLTO01940 | * ~ PLTO7620 
| af PLTO1950 0709 01 67000872 LDXx 3 SE PLT02630 
O6Al 0 6302 SWNGL LDX 3 2 PLT01960 O70B 01 44000728 BSI - TCANTL SC PLT02640 
06A2 O1 6F0908A0 STX 3 TRICT PLT01970 * PLTO2650 
06A4 00 67000028 SWNG2 LDX L3 40 LINE LENGTH CTL PMOL PLTO1980 = O70D O1 67000874 LOX L3 Sw PLTO2660 
0646 Cl 6F000897 STK L3 EXTRA , PLTO1990 ~ O70F O01 44000728 BSI tt TCNTL. SC PLTO2670 
O6A8B 01 44000 7F2 SWNG3 BSI &t ODISP CALL DISPATCH RTNE SC PLT02000 * a PLT02680 
O6AA O1 74FFOBIE MDX & LOOKe-1 BACK UP ADDR POINTER PLTO2010 “ OT11 O1 67000876 LDX L3 NW PLT02690 
O6AC 01 74FFO897 MOX LL EXTRAe-l PLTOQ2020 | a 0713 01 44000728 BSI L TCNTL SC PLTO2700 
DATE O2JAN66 PROG ID 0305-0 DATE O2JAN66 PROG ID 0305-0 
EC NO. 415490 PAGE 2 EC NO. 415490 PAGE 2A 
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R627 PLOTTER FUNCTION TEST 1627 PLOTTER FUNCTION TEST 


- OT6F O1 740005E0 MDX L  2aSW2,0 CK FNC WORD 2 FOR Oz  PLY03390 





* PLTO2710 | 
0715 GO 670000CB LOx Lb3 200 PLT02720 Oo771 0 76C8 MOX RTSA GO TO Sti. CMD. RINE PLT03400 © 
O717 Ol 6FO0I0876 STX Lt3 NW PLTO02730 O772 01 44000794 BSI tL BSWCK CK BIT Sw FNC dAORDS. SC PLTO3410 
0719 01 6FO00BT70 ~STX L3 NE . PLTO2740 O774 O01 67000768 LOx L3 RTS PICK UP MLSCF ENTRY = PLTO3420 
0718 01 6F000872 STX L3 SE PLT02750 O776 O01 6FOO0SES STX 1&3 MLSCF PLT03430 
O71D O01 6FO0008T4 STX 3 SW PLT02760 0778 00 4C 800011 BSC 1 START LOOP THRU MONITOR SC. PLT03440 
O71F O1 7T4CLOBIE MOX LL LOOK,?) BUMP INSTR ADDR PNTR PLTO27T70 oY * PLTO3450 
* PLT02780 OT7TA ©O1 STOOOTTA RTSA LDX L3 RTSA MODIFY RETURN ADDR . PLT03460 
0721 O1 44COCTF2 BSI LL DISP DRAW SQUARE SC PLT02790 O77C O1 6FOOOS5F6 STX 3 RECSWl FOR INTERRUPT RINE] PLT03470 
0723 01 44000794 : BSI L BSWCK. CHECK BIT SWITCH SC PLT02800 O77E O01 C4000SE0 LD &£ BSW2 FNC WROD 2 CONTAINS PLT03480 
0725 0 6205 LDxX 26 NEW ROUTINE PLTO2810 0780 0 1802 SRA 2 7 : PLT03490 
0776 O01 4CO0CTCO BSC L RTSET GET NEXT ROUTINE PLTO02820 0781 0 100A SLA 10 | PLTO3500 
* PLT02830 O782 01 D4000ET7F STO tL SBSWwW2 PLTO3510 
SELES TRIANGLE CONTROL #48888 ¢46¢80¢0% PLT02840 0784 01 4420CTF2 BSI t OFSP,Z TEST FOR END OF RTNE SC PLTO3&20 
* PLT0O2850 0786 01 6700081C tOxX 3 CONT PLT03530 — 
0728 GC cn900 TCNTL OC 40000 SE PLTO02860 0788 O1 6FCOUS5SF6 STX 2&3 RECSWe] RESTORE RETURN ADDR. PLT03540 
0729 O1 6F000TS8 STX L3 CHG1] PLTO2870 O78A O01 44000794 BSI tk BSwWCK CK BIT SW FNC WORDS. SC PLT903550 
0728 O1 6FCQ0075F STX L3 CHG2¢}] , PLTO2880 s PLTO03560 
0720 01 6F000T767 STX £3 CHG3el PLTO2890 O78C O1 C40005DE RTOVR LD tL 8s8SwWOo LOAD FNC WORD ZERO. PLTO03570 
O72F CQ 6305 tOx 3 5 START TRIANGLE ONE PLTC2900 O78E O 1008 SLA 11 TEST LOOP PROG. FNC. PLTO3580 
073C 01 6FOODBAN0 STX L3 TRICT TRIANGLE COUNT PLTO2910 O76F O1 4€C28978D BSC L RUNIT,¢2 PLTO3590 
| * | | PLT02920 0791 CO 44800015 BSI I END GO TO MONITOR END sc PLTO3600 
0732 00 67000C56 RUN LOX L3 86 STARE TRIANGLE PLT02930 0793 1 O5DC oc PIO PLTO3610 
0734 01 6F000897 STX L3 EXTRA PLTO02940 . * PLT03620 
* . PLTO02950 -, SEESESSSSSSSSSSSESEKVSESEEKSESSEKESSCSESESEKEEKEECEEECS PLT03630 
0736 01 44C007TF2 SIDEL BSI L ODISP PLOT SIDE ONE sc ~PLTO2960 s .* PLT03640 
0738 1 T4FEOR9E MDX LL LOOK,-2 PLTO2970 settee COMMON SUB ROUTINES ###eet8842% PLTO03650 
073A Ul 74FFO8ST7 MDK L EXTRAg-1 PLT02980 - | * PLT03660 
073C 0 70F9 MDX SIDE1 7 PLTO2990 - | Pi. T03670 
* : - PLTO3000 eee ROUTINE BIT SWITCH CHECK *#e#¢e0 PLT03680 
! 073D O01 7403089E MOX L£ LOOK,s3 PLT03010 * | | PLT03690 
| 073F 00 67000028 LOX L3 43 PLTO3620 0794 0 0000 BSWCK DOC 700C0 RETURN ADORESS SE PLTO3700 . 
0741 O1 6F0008S7 STX 3 EXTRA PLT03030 | 0795 01 C40005DE FNCO Lo L BS#0 LO FNC wORD O. PLTO3710 
| * PLTO3040 - 0797 01 4CO407A0 BSC CL STOPZE B 15 ON, BCH TO STOP PL<703720 
| 0743 O01 440007F2 SIDE2 BSI tL OISP . PLOT SIDE TwO ‘SC PLTO3050 C799 0 100A SLA 10 c- | PLTO5730 
0745 OL 74FEQB9F MDX L  LOOKs-2 PLT03060 O79A 01 4C2807AA BSC L RLOOP,+Z BR IF LOOP RINE} PLTO3740 
0747 Ol 74FF0897 MOX L EXTRAs—1 , PLTO3070 ., * PLTO03750 
0749 0 70F9 MDX SiDE2 PLT0O3080 079C 01 C40005DF FNC] Lf L 8SWi LO FNC WORD 1l. PLTO3760 
: * PLT03090 : O79E O01 4€980794 BSC I BSWCKyt+— BCH ON ZERO | SX PLTO3770 
: O74A Ol 7403C89E MOX kL LOOK,3 PLT03100 o O7AO O1 E400089A AND t «0007 SAVE ROUTINE NUMBER PLTO3780 
| 074C 00 67000056 LOX 3 86 ; PLTO3110 O7A2 O01 D40005D00 5TO tL RID STORE ROUTINE NUMBER PLT™O3790 
| O074E OL 6F000897 STIX £3 EXTRA PLTO3120 O7TA4 O1 66800500 LOX I2 RID LOAD XR 2 INDERCT PLTO3800 
* . PLT03130. a OTA6 O 1010 SLA 16 PLTO3810 
0750 01 44C007F2 SIDE3 BSI L DISP PLOT SIDE THREE SC PLTO3140 OTAT 01 040005DF STO L 8SWI RESET BSwW1l TO ZERO. PLT0O3820 
0752 Cl 74FDO89E MDX L - LOOKs-3 , PLTO3150 O7A9 O 7018 MDX RERUN | . PLT03830 
0754 01 74FF0897 MOX LL  EXTRA,»-1 - -PLTO3160 fi * | PLTO03840 
0756 0 70F9 MDX SIDE3 PLT03170 . . PLTO3850 
* PLTO3180 O7AA O1 668005DD RLOOP LOX I2 RID GET LAST ROUTINE NUM PLTO3860 
0757 01 74300870 CHG] MDX L NE»48 PLTO3190 , O7AC O 7015 MDX RERUN PLTO3870 
0759 Cl 7404089E MDX L LOOKs4 PLTO3200 nae | PLTO3880 
C75B O01 T74FFOBAO MDX Lk TRICTe-1 TRIANGLE COUNT PLTO3210 O7AD 01 CC000890 STOP LOD CL SMHALT MSG- PROG HALT PLTO3890 
0750 9 7006 MDX Tor PLT03220 . O7AF 0O1.4400084A BSI lL TYPE | USE TYPE ROUTINE SC PLTG3900 
* P! 703230 O7Bl 01 670007B7 HLTSW LOX &3 NOGO LGAD RETURN ADDR PLT03910 
| J75E O01 74000870 CHG2 MDX L NE»-48 PLT03240 0783 O1 6FOO05ES STX L3 MLSCF STORE IN MLSCF PLTO3920 
0760 01 740308S9E MDX Lk LOOK,3 PLTO03250 . 0785 00 4C800011 BSC I START RETURN TO MONITOR SC = PLT03930 
| 0762 01 4C800728 BSC I TCNTL SX PLT03260 O7B7 O1 C40005DE NOGO LOD L BSWO LOAD SIT Sw WRD ZERO PLT03940 
| . OS * | PLTO3270 0789 01 4C0407B1 BSC L HLTSWeE BCH BIT 15 ON PLTO3950 
0764 01 44C0°%7F2 ToP BSI bt SIse | sc -PLTO3280 » 4 O7TBB O1 4C 800794 BSC I BSWCK RETURN TO PROG SX PLT03960 
| 0766 01 74700870 CHG3 MDX L NE»-48 - PLTO3290 , | _- * Pa -PLTO3970 
0768 O1 74F3089E MDX & LOOKs-13 | | PLT03300 . PLTO3980 
O76A 0 T0C7 MDX RUN DO ANOTHER TRIANGLE PLT03310 D 4 G7BC O01 44000794 RUNIT BSI L BSWCK CHECK BIT SWITCHES SC PLT03990 
* PLT03320 O7BF 0 6201 LORT1 LOX 2 40001 LO RT1 ID AND STORE PLTO04000 
= PLTO3330 O7CO O01 6EO005DD RTSET STX L2 RID STORE ROUTINE NUMBER PLTO4010 
eee ROUTINE 5— MANUAL CONTROL PLT03340 § 07C2 O1 C6é0007TCS8 RERUN LD L2 RTABL GET ROUTINE ADOR AN : PLT04020 
* PLTO3350 . O7C4 O01 D40005E4 STO tL MLSCF SET MLSCF . PLTO04030 
* PLTO3360 O7C6 O00 4C8N00L1 BSC I START RETURN TO MONITOR Sc PLT04040 
0768 01 67000975 RTS LOX L3 RTSST PLACE CNTR ADDR IN PLTO3370 g CELEEERESES HES ESE EESEREESS OES SESEE SESE SES OEESE PLT04050 
O76D O01 6FOO0S89E | STX L3 LOOK O/P ROUTINE. © PLTO3380 * | | | PLT04060 
| | é $ DATE O2UAN66 ) : =? | | 
OATE O2JANG66 | PROG . . i, . 
EC NO. 415490 a | PAGE EC ND. 415490 eo es pe A a aE 
g | 7 | 
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1627 PLOTTER. FUNCTION TEST  - 1627 PLOTTER FUNCTION TEST 
* ROUTINE ADDRESS TABLE * PLTC4070 i 0809 01 440007D6 BSI tL ERR USE ERROR ROUTINE SC PLT04750 
* ¥ PLTO04080 * PLTO4760 
* = PLT04099 0808 OO 65000700 TIME LDX Ll 4/0700 TIMING CONSTANT PLTO4770 
SHEKKKERECHSRLESSKES ESSE SESS ESSESKEEEKEKESEKESERE PLT04100 = O80D 01 69000896 STX Lt} CONST PLTO4T&O 
* | PLT04110 O8GF 01 65000815 HOPY LOX tl HOP GET MLSCF PLY¥O04790 
O7C8 1 O78F RTABL DC LORT] LOOP PROG TEST PLT04120 0811 01 6D0005E6 STX Ll MLSCFEe2 SET MLSCF PLTO04800 
07C9 1 0609 OC RT1 PEN UP-DOWN OCTAGON  PLTO4130 af 0813 00 4C 800011 BSC JI START RETURN TO MONITOR sc PLT¥04810 | 
O7CA 1 0621 OC RT2 REGISTRATION TEST PLT04140 * PLT04820 
O7CB 1 0675 OC RT3 SWING TEST PLT04150 0815 O1 74FFO8S6 HOP MOX LL CONSTe-1 REDUCE TIMER PL1T04830 
O7CC 1 OGEE OC RTS WINDMILL TEST PLTO4160 0817 G VOFT MO X HOPY PLT04840 
O7CD 1 O76B OC RT5 MANUAL CMD SELECTION PLTO4170 0818 01 CCOOOBBA L000 ct MNINT MSG- NO INTERRUPT PLT04850 
O7CE 1 O78C OC RTOVR TEST LOOP PROG. PLT04180 OB1A 01 44000706 8SI L ERRI USE ERROR ROUTINE Sc PLT904860 
* PLTO4190 * | ; PLTO04870 
* PLTO4200 osic Cl Ooco00ssBC CONT xXIO Ct SENT PLT¥04880 | 
teet¢ ROUTINE BUSY ¢4€866466466846¢¢8¢¢ PLT04210 O81iE O 1801 SRA l PLT04890 | 
* PLT04220 O81F Cl 440407CF BSI L BUSY-ZE USE 8USY ROUTINE sc Pt.T04900 
5 PLT04230 0821 O01 T4FF0UB94 MDX tL COUNT,.-1 PEDUCE COUNT PLT04910 
O7CF 0 0000 BUSY OC 40000 RETURN ADDR SE PLT04240 0823 0 7009 MDX PLOT PLT04920 
0700 O1 CC990886 too cc maBUSY MSG- BUSY PLT04250 0824 O1 T401089E MOX Lt LOOK,2 BUMP INSTR ADOR PNTR PL1T04930 
O7D2 01 44090706 BSI CL ERR} USE ERROR ROUTINE SC PLT04260 0826 0 70CC MDX NEXT PLT04940 
0704 C1 4C8007CF BSC I 6USY TURN TO PROGRAM SX PLTO4270 * PLTO4950 | 
a . * PLT¥04280 & PLTG4960 
s PLTO4290 Pees fF ROUTINE NOT READY *##¢s8e¢48828086 PLTC4970 
*¢eb¢ ROUTINE ERROR TYPE OUT ¢##¢e48¢¢ PLTO4300 s PLT04980 
« 7 - PLT04310 * PLT04990 | 
* .  PLTO4320 0827 0 0000 NRDY OC 40000 RETURN ADDR SE PLT05000 —— 
 07TD6 O 90000 ERR1 OC 40000 RETURN ADDR SE ~PLT64330 0828 01 CCO00088C 10D tL MNRDY MSG- NOT READY PLTO5010 
O707 O 9616 STO ERMSG SET ERROR MSG PLT04340 O82A 01 4400084A BSI tL TYPE USE TYPE ROUTINE sc PLTO5020 © 
O708 01 C40005DE LO Lt B6SwWO Lo BIT SW ZERO PLT04350 O8s2C O1 4C 800827 BSC I NRDY RETURN TO PROGRAM Sx PL T05030 
O7DA CO 100C SLA 12 TEST FOR BYPASS ERMSG PLTO04360 & PL TO5040 
C708 01 4C€CA80706 asc I ERR1-+2Z BYPASS ON MINUS PLTO4370 a : PL T05050 
* -PLT04380 t#eCs ROUTINE STATUS CHECK #8280088 Pt T05060 
0700 CO 44800012 ERBSY BSI I ERROR CALL MONITOR ERROR SC PLT04390 bd ?»LT05070 
O70F 1 CT7EC oc ERRXX MESSAGE LOCATION PLT04400 * mA PLTO05G80 
O7EC 1 O7ES DC REPTL BUSY ADDR PLT04410 082E 0 cd000 READY OC 40000 RETURN ADDR SE. PL TO05090 
O7TE1 1 O7T7ES oc REPTL . ERROR ADDR PLTO04420 O82F O1 0C000882 XxIO0 L SENSE SENSE DSW PLTO5100 
O7E2 O1 658007D6 LOX Il ERR] .PLT04430 0831 O1 D&00C7Fl STO ct ERBIT SAVE OSa PLTO5110 
OTE4 O 7002 MDX REPT14¢2 FLT04440 0833 01 44040827 BSI LL NRDY,E BCH IF SIT 15 ON Sc PLT05120 
* PLT04450 0835 O01 C40007F1 LD L ERBIT PLTO5130 
O7E5 G1 65000700 MEPT1 LOX LI ERBSY PLT04460 0837 O 1801 SRA 1 PL TO5140 
O7E7 O1 600005E4 STX LI MLSCF PLT04670 0838 01 440407CF BSI tL BUSYrE BCH IF BIT %:4 ON Sc PtT05150 
O7E9 00 4C800011 BSC I START sc PLTO46¢80 * 7 PLT05160 
. * PLT04490 083A 01 C40007F1 LD tL ERSBIT DOSw ERR BITS PLTO5170 
O7EC 0000 BSS E 90 . PLTO4500 083C 01 E400089C AND bt K4003 CONSTANT PLTO5180 
O7EC 0 0001 ERRXX DC 40001 WORD COUNT PLTO4510 O83E 01 44200706 BSI L ERR1,Z BCH ON BITS ~ $c PLTO5190 
O7ED 0 OCcOo0d OC - 40000 HEX CONTROL PLT04520 0840 01 OC00C882 NOT XIO cL SENSE SENSE OSW PLTO5200 
O7EE O O000 ERMSG DOC 40000 MSG NUMBER PLT0%530 0842 01 4C98082E BSC I READY,¢- RETURN TO PROG ON O- SX PLT05210 
O7EF © oONn00 Oc 40000 ALPHA 1 PLT04540 0844 01 65000840 LOX OL1 NOT GET MLSCF PLTO5220 
O7FO O 6000 OC 40000 ALPHA 2 PLT04550 0846 11 6D0005SE4 STX Ll MLSCF SET MLSCF PL T05230 
O7F1 0 c000 ERBIT OC 10000 BITS IN ERROR ~PLTO04560 0846 GO 4C800911 BSC I START RETURN TO MONITOR SC PLT05240 
x PLT04570 * PLT05250 
* PLT04580 a ERK ROUTINE TYPE ##e¢0¢¢94¢¢0668¢8468 PLTO5260 
*#¢¢¢ ROUTINE DISPATCH ##€¢8¢#¢<4*8¢84 f’'LT04590 * PLTOS270 
* PLTO4600 084A C 0000 TYPE OC #0000 RETURN ADDR. SE PLTO5280 
. * . | PLT04610 ~ 084B © 0818 STD MSG MSG AND NUMBER PLT05290 
O7F2 O 0000 DISP OC 10000 RETURN ADDR SE PLT04620 084C O01 C40005DE LD L BSWO BIT Sw STG PLTO5300 
OTF3 01 6580089E NEXT LOx 11 LOOK RESTORE XR lL PLT04630 O84E O 1000 SLA 13 TEST FOR BYPASS LOG PLTO5310 
O7FS O01 6000089E ST™TX Ll cooK SAVE XR 1 PLT04640 O84F 01 4CA8084A BSC I TYPE,¢2Z . BCH ON MINUS SX PLTO05320 
O7F7 CO CN800000 LOD 11 0 GET COUNT # DIRECTION PLT04650 a * PLT™05330 
OT7F9 O1 DLO00894 STD t COUNT PLT04660 0851 00 44800013 LOGAG BSF I LOG CALL MONITOR LOG SC PLT05340 
*  PLTO4S70 0853 1 0862 DC LOGM ADDR OF MSG PLT05350 
O7TFB O01 4C9807TF2 BSC I DISP_»9+- RETRN TO PROG ON ZERO SX PLT04680 0854 1 0O8sC OC LOGB BUSY ADDR PLT05360 
OTFD O1 OCO0C892 PLOT xXIO Ct MARK MOVE COMMAND PLT04690 0855 0 0000 OC PLT0O5370 
O7FF O01 0C000880 XIO tL SENT SENSE OSW PLTO4700 ~ 0856 01 6580084A LDX Il TYPE GET MLSCF PLTOS380 
0801 01 F4000899 EOR & K0002 CHECK BUSY ~PLT04710 0858 01 6DO005ES STX Ll MLSCF SET MLSCF PLT05390 
C803 O1 4Ci80808 BSC L TIMEs+— BCH ON ZERO PLT04720 O85A 00 4C 800611 BSC 1 START RETURN TO MONITOR SC. PLT05400 
0805 O1 DS0007F1 STO L ERBIT SAVE ERROR BITS PL104730 ’ | a PLT05410 
0807 O01 CC000884 LDO L *MBITE MSG- BIT FAILED  PLTO047T40 O8sc 01 65000851 LOGB LOX Ll LOGAG PLT05420 © 
7 | 7 : 
DATE O02 JAN66 PROG I0 0305-0 DATE 02 JAN66 . p a 
EC NO. 013490 PAGE 4 EC NO. 415490 - a | eaee ~ are 1 
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4000 
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2000 
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0800 
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ocno 
2800 
0000 
4800 
ocol 
0400 
0001 
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044C 
C800 
1100 
O5£0 
occo 


2-00 


occo 
2F0l 
0001 
0977 
0002 
0982 
0003 
0037 
C04 
0041 
0005 
0043 
0007 
0987 
00c8 
098F 


0895 


29.20. 
ocoo 
0000 
C9000 
0000 
0000 
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0096 
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STX 
BSC 
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BSS €E 


LOGM ODOC 
OC 
MSG OC 
OC. 
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STORAGE AREA #€€#€€464884844E46 


**ee¢ 
* 
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BSS E O 
NNN DC 4/0000 

OC 44000 
5 DC 40000 

DC 42000 
EE oC 40000 

DC 71000 
WW DC 40000 

OC 40800 
NE OC 40000 

IC 75000 
SE DC 40000 

oC 430C0 
Sw OC 4/0000 

OC 42800 
NW OC 70000 

OC 44800 
PENUP DC /000l 

DC 10400 
PENDW. DC /0c01 

DC 78000 
LEFT OC 1100 

OC 4/0800 
BSwCT OC 71100 
S3Sw2 OC BSwW2 
SENT OC 70000 

Oc 42F—00 
SENSE DC 4/0000 

OC /2F01 
MBITE DC 1 

oc . ABITFE 
MBUSY OC 2 

OC ABUSY 
MEND OC 3 

OC AEND 
MNINT OC 4 

OC ANINT 
MNRDY OC 5 

Oc ANRDY 
MWASB OC 7 

OC AWASB 
‘MHALT OC 8 

OC AHALT 
MARK DC COMAD 
- OC 72900 
COUNT DOC 40000 
COMAD DOC 40000 
CONST DC 470000 
EXTRA DC 70000 
KOO0O0 DOC 40000 
«0002 DC 40002 
~K0007 OC 40007 
«0150 DC 150 


ee spits ses watt eri ener titer ager 
_ — FOP aa aes an Ea” OO Co kc ae 


one ttare, 


WORD COUNT 

HEX 

MESSAGE NUMBER 

ALPHA 1 : 
2 


MOVE COUNT 
DIRECTION 


CMD EXECUTE CNTR 
PLOT CMD STORAGE. 
SENSE DSW 


SENSE DSW + RESET 


MESSAGE NUMBER 
MSG- BIT FAILED 
MESSAGE NUMBER 
MSG- BUSY 
MESSAGE NUMBER 
MSG- END OF TEST 
MESSAGE NUMBER 
MSG- NO INTERRUPT 
MESSAGE NUMBER 
MSG- NOT READY 
MESSAGE NUMBER 
MSG- WAS S/B 
MESSAGE NUMBER 
MSG=- PROG HALT 
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K4003 DOC 


K8000 OC 
LOOK OC 
SQRCT OC 


TRICT OC 
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* 
RT1ST OC 
oC 
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DC 
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EE 

NE 
PENOW 
SE 
PENUP 
Sw 

Ss 
PENDOW 
WW 
PENUP 
NN 

NW 
PENDW 
NE 
PENUP 
SE 

EE 
PENDW 


PENDW 
PENUP . 


er ae - Sn apa gg rem enrtnratesemin atin 


CONSTANT 
START OF STRIiG 
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START OCTAGON NO. 1 
1A 


2a. 
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ah 
SA 
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FBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1627 PLOTTER FUNCTION TEST 


OBDE 1 0378 DC PENUP 

O8DF 1 0876 DC Nb 

O8EG 1 0868 DC NN 

O8E1.1 O87A CC PENDW 5B 

O8E2 1 086¢ pc wi 

0863 1 0878 OC PENUP 

O8E4 1 O86A oc S 

O8E5 1 0874 OC Sw | 

O8E6 1 O87A DC PENOW 68 
O8E7 1 0872 oc SE 

O8E8 1 0878 oc PENUP 

O8E9 1 0870 OC NE 

O8EA 1 86C oC EE 

O©8EB 1 OSTA | OC PENDW 7B 

O8EC 1 0868 OC NN 

O8ED 1 0878 oC PENUP 

O8EE 1 O86E pc wi 

O8EF 1 0876 DC Nid 

O8FO 1 O87A OC PENDW 88 

O5Fl 1 087% oc SW 

O8F2 1 0878 DC PENUP 

O8F3 1 0898 0c ——«K000N END OF ROUTINE 

. s 2 

O8F4 1 0878 RT2ST OC PENUP 

O8F5 1 O87C oc LEFT FUT PEN AT LEFT MARGIN 
O8F6 1 0870 DC NE POSITION PEN FOR START 
O8F7 1 0868 oC NA | 
O8FB8 1 OEE oc wid 

O8F9 1 0898 DC K0000 

O8FA 1 C87A ; oc PENOW 

O8tB 1 G86C oc EE OVE 10 INCHES EAST 
O8FC 1 0876 oc NW PLOT SAWTOOTH PATTERN 
O8FD 1 0874 pc 3E—s—éSW FROM EAST TO WEST 
O8FE 1 0898 ae K0000 REPEAT FIVE TIMES 
O8FF 1 0868 oc NN | 
0900 1 0872 oc SE PLOT SAWTOOTH PATTERN. 
0901 1 0870 oc NE FROM WEST TO EAST 
0902 1 0898 DC k0000 | 

0903 1 868 pc S PLOT PERPENDICULAR 
0904 1 0878 oc PENUP LINES, JOINING THE 
0905 1 086E DC Wi POINTS OF EACH 

0906 1 O87A OC PENDW SAWTOOTH. 

0907 1 0868 oc NN | 

0908 1 0878 oc PENUP 

0909 1 086E DC wo 

090A 1 O8T7A oc PENDW 

090B 1 0898 Oc KO000 RPT ABOVE SEQ 10 TIMES 
099C 1 08é6C | oc EE PLOT TOP OF PATTERN 
090D 1 0878 oc PENUP 

O90E 1 086A oc S. 

O90F 1 O87A OC PENDW 

0910 1 086E OC ww PLOT LINE THRU CENTER 
0911 1 0878 oc PENUP OF PATTERN 

0912 . 0898 ~~ ya KO000 END OF ROUTINE 

, * 

0913 1 0378 RT3ST DC PENUP RAISE PEN 

0914 1 O87C | oc LEFT PUT PEN AT LEFT MARGIN 
0915 1 086C oc EE POSITION PEN TO START 
0916 1 0868 oc NN SWING TEST PATTERN. 
0917.1 0898 DC K0000 

0918 1 087s pc PENDW | 

0915 1 0868 | Oc NN PLOT LEFT SIDE OF SQ. 
O91A 1 086C DC EE PLOT TOP OF SQUARE. 
0918 1 OS6A | oc =3E—_—ds SS PLOT 1/4 INCH SEGMENT 
C91C 1 0898 | oc «0000 

091D 1 086E Oc bl PLOT 1/4 INCH SEGMENT 
O91E 1 0898 oc K0000 

O91F 1 0878 DC —-——SM PEN POSITION PEN FOR NEXT 
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IBM MAINTENANCE DIAGNOSTIC PROGRAP FOR THE 1130 SYSTEM 


1627 PLOTTER FUNCTION TEST 


SMALLER SQUARE. 


0920 1 0870. DC NE 
0921 1 0898 oC K0000 wes 
0922 1 087A oc PENDW PLOT DIAGONAL tINES 
0923 1 0872 DC SE THRU THE SET OF . 
0924 1 0878 oc PENUP SQUARES AND FINISH 
0925 1 0868 DC NN THE SWING TEST. 
0926 1 OB87A DC PENDW 

0927 1 0874 DC SW 

0928 1 0898 DC KO000 

0929 1 0876 DC NW 

092A 1 0898 oC KO000 

0928 1 0878 oc PENUP 

092C 1 086A DC S 

092D 1 OB7A DC PENDW 

092E 1 0870 DC NE 

092F 1 0898 DC KO000 END OF ROUTINE 3. 

% 

0930 1 0878 RT4ST DC PENUP PICK UP PEN AND PUT 
0931 1 087C DC LEFT IT AT LEFT MARGIN. 
0932 1 0870 DC NE | 
0933 1 0868 oc NN POSITION PEN TO START 
0934 1 0868 oc NN WINDMILL PATTERN 
0935 1 0898 DC KO000 

0936 1 O8TA DC PENCW 

0937 1 0874 DC SW SIDE 1 TRE 1 

0938 1 0876 oc NW 

0939 1 0898 oc KOO00 
093A 1 0876 DC NW SIDE 2 TRE 1 

0938 1 0870 Dc NE 

093C 1 0898 oc K0000 

093D 1 0868 DC NN SIDE 3 TRE 1 

093E 1 0872 oc SE 

093F 1 0872 pc SE 

0940 1 0898 DC K0000 

0941 1 0878 pc  PENUP MOVE TO NEW LOCATION 
0942 1 0870 oc NE 

0943 1 0898 oc KO000 

0944 1 O87A - pC ~~ PENDW | 

0945 1 0876 pc Nw SIDE 1 TRI 2 

0946 1 0870 | DC NE 

0947 1 0898 pc =. KCG000 

0948 1 0870 DC ‘NE SIDE 2 TRI 2 

0949 1 0872 DC SE 

094A 1 0898 DC K0009 

(0948 1 086C DC EE SIDE 3 TRI 2 

094C 1 0874 DU SW 

0940 1 087% | oc Sw 

O94E 1 0898 | oc KO000 

O94F 1 0878 oc -PENUP ~ 

0950 1 0872 | pC SE 

0951 1 0898 Oc KOV0O0 

0952 1 O87A | pc PENDW | 

0953 1 0870 | DC NE SIDE 1 TRI 3 

0954 1 0872 DC SE 

0955 1 0898 pc KO000 

0956 1 0872 DC SE SIDE 2 TRI 3 

0957 1 0874 DC 3W 

0958 1 0898 DC £0000 

0959 1 086A . oc S SIDE 3 TRI 3 

095A 1 0876 DC Nw 

095B 1 0876 oc Nw 

O95C 1 0898 oc KO000 

095D 1 0878 oc. PENUP 

O9SE 1 0874 oc SW 

O95F 1 0898 DC K0000 

0960 1 O8T7A : oC PENDW | 

0961 1 0872 oc SE —s SIDE 1 «TRI 4 

0962 1 0874. oe Su 
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PLTO8010 
PLTO8020 
PLT08030 


PLT08040 | 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1230 SYSTEM 


1627 PLOTTER FUNCTION TEST 


0963 
0964 


Oo 
oO 
oO 
oO 
dpe pet peepee eet peed pet pet pet eet pet pet et et eet ee pet 


o] 
0 
al 
~ 
ot ome 


Oo 
Se) 
@ 
N 
oo0oqoco00s ooaoo0o0o0 eoaq0o0osa ona ogsA 


o 

9 

Se] 

$ 
oeaoaa.,.saaaodco 


DATE 


0898 
0874 
03876 
0898 
CB6E 
9870 
0870 
0898 
0878 
OR 16 
0898 
O87A 
0370 
0&72 
O8T4 
C874 
0878 
0898 


O87E 


0898 


1A32 
2239 
9£13 
211A 
1236 
3631 
2239 
5E23 
3636 
3234 
FFFF 


O2JAN66 


415490 
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ABITF 


ABUSY 


AW4LS8 


AHALT 


eae 


Wa 


omren pT = on 


o™=yY WP 


SIDE 2 TRI 4 


SIDE 3 TRI 4 


BIT FAILE 


SPACE 


. BUSY 


WAS S/B 


SPACE 
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PLTOB180 
PLTO8190 
PLTO8200 
PLTO8210 
PLTO8220 
PLT08230 
PLTO8240 
PLTO8250 
PLTO8260 
PLTO8270 
PLTO8280 


PLTO8290 | 


PLT08300 
PLT08310 
PLT08320 
PLT08330 
PLT08340 
PLT08350 
PLT08360 
PLT08370 
PLT08380 
PLT08390 
PLT08400 


PLT08410 


PLTO08420 
PLT08430 
PLTO08440 
PLTO08450 
©LT08460 
PLTO8470 
PLTO8480 
PLT08490 


PLT08590 


PLTO08510 
PLTO8520 
PLTU8530 
PLT08540 
PLT98550 
PLTO8560 
PLTO8570 
PLTO8580 
PLTO8590 
PLTO8600 
°LT08610 
PLT08620 
PLTO8630 
PLTO8B640 
PLTO8650 
PLTO8660 
PLTO8670 
PLTO8680 
PLTO8690 
PLTO8700 
PLTO8710 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1627 PLOTTER FUNCTION TEST 


CROSS REFERENCE LISTING 


SYMBOL 


ABITF 
ABUSY 
ADSCT 
AEND 
AHALT 
AINT 
AIvO 
ALO 
ANINT 
ANRDY 
AQ5A 
ARDY 
AS8 
ASCT 
ASWS 
AWAS 
AWASB 
BEGIN 
BSWCK 
BSWCT 
BSwWO 
BSwl 
BSW2 
BSW3 
BUSY 
CHGI 
CHG2 
CHG3 
COMAD 
CONST 
CONT 
COUNT 
DISP 


EE 


END 
ERBIT 
ERBSY 
ERMSG 
ERROR 
ERRXX 
ERR1 
ETRAP 
EXTRA 


FNCO 
FNC1 
GOT 
HALT 
HLTSW 
HOP 
HOPY 
ILCRP 
ILIR 
ILP. 
ILPAT 
ILO 
It} 
IL2 
IL3 
IL4 
KEEP 
KO000 


DATE 


EC NO. 


VALUE 
0977 
0982 
0058 
0037 
O96F 
0044 
0038 
O03E 
0041 
0048 
0019 
004C 
0054 
OOSA 
0050 
0060 
0987 
0010 
CT94 
O87E 
OSDE 
0O5DF 
O5E0 
OSEL 
O7CF 
0757 
O75E 
0766 
0895 
0896 
081C 
0894 
OTF2 


086C 


0015 
O7F1 
07DD 
O7EE 
CO12 
O7EC 
07D6 
0018 
0897 


0795 
079C 
0605 
0014 
o7B1 
0615 
O80F 
0030 
0036 
OSE2 
0932 
0028 
0029 
002A 
0028 
002C 
O6BE 
0898 


O2JAN66_ 
415490 


REFERENCES 
cae5 
0887 
os0C 
OS50C , 0889 
0s91 
O50C 
05DC 
O5DC 
050C -08aB8 


—050C ,086D 


O5DC 
o50C 
050C 
050C 


O88F 

O50C ,05E8 

061C 0670 -06E 990723 e07T72 078As0 79E 40788 ,078D 
0975 | 
O78C 0795.20 787,0708,084C 

C7T9C ,OTAT 

O76F ,077EsO08T7F 


0704,081F,0838 
0729 
0728 
o72D 


— 0892 


080D,0815 
C5F5,0786 | 
O7F9,0821 | 


0616 061A 9063E 90546 5 0652 9065E2066E 0687 206A8 206BF es 


O6CE -06DD » C6F A207 2140 7365074320 7150507642078 4,07FB 


0633 »0644 50681 ,069C » 0638 -C6BA,0 8A7,0887,08C3,08CA, . 


OS8CC ,O8CE -O8DA, O8EA,O8FB -09GC -0915,091A,096B _ 
O50C,0791 

O5F 3,080540831,0835,083A 

OTE5S 

O7D7 

050C ,07bLD 

O7DF 

07D2.070B -0 7E2,0809,081A,083E 

OSDC 

063C ,064A ,0650,0656, 065A ,0662 .06A6,06AC -06D0B8,06ELe 
0734.,073A.,0741,0747 590 TE 20754 


OSE3 
os5D0C 
O7B9 
O80F 
0817 
c50C 
e50C 


050C 
050C 
O05DC 
050C 
O50C,05FE 
050C 


OBC By O8F3 + 08F 9, O8FE 5090290908,0912,0917,091C,091Es 


0921909285 092As O92F 9 0935 6 0939 1093C 90940 90943 9094Te 
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1627 PLOTTER FUNCTION TEST 


0968 6 094E, C951 0955 90958 0 095C 0095F 00963 20966,096Ay 


096D ,0974,0976 
KONG2 0899 OoFF ,C801 
KOOOT 0394 OTAGO 
KO150 ca898 0608 
K4003 089c 063C 
xeo00oc 03890 CS5Fi 
LORTL CTeF o7c8 
LEFT oa7c 0842,08F5,0514,0931 
t. 0G C913 O50C 0851 
&OGAG 0851 0s8sc 
LocB Casc (0654 
LOG3Y QN16 o50c 
L0G 0862 0853 
cox OB9E 0614-0618 70639-0540 0648 20640 206541065C 20660 .0665,4 


06 85 » 0689. O6AA,OGAF 9 06C} 006C6 206D0,05DF .06E 4, G6F By 
COFC sOTLE 9973859073020 745 007 4A 00 1520075940760 .0768e 


C760 ,CTF3.0 TF5,0824 

LPA nNS€3 

MARK 0892 O7FO 

MB ITF GAs4 osoT 

MBUSY C886 o7D0 

MEND 0868 

MHALT c890 CTa0 

mt SCF GSF4S O5F 760602. 07 76.0783 r OTC4 e OFET 0611 1 084650858 G85 

MANINT OBA 0818 

MNROY oe8ec 686286 

aSG 0864 C84u 

MWASS  ORBE : ; . 

NE G3794 0620 COTE eO6DE pGSF2 07050071960 157, 07T5E 10766, 08A3e 
C8A6,6334-66C0,0801 0800. 08E9 90 8F 6, 0901 ,0920 ,092E» 

, C932 5 093B y U942 20946 9 0948 0095300968, 0969 .096F 

NE X) O7F 3 0B2E 

NN 0668 COOE » C629, 0673-0698 20684 90686. 006CA,06F 420701, 08ASs 
O86 1 pOdC] eC800,02E0 2 OBEC op CEFT OBE F, 0907 »0916,0919e 
0925 .0933,0934,093D0 : . 

NOGO 0767 O7B1 

NOT 0840 0644 

NRDY O62T ca2C 0833 

Nw 0876 062 5,068D, 0696,0711 50717 s0882 -08B5E, 0803 » OSDF ,OBEF » 
NBFEC 9 092950938. 093A 00945 2095450958 00965 ,096E ,0972 

OC TGN O46CE Ooll 

~ GLO 0604 C6EB 
PENDa OSTA 08A4 -09A9, OBAE 90883 » 0888 ¢ 0880. 08C2, 08C 7 ,O6CD.08025 


C807 pCBDC  O8E 1, 08E 6p O8ES e O8F 0, 08F A, 0906 090A .090F » 
091 8p C922 0092650920 40536 50944 2095240960, 096E © 
PENUP os78 GBA1 e 0846, 08AB, 0680 91885 9 08BA,0 B8F, O8C4 08C9,O8CFe 
O8D4 ,0309~.C SDE - C8E3 50 8E 6 »08ED sO8F 2, 08F 4,0904,0908, 
0900 oC91L1 0991 3 ODL E 90924 00928 2093070941, 094F .095D_ 


0968 ,0973 
PID 0s50C OSEA,0793 
PLBGN OSes 0999 
PLOT OTFO 0é23 
READY O82E 06090621 » 0675, O6EE 0842 
RECEV OSED 05E8 ,05F 9, OSFC 
RECSS O5F5 OTTC .0788 
REGO] C646 064C 
REGO? 0652 0658 
REGO3S 065€E 0666 
REPTI O7ES OTEO .OTEL COTES 
RERUN o7c2 07a9,07AaC 
Rio 0500 OTA2 -07A4-0 7TAA,07CO 
RLOOP CTAA OT9A 
ROXKG 6034 osoc 
ROTV 0033 oso0c 
RSTKSa 0017 o5D€ 
RTABL o7cs Om2 
RTOVE o76c OTCcE 
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1627 PLOTTER FUNCTION TEST 


RTSET o7co O61F .0673.06EC.0 £26 

RTO O5F8B 05E2,0603.0605 

RT1 0609 O7Cc9 

RTIST CBAL 0622 

at2 0621 O7CA 

aTt2sv OBF4 0637 

at3 0675 o7cs 

RT3ST 0913 0683 

RT4 O6EE o7cc 

RV4ST 0930 O6F 6 

RT5 0768 0774,07CD 

RTSA O7TA OTTL .OTTA 

RTSS1 0975 oT68 

RUN 0732 OT6A 

RUNIT 0780 C600 »C TBF ; 

$ OfGA C628 -0668,7 C694, O6LC , O8AD , 0289.0 BC 5, 9808 »0SE4.09035 
OS0E .091B8.092C,0959 

SB8Su2 C8 TF o7é2 

SE osT2 CO2F , O68F « 0709,0718 ,08A4A,0886 ,08C6, 0808. O8ET .0900- 
592 3 oe O93E 9 093F 0094900950 »095%4 0095650961 20970 

SCNSE 0882 OSEE -082F -0840 

SERT 6680 CTFE .O81C 

SIDEL 0736 C73c 

S$iDE2 0743 0749 

SIDE3 o7s50 o7S6é 

gsoact  O89F O6SF .06C3 es 4 

STart onl) OSDC p 0607 07 78.0785 .07C6, OTED »DB2 3, 0848 .065A,08E0 

sToe O7LD O79T 

SvKB6 0035 0650C 

Sw 08746 © 0627 ,0691 60 700,0710,08AC ,088C ,.08C8,0805,08E5,CBF i, 
OSFD » C927 o0937 eO94E 0940 0957 pO9SE .0962 »0964,0971 

SwuNG1 CéAl 66C5 

SuNG2 O624 C676 -0683,068C 

SWNG3 0646 O6AE 

SUNG4 0609 O6E3 

TCNTEL 0728 0707 .0708 20 FOF e073 3.0762 

TIME oscB 0803 

vor 0764 0750 

TRICT | 06A0 0642 00681 0603 -06E6 .0730,0756 

TYPE O84A OTAF -.082A.084F .0856 

WNILCL ‘OTOL C704 

ww 086E 0635 2066C » C696, 0S8AF . 0888 p O8 D6 OSE 2, OBE E » O8F 6» 09054 

- @909-C0910.0910,0967 
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TASLE OF CONTENTS | 
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(PUNCH TES?) 


5.1 TEST NO. 1 

5e2 TEST NC. 2 (REACER TEST) 

5e3 . TEST NOw 3 (PUNCH/READ/STCOMPARE TEST) 
De TEST NCo 4 (REPRCODUCE-TAPES TEST) 
5.5 TEST NO.w} 5 (PUNCH FROM BIT SWITCHES) 
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PAPER TAPE READER/PJNCH FUNCTION TEST 


le PURPOSE 


THE FUNCTION TEST Is DESIGNED a) 1D TEST FOR PROPER OPERATION OF THE 
PAPER-TAPE STATUS INDICATORS AND (2) TO TEST FOR ACCURATE DATA HANDLING 
BY THE PAPER-TAPE READER AND PAPER-TAPE PUNCH WHEN OVERLAPPED ellie 
OTHER ELEMENTS OF THE 1130 COMPUTING SYSTEM. | 


Ze PREREQUISITES 
2el PROGRAM PREREQUISITES. 


THE FUNCTION TESS MUST RUN UNDER CONTROL OF THE DIAGNOSTIC 
MONITOR. 


202 DECK CUSTOMIZATION 


IF THE SYSTEM HAS A PAPER TAPE READER OR A PAPER TAPE PUNCH ‘BUT 
NOT BOTHe THIS PROCEDURE WILL SELECT AN INITIAL ROUTINE TO BE LOOPED 
UNTIL THE CPERA7TOR SELFCTS A DIFFERENT ROUTINE OR TERMINATES THE . 
PROGRAM. THIS INFORMATION MAY BE MADE A PERMANENT PART OF THE PAPER 
TAPE FUXCTION TEST OBJECT DECK BY INSERTING AN EDIT CARD an FRONT OF | 
THE LAST CARD OF THE DECK. bie fe 5 


‘ 


THE EDIT CARO SHOULD BE PUNCHED AS FOLLOWS, 


FOR PUNCH ONLY FOR READER ONLY 
COLS 1-10, +05DF 0001 COLS 1-10, +¢05DF 0002 
COLS 11-19, BLANK COLS 11-19, S8LANK 

COLS 20-29, PUNCH GNLY “COLS 20-29, READER ONLY 


IF THE EDIT CARDS ARE NOT IN THE DECK, READ/PUNCH ONLY CAN BE 
SPECIFIED BY THE BIT SWITCHES AS IS OUTLINED IN SECTICN 3.201-Be 


202 EQUIPMENT PREREQUISITES 

A. A PAPER-TAPE READER AND/OR PAPER-TAPE PUNCHe 
3. USE PROCEDURE th | 

3.1 LOADING 
THIS PROGRAM FOLLCWS THE LLADING PROCEDURES ESTABLISHED BY THE 1130 
DIAGNOST®'C MONITOR. REFER TO De Me DOCUMENTATION. 
LOAD TKE PAPER TAPE PUNCH WITH BLANK TAPE. LOAD TEST TAPE PRODUCED 
BY PUNCH INTO ThE READERe 
FOR THE CONVENIENCE CF *READER ONLY® SYSTEMS, THE TEST PATTERN HAS 
BEEN INCLUDED ON THE END OF THE PAPER TAPE PROGRAM TAPE AND MAY BE 
IDENTIFIED BY COMPARING WITH THE SAMPLE TAPE, SECTION 6.1. 

3.2 OPERATION | 

2.2.1 PROGRAM EXECUTION 
A. LGAC AND GO MODE 


ALL ROUTINES WILL BE EXECUTED EXCEPT ROUTINE % AND 5. 
ANY DETECTED ERRORS WILL BE IDENTIFICD BY AN ERROR TYPEOUT. 
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¢4 


PAPER TAPE READER/PUNCH FUNCTION TEST 


B. ROUTINE SELECTION 


ee 


Be SINGLE PROGRAM AND OVERLAP MODE 


AFTER PROGRAM IS LOADEO,THE MONITOR WILL WAIT 


{ THE SELECTED ROUTINE WILL LCOP UNTIL THE SELECTION IS CHANGED. 
TO ALLOW OPTICNS TO BE SPECIFIED. 


ee 


| ; le TO SELECT ROUTINE OPTIONS SET BIT SWITCHES AS INDICATED 
le SPECIFY DESIRED OPTIONS AS INSTRUCTED IN SECTION 342026 | 
IF NO OPTICNS ARE DESIRED, NO ENTRY IS REQUIRED. ¢ 
TO EXECUTE ROUTINE 4 OR 5, THE DESIRED ROUTINE MUST BE ; 
SELECTEC. THEN THAT ROUTINE AND ONLY THAT ROUTINE 
WItl EXECUTE. b ¢ 


wer SWe SETTING ROUTINE 


i | 4B00 ALL ROUTINES 
4601 1 PUNCH TEST 
48C2 2 READER TEST 


2e IF A-READER ONLY OR A PUNCH ONLY IS TO BE TESTED AND 
* 4803 3 PUNCH-READ-COMPARE 


NO EDIT CARDS HAVE BEEN ADDED TO THE DECK, SELECT THE PROPER f 
ROUTINE AS FOLLOWS, 

| oPTIONAL ROUTINES 
SWe SETTING ROUTINE | t 

42804 & REPRODUCE TAPE — | 

4601 1 PUNCH TEST 4BC5 5 PUNCH FROM BIT SWITCHES (SEE SEC) 5.5) 

4B02 2 READER TEST pa =: 

2. PRESS INTERRUPT REQUEST KEY. 

PRESS INTERRUPT REQUEST KEY 

| NOTE 

3- TO START EXECUTION - EXECUTE MODE MUST BE SPECIFIED 


SET BIT SWITCHES FOR DESTRED MODE 
SWe SETTING CCNTROL 


oc8s0 EXECUTE wITH NO OPTICNS 

0c 88 LooP ON ERROR 

CCE4S BYPASS ALL ERROR PRINTOUTS 

oc e2 HALT ON ANY ER®&OR 

ocsc LOOP CN ERROR AND BYPASS ALL ERROR PRINTOUTS 


ROUTINE 4 AND 5 ARE LCOPING ROUTINES WITH NO 
TERMINATION. THEY WILL BE EXECUTED ONLY IF 
SELECTED. 


323 TERMINATION 
IF THERE ARE NU *LOOP® CONTROL OPTIONS SELECTED, THE PROGRAM WILL 


TERMINATE AFTER GNE PASS. IF OPTIGCNS TO LOOP HAVE BEEN SELECTED, 
THE PROGRAM MAY BE TERMINATED BY- 





ocsc LOOP ALL PROGRAMS 

OCS2 LCOP ALL PROGRAMS AND HALT ON ERRORS le REMOVE LOOP OPTIONS AND ALLOW NORMAL TERMINATION. 
: | OR | 

PRESS INTERRUPT REQUEST KEY. 2e SET ENTRY SWITCHES TO 40CB AND PRESS THE INTRPT REQ. KEY. 


32.2 PROGRAM OPTIONS 304 RESTART 


| N z.* My ee et o | us ad: Seer Nas Res. Tan — . Nad! | = oe SS kK 
| 

| 

| 

| 

| 


THE OPERATOR MAY MOCIFY THE EXECUTION OF THE PROGRAM ANY TIME BEFORE 7s TO RESTART THE PROGRAM. 
OR AFTER IT HAS STARTED EXECUTION BY ENTERING PROGRAM CONTROL OPTIONS . | 


OR ROUTINE SELECTION OPTIONS. : 1. SET SWITCHES TO 4088. , 
| : 2- PRESS INTERRUPT REQUEST KEY. 

3- SET SWITCHES TO OO8C. 

4. PRESS INTERRUPT REQUEST KEY. 


Ae PRCGRAM CONTROL CPTIONS 


| 

le TO SELECT PROGRAM OPTIONS SET BIT SWITCHES AS INDICATED - 

| NOTE 

SWe SETTING COATROL | | | | 

| . DEPENDING ON HOW THE PROGRAM WAS TERMINATED, THE 

o600 RESET ALL CONTROL OPTIONS . LAST TWO STEPS MAY NOT BE REQUIRED. 

0801 HALT PAPER TAPE PROGRAM (TO START AFTER HALT, | re 

SET SWS TO DESIRED CONTROL OPTION OR OB00, = 

THEN PRESS INTERRUPT REQUEST KEY.) 


0B40 REALIGN PAPER TAPE IN READER 


Sra PL Lees 


0B80 MANUALLY ALIGN TAPE IN READER 


2- PRESS INTERRUPT REQUEST KEY. 


PPR AGO ORT Re ee a I POU. Sw, 
:) 


so at he a el 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PAPER TAPE REACER/PUNCH FUNCTION TEST 


4. PRINTOUTS 


ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN OORR (MESSAGE) 
- OR = 
EPPNN CORR (MESSAGE) | 
WHERE A IDENTIFIES STATUS MESSAGES 


E IDENTIFIES ERRGR MESSAGES | 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 
NN IS THE MESSAGE SEQUENCE NUMBER © 
“RR IS THE ROUTINE NUMBER | 
MESSAGE IS ANY VARIABLE INFORMATICN 


4.1 STATUS MESSAGES 


AOBO2 00C4 ROR ERROR 

: | DSW ERROR WAS DETECTED AFTER A READ COMMAND. OPERATOR MUST DETER- 
~y MINE IF TAPE WAS READ PROPERLY BY COMPARING TAPE COLUMN JUST PAST 

| READ STATIGN WITH MODIFIER WORD OF ERROR-PRINTOUT E0B16 ( SEE 4.2 )- 
AFTER MAKING ANY TAPE ADJUSTMENTS NECESSARY, SELECT PROGRAM CONTROL 
CPTICGNS PER STEPS A AND B OF PARAGRAPH 3.3 AND TABLE Ile 


A0B03 00x TAPE ALIGNED . 


TLE PAPER TAPE TEST RECORD IS ASSUMED TO BE PROPERLY ALIGNED IN THE 


READER AT THIS TIME. 
4.2 ERROR PRINTOUTS 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
XXXX OXCO 


(ROUTINE) 
E9BOL O0OX 
OSw ERROR AFTER READER-CONTROL COMMAND 
THE READER SFOULD BE BUSY AND NOT READY.~ 


(DSW WAS) (DSW SHCULD HAVE BEEN) 
XXXX OXGO 


(ROUTINE) 
EQOBO2 OO0CX 


OSW ERROR AFTER PUNCH CCMMAND 
THE PUNCH SKOULD BE 8USY AND NOT READY~ 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
XXXX OFOD 


| (ROUTINE) 
FE0BO03 OOCX 


DSW ERROR AFTER READER-CONTROL AND PUNCH COMMANDS 
BOTH TRE READER AND PUNCH SHOULD BE BUSY AND NOT READY. 


(ROUTINE) | 
EOBO04 cOCcx 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
| XXXX OXOO ROR NRDY 


THE READER WAS READ AFTER INTERRUPT AND NOW SHOULD BE BEARY FOR 


| | SSW ERROR WHEN CHECKING FOR READER-READY 
: ANCTHER CCNTROL COMMAND. 
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(DSW WAS) (0SW SHOULD HAVE GEEN) 
XXXX OX0O PCH NRDV 


(ROUTINE) 
£OB05 O09X 


THE PUNCH INTERRUPT HAS BEEN SERVICED AND THE PUNCH SHOULD NOW BE 


CSW ERROR WHEN CFECKING FOR PUNCH-READY 
REACY FOR ANOTFER WRITE COMMAND. 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
XXXX 4900 


(ROUTINE) 
EOB06 OO0CX 


READER SERVICE-REQUEST DSW ERROR 
ERRCR IN DSW DURING EN TERRUET: 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
XXXX 1000 


(RCUTINE) | 
EOBOT O00x 


PUNCH SERVICE-REQUEST CSW ERROR 
ERROR IN OSW DURING INTERRUPT. 


(ROUTINE) (DSW WAS) (DSw SHOULD HAVE BEEN) 


E0BO0s8 O00X 
DSW ERROR WHEN PUNCH AND READER INTERRUPTS RECEIVED ar SAME TIME 
ERROR IN DSW DURING INTERRUPT. 


(DSW WAS) (OSW SHOULD HAVE BEEN) 
XXXX XOCO 


(ROUTINE) 
E0809 O00X 


DSW ERROR “WHEN FIRST INTERRUPT WAS RECEIVED 

AT THIS TIME THE READER AND TEE PUNCH ARE BEING RUN UNDE RACE 
CONDITION. THE OSw FOR THE DEVICE THAT INTERRUPTS FIRST 1S ANALIZED 
FIRST. ANY ERROR WILL BE PRINTED AS AN ECBGS. SIMILARLY FOR THE 
SECCND INTERRUPT, ANY ERROR WILE BE PRINTED AS E0610.~ . 


(ROUTINE) 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
E0810 O00xX | | 


XXXX XOCO 


DSW ERROR WHEN SECOND INTERRUPT WAS RECEIVED 

AT THIS TIME THE READER AND THE PUNCH ARE BEING RUN UNDER RACE 

CONDITION. THE OSw FOR THE CeVICE THAT INTERRUPTS FIRST IS ANALIZED 
FIRST. ANY ERROR WILL BE PRINTED AS AN FOBO9. SIMILARLY FOR THE 

SECOND INTERRUPT, ANY ERROR WILL BE PKENTED AS EOB10~ 


(DSW WAS) (OSW SHOULD HAVE BEEN) 


(ROUTINE) 
EOBL1 OCOx XXXX OXOO 
NO READER INTERRUPT RECEIVED. ( DSW SENSED AFTER READER-CONTROL 
COMMAND) : 
(ROUTINE) (DSW WAS) (DSW SHOULD HAVE BEEN) 
EOB12 O00x XXXX OX00 


NO PUNCH INTERRUTP RECEIVED ( DSW SENSED AFTER PUNCH CUMMAND) 


(ROUTINE) 
E0B13 OOO0X 


(DSW WAS) (DSW SHOULD HAVE BEEN) 
XXXX GFOO 


NO PUNCH OR REACER INTERRUPT (DSW SENSED AFTER READER-CONTROL AND 
PUNeH COMMANDS) 
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IBM MAINTENANCE OCIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCh FUNCTION TEST 


(WAS) (DATA SHOULD HAVE BEEN) 
XXGO XXCO WAS S/B 


(ROUTINE) 
EOB1L4 Ooox 


REAO/CCMPARE ERROR ROR BUFFER CHANGED 
DATA {XX00) PRIKRTED AS ENTERED IN CORE-CHANNELS 8-1 RESPECTIVELY. 


(WAS) (DATA SHOULD HAVE BEEN) 


(ROUTINE) 
EOBLS OOO0Xx XXO0O XXCO WAS S/B 
READ/CCMPARE ERROR ( RDR BUFFER UNCHANGED) 
CATA (XXGC) PRINTED AS ENTERED IN CORE-CHANNELS 8-1 RESPECTIVELY. 
(RCUTINE) (DSW WAS) DSW DATA 
E0B16 0004 XXXX OOOO XXCO RDR ERRCR 


REACER-DSW READ ERROR WHEN REPRODUCING TAPES. IF TAPE STOPPED, THE 
FIRST CHARACTER BEYOND THE READ STATION WAS PERHAPS IMPROPERLY READ. 
THIS CrARACTER KAS NOT AS YET BEEN PUNCHED. BACK THE READER UP ONE 
CHARACTER AND PRESS START ON TEE P-Ce 

CATA (XX00) PRINTED AS ENTERED IN CORE-CHANNELS 8-0 RESPECTIVELY. 


OPEN SPORT 
Xx0O0 yYyYy0dO0 


5CO CHARACTERS. - 


THE PROBLEM ISy 

Ae OPEN DATA CHANNEL(S}« XxOO SHOULD BE FFOO, WHICH IS THE CHARACTER 

| THAT WOULD BE PLACED IN CORE 8Y READING AN ALL-BITS CHARACTER. 
ANY MISSING BIT(S) INDICATE THE OPEN DATA CHANNEL(S). 


Be. SHORTED DATA CHANNEL(S)« YYCO SHOULD BE 0000, WHICH IS THE 
IN CORE BY READING A NO-BITS 
INDICATE THE SHORTED CHANNEL(S). 


CFARACTER TRKAT WOULD BE PLACED 
CKARACTER. ANY BIT(S) PRESENT 
C. IF BOTH XX00 AND YYOO ARE CORRECT, 


THE READER CORRECTLY,» OR 
8 CHARACTERS PROPERLY. 


Le THE TAPE IS NOT IN 
2e THE READER CAN NOT READ THE FIRST 
IF SO, 


Ae TRY REPRUDUCING TAPE BY ENTERING SWITCH SETTINGS IN 
FOLLOWING SEQUENCE, 


STOP THE PROGRAM 
LOOP RCUTINE 4 


1. 4CO8 


(ROUTINE) 

E0819 000x 

THE PROGRAM COULD NOT ALIGN THE TAPE IN THE READER IN THE LAST 
2. 4B04 


3 4088 RESTART PRCGRAM 
OR 
Be. FOR READER-ONcY SYSTEMS 


le ENTER SWITCHES ~ 400B 

2e POSITION TAPE IN READER SO THAT FIRST CHARACTER TO 
SE READ IS THE FIRST CHARACTER OF THE TEST PATTERN. 

3- ENTER SWITCHES - 4880 

4e ENTER SWITCHES - 4088 


THAT 


ALL DATA READ WHICH DCES NOT COMPARE WITH IN THE 
PROGRAM WILL CAUSE ERROR PRINTOUTS. 
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| , IBM MAINTENANCE DIAGNOSTIC P°OGRAM FOR THE 1130 SYSTEM PART NO. 2191234 
sa as, a = ‘PAGE 4A 
| | PAPER TAPE READER/PUNCH FUNCTION TEST 
a: 5. COMMENTS. | ase. & 
| THE FUNCTION TEST CONSISTS OF A MAINLINE PROGRAM THAT COMBINES MANY 
: ROUTINES TO PERFORM THREE MAIN TESTS AND ONE OPTIONAL TEST. THESE 
| oe ROUTINES ARE DESCRIBED IN PARAGRAPHS Sel THROUGH Se4e 
= THE FUNCTION TEST, | 
| A. CHECKS DSW FCR PROPER BITS BEFORE ISSUING WRITE (PUNCH) OR 
4 CONTROL (REACER) COMMANDS. 
Be CHECKS DSW FOR CORRECTNESS AFTER XIO INSTRUCTIONS 
| C. CHECKS FOR INTERRUPT FROM DEVICE WITHIN SPECIFIED TIME LIMIT. . 
a3 De CHECKS DSW AFTER INTERRUPT IS RECEIVED. 
5.1 ROUTINE NO. 1 (PUNCH TEST) | | 
TEST NOs 1 CHECKS THE OPERATICN OF THE PAPER-TAPE PUNCH WHILE 
PUNCHING THO TEST RECORDS. THE RECORD INCLUDES A RIPPLE PATTERN 
AND AN ALL-CHARACTER PATTERN. (REFER FIGURE 1). 
5.2 ROUTINE NO. 2 (READER TEST) | | 
CHECKS THE OPERATION OF ThE PAPER TAPE READER WHILE READING 
ONE RECORD PRODUCED BY THE PUNCH TEST. THE TAPE SHOULD BE " 
INITIALLY PLACED IN ThE READER AT SOME POINT PRECEEDING THE 
RIPPLE PATTERN. THE PROGRAM WILL ALIGN THE TAPE PROPERLY IN 
THE READER. ThE TAPE IS ASSUMED TO BE PROPERLY ALIGNED AS SOON 
AS FOUR CHARACTERS HAVE BEEN CORRECTLY READ. 
7 | EACH CHARACTER READ IS COMPARED WITH A WORD IN STORAGE. AN UNEQUAL 
COMPARE WILL CAUSE AN ERROR TYPEOUT. SEE 40204 THERE WIte 
| BE ONE ERROR TYPEOUT FOR EACH READ/COMPARE ERROR. TAPE MAY BE RE- 
e P ALIGNED IN READER BY SETTING ShS. ( TABLE 1 ) AND DEPRESSING INT REQ 
KEY. 
. 5.3 ROUTINE NOs 3 (PUNCH/READ/COMPARE TEST) 
| THIS TEST CHECKS THE FUNCTICN AND RELIABILITY OF THE PAPEK TAPE 
x READER AN‘) PUNCH WHEN OPERATED TOGETHER. THE DATA READ IS 
COMPARED WITH THE DATA PUNCHED IN A NEW TAPE. THIS TEST ALSO. HAS THE 
: TAPE ALIGNMENT FEATURE OF TEST NOe 2e THE TEST IS COMPLETE AFTER 
. ONE RECORD FAS BEEN PROCESSED. 
5.4 ROUTINE NOe 4 (REPRODUCE-TAPES TEST) 
THE OPERATOR HAS THE OPTION OF REPRODUCING ANY TAPE. AGAINe 
ALL DEVICE STATUS CHECKING DONE IS TESTS NOS. 1 AND 2 IS INCLUDED | 
IN THIS TEST. ALSO, A DSW ERROR WHEN READING THE TAPE WILL CAUSE A 
DELAY OF THE PROGRAM UNTIL THE OPERATOR CAN INTERVENE TO VERIFY THAT 
| THE TAPE DID READ PROPERLY. . 
5.5 ROUTINE NO. 5 (PUNCH FROM BIT SWITCHES) 
a ROUTINE 5 WILL PUNCH CONTINUOUSLY ANY PATTERN SPECIFIED BY THE BIT 
| | SWITCHES. TO SET UP FROM BIT SWITCHES- 
TO ENTER PATTERN, 
le SET BIT SWITCHES TO ceuas WHERE XX EQUALS THE DESIRED PATTERN. 
| | 2. PRESS INTERRUPT REQUEST KEY. 
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6 APPENDIX 


601 SAMPLE TAPE - _ _ - | 8 


¢ 


FIGURE 1 SHOWS AN EXAMPLE OF a PAPER TAPE RECORD- 
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00°.0 
0011 
0012 
0013 
0014 
06:15 


0016 
0017 
0018 
0019 


C028 
0029 
002A 
0028 
002C 
0030 
0032 
0033 
003% 
0035 
0036 


0037 
0038 
OO3E 
0041 
0044 
0048 
004C 
0050 
9054 
0058 
QO5A 
0060 


0000 


050C 
0500 
O5DE 
O50F 
OSEO 
05E&1 
O5E2 
OSE3 
O5SE4 
O5€5 
O5E6 


oo orrw OOoooco°o 


OSET O 
O5E€8 Ol 
O5E~ O 


NATE 
EC NO. 


0800 
0000 
0000 
0000 
0000 
0000 
0625 
0631 
0000 
0000 
FFFF 


0000 
0C000744 


D0T2 


O2JAN66 
415490 


* 
x 
* 
BEGIN 
START 
ERROR 
LOG 
HALT 
END 
€ 
LOGBY 
RSTKB 
ETRAP 
AQ5A 
* 


ILO 
IL1 
IL2 
IL3 
1L4 
ILCRP 
ILPAT 
RQTY 
RQKB 
SVKB 
ILIR 


AEND 
AlvD 
ALD 

WINT 
AINT 
ANRDY 
ARCY 
AS&S 
ASB 
ADSCT 
ASCT 
AWAS 
* 


£QU 
EQU 
ECU 
EQU 
EQU 
EQU 


EQU 
EQU 
ECU 
EQU 


EQU 
ECU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


EQU 


EQU 
EQU 
EQU 
EGU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


16 


BEGINGL. 
— START41 

ERROR#1 ~ 
-LOGel © 


HALT41 


END?1 

LOGBY#1 
RSTKB+1 
ETRAP+] 


40 
ILO] 
IL1¢] 
IL2¢] 
IL3¢} 
IL 444 
ILCRP4+2 
ILPAT#1 
RQTY*1 
RQKB+1 
SVKB41 


ILIR+1 

AEND#4 
AI VO+3 
ALO:3 

ANINT¢3 
AINT#T7 
ANRDOY+*1 
ARDY*4 
ASwSt+4 
ASB+4 

ADSCT+#2 
ASCT+6 


PROG TRANSFER VECTOR 


INVLD 
LD 


NO INTRPT 


INTRPT 
NRDY 
ROY 
SwS 
$/8 


SELCT 
WAS 


KKEKKSESAKEKERE ES ES OES EEE RESEEEE SEEKERS EEEEEEEE 
DIAGNOSTIC MONITOR * 


as 
* 
* 


* 


ORG 

* 

PID DC 

RID OC 

SWO OC 

SW1l OC 

SW2 UC 

SW3 OC 
DC 
hye 

MLSCF DOC 
oC 
oc 

x 

* 

* 

* 

= | 

POINT OC 

| x10 Lt 
STO 

OLMAY6S 


4154908 


ee ee ee ee . . e 


CONTROLLED. * 


1130 PAPER TAPE TEST * 
KSEREKTKSKEKKE SEEKS SE KEKSE TEESE EKEEREER EK EEKES 


¥*+1500 


PROGRAM STATUS TABLE 


40600 
4/0000 
4/0000 
/0000 


/0000 


PTILZ 


MGR 
40000 
70000 
/EFFF 


PROGRAM 1.2D. NO 

TEST NUMBER 

FCN O — CONTROL 

FCN 1 - LCOP ROUTINE 
NOT USED 

FCN 3 - PUNCH FROM SWS 
INITIALIZATION ADOR 
LOOP PROGRAM ADDR 
MAIN LINE SEQ CNTL 
COUNTER ENTRY 
TERMINATOR 


INTERRUPT ROUTINE 


/000G 
x10SO 
OSwWIT 


IE 
SENSE OSW 


SR aga oo AE ES a RCE, ope tet as De erent 





PART NO. 2191232 
l 


PAGE 


30800000. 


30800010 
30800020 
30800030 
30800040 
30800050 
30800060 
30800070 
30800080 
30800090 
30800100 
30800110 
30800120 
30800130 
30800140 
30800150 
30800160 
30800170 
30800180 
30800190 
30800200 
30800210 
30800220 
30800230 
30800240 
30800250 
30800260 
30800270 
308C0280 
30800290 
30800300 
30800310 
30800320 
30890330 
30800340 
303800350 
30800360 
30800370 
303800380 
30800390 
30800400 
30800410 
30800420 
30800430 
30800440 
30800450 
30800460 
30800470 
30800480 
30800490 
30800500 
30800510 
30800520 
30800530 
30800540 
30300550 
30800560 
30800570 
30800580 
30800590 
30800600 
30800610 
30800620 
30800630 
30B00640 
30800650 
30800660 
30800670 


PROG ID 
PAGE 


o308- 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


O5E8 01 
O5ED Ol 
OSEF 01 
OSFl O1 
O5F3 Ol 
O5F5 Ol 
O5SF7 O 


OSF8 O 
O5F9 OO 
OSFB O 
O5FC O 
O5FD O 
OSFE Ol 
0600 0 
0601 O1 
0603 01 
0605 O 


0606 O 
0607 O 
0608 O 


9609 01 
0608 01 
060D O 


O60E 
060F 
0610 
0611 
0613 
0614 


ecoo0o°o 
~~ 


0615 01 
0617 Ol 
0619 O 
O61A Ol 


O61C OO 
O61E O00 


0620 Ql 


0622 CO 
0624 1 


0625 


0626 
0627 
0628 
0629 
062A 
062C Ol 
O62E O 
O62F Ol 


CO0C00 oO 
Guo 


DATE 
EC NOe 


65800667 


4D80065E 
F5000664 
E5800667 
4€180615 
66000756 
TOLF 


FO6B 
4C000000 
D066 
E067 
D065 
4C20060E 
c061 
4€180615 
66000760 
7011 


E85c 
DO55 
FO56 


4C180615 
66000765 
7009 


1140 
1001 
DO4D 
65000606 
69E6 
7008 


66000775 
67000770 
6BCA 

6E000792 


C4000018 
04000032 


4C8005ET 


44800010 
os50C 


0006 


COB7 
1008 
4810 
1010 
040007CD 
66000631 
6AB5 
4C800625 


O2JAN66 


415490 


LDX 


Il INTEX 
BSC I1 HANDL-1 
SINT EUR Ll INTEX-3 
AND I1 INTEX 
BSC L PINT3e¢—- 6R IF DSW OK 
LDX L2 NIPES SVC REQ ERROR 
MDX PINTI — : 
+ 
DINT OR INTED CK DSW FOR 2 SVC REQ 
BSC L /0000 BR IF 2ND DOUBLE INT 
DINT1 STO OSwO!I : 
AND INTED 
STO DSWID 
BSC L  DINT4sZ EXIT IF ONLY ONE REC 
LD DSwO! 
BSC L PINT3,+- BR IF DSW OK 
LDX L2 DINE1 
MDX PINT1 
& 
DINT2 OR DSWID 
STO DSWIT 
EOR INTED 
* 
BSC L PINT3s¢- 8R IF DSW OK 
LDX L2 DINE2 
MDX PINTL 
¢ 
e 
DINT4 SLCA 10 
SLA 1 
STO BUMRQ ZERO TF NO IEQ BIT 
LDX L1 DINT2 SET SECOND INT SW 
STX 1 OINT1-1 
MDX XIT 
= 
PINT3 LDX L2 DINE6 
PINT] LOX L3 BSYES CHECK BUSY DSW NEXT 
STX 3 MLSCF 
STX L2 XBSYX+1 PROL 
s 
LD L_ ETRAP RESTORE INTERRUPT 
STO LL ILPAT * TRAP ADDRESS 
& i 
XIT BSC I POINT EXIT INTERRUPT RT 1X 
EKKSKKESHKKKKK EK EKEKEKEKS EETKKKESKEKEKKS EKE KEKE 
: | 
EEKESEKKSESESKESCKEKE SSE SEKSKESESEEKSEEREEEEEKERKESE SEES EKES 
PTBGN BSI I BEGIN CALL MONITOR © * SC 
DC PID ADDR OF PID NO * 
ESKKSEKEEKSCKEEKSE KE SCE SEK KEKEKEES CHES EKKEKKEKSEKESE SEE 
& 
SSSEAEKESEKSEEKKKE ESESKKSKKSEKEKEKKSEREKEKESKEKEKESEEREEE 
* 
* INITIALIZATION ROUTINE 
* 
PTILZ OC 40000 ENTRY POINT SE 
¢ 
LD SWO CK. ALIGN TAPE SW 
SLA 8 
BSC - REALIGN IF SET 
SLA 16 
STO L NIST SET ALIGN TAPE SW 
LOX L2 MGR SET MAIN LINE SEQ 
STX 2 MLSCF * CONTROL FIELD 
BSC 1 PTILZ . SX 
SEEKEE SST EES SEKES CECE KEES SEKKSE KSEE SSESSKESEKEKESEESE 
@ 
* 
O1MAY66 


4154908 


Bre ancielsias nae 5 F pila iinet hanaeptisoen i ciaikiy, Wists bP puat ak ssi sieeataciey nom tb naoreneasentt ete teeters nnibehtati te amelie srrapn cinta Rhennnn tintin SP tg entertain tient tet titan ote hte tNaeannsrhnametientatinetninee ‘4wcerte sons ot Amey ore 


PART NOs 2191232. 


PAGE 


30800680 

30800690 
30B00700 . 
30860710 


30800720 
30800730 
30600740 
308600750 
30800760 
30800770 
308090780 
30809790 
30800800 


308600810 - 


30800820 
30800830 
30800840 
30800850 
30800860 
30800870 
30800680 
30800890 
30800900 
30800910 
30800920 


30800930 . 


30800940 
30800950 
30860960 
30800970 
30800980 
30800990 
39801000 


- 30801010 | 


30801020 
30801030 
30801040 
30801050 
30801060 
30801070 
30801080 
30801090 
30801100 
30801110 
30801120 
30801130 
30801240 
30801150 
30801160 
30801170 
30801180 
30801190 
30801200 
30801210 
30801220 


30801230 


30801240 
308601241 
30801242 
39B01244 
30801250 
30801260 
30801270 
30801280 
30801290 
30801300 
30801310 
30801320 


PROG ID 


PAGE 


1A 
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ke 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOw 2191232 ‘ > IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM spe aka 
| | | PAGE 2 . ea : 
PAPER TAPE READER/PUNCH FUNCTION TEST 7 2 PAPER TAPE REACER/PUNCH FUNCTION TEST 
0631 0 1810 MGR SRA 16 30801330 * 30802010 
0632 0 DOAA : STO RID 30801340 * | , | |. 30802020 
* 30801350 * TEST 1 — PUNCH TEST 30802030 
0033 01 660005CC MGRL LDX L2 PID 30801360 * | . _ 30802040 
0635 0 C203 LD 2 SW1-PID ASSURE PROPER ENTRY 30801370 066A 00 6500020E RTIN1I LDx Ll 782 SET FOR 2 RECORDS 30802050 
0636 O 0025 STO SwCMP 30801380 066C 0 6968 STx 1 WRECK : | 30802060 
0637 0 1000 SLA 13 30801390 0660 01 44000835 RTNl BSI Ll MARK BUILD NEXT CHARACTER SC 30B02070 
0638 O 1800 SRA 13 30801400 O66F 0 4066 BS1 XKRDY PUNCH READY - $c 30802080 
* 30801410 0670 01 4C000731 BSC tL  PUNH PUNCH ONE CHARACTER 30802090 
0639 0 4820 BSC Zz SET ROUTINE ID 30801429 0672 0 405A RTNIA BS] CRASH sc 30802100 
063A 0 0201 STO 2 RID-PID 30801430 0673 0 7O0F9 MDX RTN1 30802110 
* 30801440 * 30802120 
0636 01 65800500 LDX I1 RIO UPDATE THE RID 30801450 * TEST 2 — READER TEST 30802130 
063D 0 4818 BSC +- 30B01460 * | 30802140 
0353E 0 7101 MDX 1 i INDEX THE ROUTINE NO 30801470 0674 O1 44000835 RTN2I BSI L MARK BUILD NEXT CHARACTER SC 3080215C 
* | 30801480 0676 0 4079 . psy RRDY READER READY SC 30802160 
063F 0 699D STX 1 RID SET RTN NO ANDO ADDR 30B01490 0677 O01 4COO070A BSC L FEED CONTROL READER 30802170 
0640 O01 C5090654 LO Ll RTCON-1 - 30801560 0679 01 44000793 RTN2ZA BSI LL ROIT READ AND COMPARE SC 30802180 - 
* 30801510 067B 0 4051 BSI CRASH. Sc 30802190 
0642 0 6300 LOX 3 0 RESTORE CHAR RTN 30801520 067C 0 TOFT MDX RTN2I 30802200 
0643 01 6F00083D STX L3 DULP1 30801530 * 30802210 
0645 0 6301 LOX 31 30801540 s a 30802220 
0646 01 6F000838 STX L3 DULP-1 30801550 * TEST 3 - PCH-RD + COMPARE 30802230 
* | 30801560 * 30802240 
0648 OO 67000187 LDx t3 391 SET RECORD LENGTH 30802570 967D 01 44000835 RTIN3I BSI L MARK BUILD NEXT CHARACTER SC 30802250 
064A 0] 6FO006DS5 STX Lt3 WRECK 30801580 O67F 0 4056 BSI XKRDY PUNCH READY SC 30802260 
064C GO 62F8 LOX 2-8 RESET CORRECT SW 30801590 0680 0 406F BSI RRDY READER READY SC 30802270 
064D 01 6EOOUTCC STX t2 CORCT 30801600 0681 01 4C€000718 8SC t xXFEED PUNCH + CONTROL ROR 30802280 
964F 00 660001F4 LOx L2 500 30801610 0683 01 44000793 RTN3A BSI L_ RDIT READ AND COMPARE Sc 30802290 — 
0651 01 6E€6007D1 STX L2 TRIAL 30801620 0685 0 4047 BSI CRASH sc 30802300 
* : 30801630 : 0686 0 TOF6 MOX RTN31I 30802310 
0653 01 40800654 BSC I1 RTCON-1 BR TO USER ROUTINE 30801640 * 30802320 
* 30801650 * 30802330 
* 30801660 * TEST 4 — REPKO PAPER TAPE 30802340 
| + 30B01670 * 30802350 
0655 1 066A RTCON DC RTNII PUNCH ROUTINE 30801680 0687 01 C400050F RTNGI LD L SwWl 30802360 
0656 1 O674 OC RTN2I READER RIN 30801690 0659 O01 4C180633 BSC L MGRl»et— BR IF NO EXECUTE RIN 30892370 
0657 1 0oO67D Oc RTN3I PCH ¢ RDR CHECK 30801700 068B O 1010 SLA 16 30802380 
0658 1 0687 oC RIN4I REPRODUCE TAPE 30801710 068C 01 D40007CB STO LL ERRET | 30802390 
0659 1 O68B Oc RTNSI PCH BIT SW DATA RIN 30801720 O68E 01 04000808 STO LL XCHAR PUNCH FEED HOLE 1ST 30802400 _—=s«zj. 
065A 1 0890 OC TEND END ROUTINE 30801730 0690 01 C40005DF RTN& LD L Swi 30802410 | 
0658 1 0890 : OC TEND END ROUTINE 30801740 0692 0 FOCI EOR SwCMP 30802420 
* | 308901750 0693 01 4€200633 BSC L MGR1leZ BR IF END ROUTINE 30802430 
065C O 0000 SWCMP DC 40000 SwWl COMPARE WORD 30801760 - 0695 0 4040 BSI _ XKRDY PUNCH READY 30802440 
SEEKS KK SE EERE KEES EKEKRER AERTS ERESERE TEE KEKES 30801770 0696 0 4059 BSI RRDY READER READY Sc 30802450 . 
* : 30801780 0697 01 4C000718 BSC L xXFEED PUNCH + CONTROL ROR 30802460 
065D 0 o000 DSWIT DC /0000 LAST INTERRUPT DSW 30801790 0699 01 O0C000748 RTNSA XIO0 L XIORR READ RDR BUFFER 30802470 
065E O 0000 BUMRQ DC 40000 30801800 0698 01 C400080A LD kL CARED PLACE CHAR READ IN. 30802480 | 
O65F 1 OSEF HANDL OC SINT INTERRUPT BR ADRS 30801810 0690 01 04000808 STG tL XCHAR * OUTPUT AREA . 30802490 
0660 1 O5EF - OC SINT 30801820 O69F O 10A0 SLT 32 30802500 
0661 1 OSFB DC DINT 30801830 O6A0 01 OCO00T44 XI0 ec arAIOSO SENSE DOSW 30802510 
0662 0 aoood DSWDI OC 70000 30B01840 O06A2 01 4C€100690 BSC L RTN4&e- BR IF NO OSW ERRORS 30802520 
0663 0 0000 OSwID OC /0000 IOENTIFY INT YET EXP 30801850 06A4% 0 6116 LDXx 1 /0016 PRINT ROR ERROR 30802530 
* 30801860 O6A5 O1 66000880 LOX L2 ROR 30802540 
0664 0 5000 INTED OC 45000 ROR-PCH SVC REQ EXP 30801870 O6A7 O1 74010803 MDX L EMESGel 30802550 
0665 QO 4000 Oc 74000 RDR SVC REQ 30B01880 O6A9 01 440007EC BSI t PROSW MC 30802560 
0666 O 1000 OC 41000 -PCH SVC REQ 30801890 O6AB 01 74FFO803 MOX L EMESG,-1L 30802576 
0667 0 0000 INTEX OC 40000 INTERRUPT EXPECTED 30801900 . QO6AD O01 740105DE MOX L SWOel 30802580 
* * }] = READER 30801910 _ O6AF 0 6102 REQST LOX 12 REQUEST OPER ACTION 30802590 
e * 2 = PUNCH 30801920 06B0 01 CCO000880 LO0 t ROR 20802600 
* * 3 = BOTH 30801930 O6B2 O01 44000810 BSI t PTLOG MC 30802610 
0668 1 O74A DC RMASK READER 30801940 7 0684 01 44000826 BSI t TIME PAUSE FOR OPERATOR 30802620 . 
0669 1 O748 OC XMASK PUNCH 30801950 0686 01 C40005DE Lo L swo 30802630 
EREKSEKSEESEKESEKCESRE ESEKSEESTEEERESRKSEEESEKESESES 30801960 0688 01 4CO406AF BSC t REQSTLE 30B02640 
* : 30B01970 = O6éBA O 7005 MOX RTN4& | 30802650 
* 30801980 * | 30802660 
* 30801990 % TEST 5 — PUNCH FROM BIT SWS 30802670 
* MAINLINE TESTS 30802000 = @ | : 50802680 
DATE O2JAN66 O1LMAY66 PROG 1D 0308-4 Ss DATE O2JAN66 O1MAY66 _ as | PROG 10 0308-4 
EC NO> 415490 4154908 PAGE 2 ek EC NO. 415490 4154908 . io. . PAGE 2a 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


PAPER TAPE READER/PUNCH FUNCTION TEST 


0O6BB 01 
O6BD 01 
OOBF 01 
06C1 O 
06C2 01 
06C4 O01 
06C6 0 
06C7 Ol 
06C9 O 
O6CA 01 
O6CC O 


O6CD 0 
O6CE 01 
0600 O 
0601 01 
0603 Ol 
06D5 O 
0606 0 
0607 01 
0699 01 
O60B 01 


06DD O 
O6DE O 


06D0F 


© 


© 
feat 


O6EO 


O6E2 
O6E3 
O6E5 
O6E6 
O6ET 
O6E8 
O6E9 
O6EA 
O6EB 


ooo 
) 


O6ED 
O6OEF 


oo oo0oo0o°o 


O6FO 0 
O6Fl 01 
O6F3 O01 
O6F5 O1 


O6FT O 
06°8 0 


06F9 0 
06FA Ol 
O6F% O 


DATE 
EC NO. 


C40005DF 
4C 180633 
C40005DF 
FO9A 
4€200633 
C40005E1 
1008 
D4000 808 
400C 
4C000731 
TOF2 


0000 
T4FFO6D5 
T7002 


4C0C0633 
4C8006CD 


0000 


0000 

C40CO5DE 
65000607 
4C0407FD 


0866 
D076 


E06B 
4C9806D6 


1007 
6600087E 
4810 
6200 
6105 
C86C 
E067 
1800 
“40007EC 


44000826 
TOET7 


0000 

C40005DE 
650006F1 
4CO4OTFD 


084C 
DOSC 


€050 
4C9806F0 


1005 


O02 JAN66 


415490 


1130 SYSTEM 


BR IF NO EXECUTE RTN 


BR IF END ROUTINE 


PUNCH ONE CHARACTER 


ESSEEREE HEE EEES OE SESEEERESESHEKSSERESESREREESEEE 


COUNT CHARACTERS ROUTINE 


SE 


BR IF END OF RECORD 
RET IF RCO NOT CMPLT SX 


HEEKKEESKSEKESKEE KESCKEEESESEEKEECKKSE SEES ESE KSEE SEES 


RTNSI LO t Swi 
BSC L MGRlet— 
RTNS LOD t Swi 
EOR SwCMP 
BSC tL MGR1 eZ 
Lo L = Sw3 
SLA 8 
STO t XCHAR 
BSI XKaDY 
BSC L PUNH 
RTNSA MDX RINS 
& 
x 
* 
CRASH OC 40000 
MOX LL KRECKe-1l 
MDX RASH 
* 
| “BSC CL AGR1 
* . 
RASH BSC I CRASH 
* 
WRECK OC 0000 
* : 
XKROY CC 40000 
LD tL swoa 
LOX L1l XKROY+1 
BSC L POSHWXeE 
* 
x10 xXIOSOD 
STO DSWAS 
x 
AND XMASK 
* 
BSC J XKRDY,t— 
re 
SLA 7 
LOX t2 PNRDY 
BSC - 
LDX 20 
LOX 1 5 
LDD DSWAS 
AND POFF 
RTE 16 
BSI L  PROSW 
% 
BSI tc TIME 
MDX XKRDY*] 


SE 
BR IF HALT PROGRAM 
SENSE AND SAVE DSW 
REMOVE ROR NRDY BIT 
. BR IF DSW OKAY Sx 
PRINT DSwW ERROR 
BR IF PCH NRDY 
MC 


PAUSE BEFORE RECHECK SC 


KESKKEKSESE SKE KES SES SES SES SSS KSSSESSEESSSESE SKE EKKES 


x 
x 
® 


* 


RROY OC 
LO 
LOX 
BSC 


x10 
STO 


AND 


BSC 


SLA 


OLMAYH6 
4154908 


e 


READER READY ROUTINE 


40000 
Swo 
RRDY+1 
PDSWXeE 


X1OSD > 
OSWAS 


RMASK 


RRDY ,+— 


5 


SE 
BR IF HALT PROGRAM 
SENSE AND SAVE DSW 
REMOVE PCH NRDY BIT 


BR IF DSW OKAY SX 
PRINT DSW ERROR 


PART NOw 


PAGE 


30802690 
30802700 _ | 
30802710 
30802720 | 


30802730 
30802740 


30802750 | 
30802760 — 


30802770 
30802780 
30802790 
30802800 
30802810 
30802820 
30802830 
30802840 
30802850 
30802860 
30802870 
30B02880 
30802890 
30802900 
30802910 


30B02920 


30802930 
30802940 
30802950 
30802960 
30802970 
30802980 
30802990 
30803000 
30803010 
30803020 
30803030 
30803040 
30803050 
30803060 
39803070 
30803080 
30B03090 
30803100 
30803110 
30803120 
30803130 
30803140 
30803150 
30803160 
30803170 
30803180 


' 30803190 
-30803200 


30803210 
30803220 
30803230 
30803240 
30803250 
30803260 
30803270 
30803260 
30803290 
30803300 
30803310 
30803320 
30803330 
30803340 


30803350 


30803360 


PROG ID 


PAGE 


2191232 
3 


0308-4 
3 


“4 


oe ee ee omen ee - 


ree cee on 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST — 


O6FD 
O6FF 
0700 
0701 
0702 
0703 
0704 
0705 


O707 
0709 


O70A 
070B 


0700 
07 OF 
O711 


0712 
0713 


G714% 


0716 
0717 
0718 
0719 
OT1LA 


O71B 
0710 


OT1F 
0720 


0722 
0724 


0726 
0727 


0728 


0729 
O72A 


o72C 
0720 
OT2E 
O7T2F 


~-0730 


0731 
0732 


0734 


0736 


rw) 


= 


oO © ooooo0ooco°o 
o_ 


01 


01 
00 


Ol 
01 
01 


01 
00 


ooo0oo Oo oo 


0 


01 


01. 


00 04000032 


DATE 


EC NO. 


6600087C 
4810 
6200 
6104 
C852 
EO4C 
1800 . 
440007EC 


440090826 
TOET 


6101 
60000667 


C4000621 
04000032 
0834 


0831. 
003F 


44000826 > 


6111 
C8638 
E037 
E833 
7056 


650005F8 
600005FA 


6103 
60000667 


C4000621 
04000032 


0818 


O8lE 


0818 
0029 


44000826 


6113 
C025 
18D0 
CO1LF 
1040 


6302 
6FO000667 


C4000621 


02 JAN66 


415490 


- LOX 


L2 RNRDY. 


20 
14 


ROFF 
16 


L PRDSW 


t TIME 
RRDOY+ 


BR IF ROR NRDY 


DSWAS © 


mC 
PAUSE BEFORE RECHECK SC 
i 


ESEKEREES SEEESE OE KEEESEEKSEEESESEEES EKESEE SEES SE 


CONTROL READER ROUTINE 


11 
Lil INTEX 


ut xIt+1 
tL ILPAT 
XIOFD 


X1OSD 
OSwWBY 


L TIME 


1 /0011 
OSWBY 
ROFF 
OSWR2 
DINES 


SET READER INTRPT 
* EXPECTED 


SET INTERRUPT LEVEL 
* TRAP ADDRESS 
FEED READER 


SAVE BUSY DSW 


PAUSE FOR INTRPT ~~ SC 


PRINT NO INTRPT ERR. 


SHERSTSTEKSSSEKS SEKSEKITESKSE EKAKSESSOCSSHKE SKE SSS 


PUNCH AND CONTROL READER 


ROUTINE 
Li DINTL RESTORE DOUBLE INT 
Ll DINTI-1 © SWITCH 
1 3 SET DGUBLE INTRPT 
Ll INTEX * EXPECTED | 
L XIT+l SET INTERRUPT LEVEL 
L ILPAT * TRAP ADDRESS 
XI OXX FEED AND PUNCH 
XIOFD : 
X10SD SAVF BUSY DSW 
DSWBY 3 | 
L TIME PAUSE FOR INTERRUPT SC 
1 /0013 PRINT NO INTRPT ERR 
DSWBY 
16 
DSWRX 
DINES | 


SEKKSS SK SKKKERSES KE SKESEESEKSE SE SY SEKESTSE SESE STSESS 


~ BSC 
Ox 
Lox 
LDD 
AND 
RTE 
BSI 
a 7 
BSI 
MDX 
e 
* 
x 
FEED LOX 
STX 
¢& 
Lo 
STO 
XIC 
* 
x10 
STO 
= ; 
BSI 
s 
LOX 
LOD 
AND 
OR 
MDX 
e 
* 
3 
* 
XFEED LOX 
S7Xx 
g 
LDX 
STX 
. 
LD 
STO 
* 
X10 
x10 
& 
X10 
STO 
& 
BSI 
& 
LDX 
LO 
RTE 
LD 
MDX 
& 
¢ 
* 
PUNH LDX 
STX 
* 
LD 
STO 
OLMAY66 


— 4154908 


32 
L3 INTEX 


L XIT+1 
L ILPAT 


PUNCH ROUTINE 


SET PUNCH INTRPT 
* EXPECTED 


SET INTERRUPT LEVEL 
* TRAP ADDRESS 


PART NO. 


PAGE. 


30803370 
308033860 
30803390 


308034600 © 
30803410 


2191232 
3A 


30803420. 


30803430 


30803440 | 


30803450 — 


30803460 | 
30803470. 


30803480 


30803490 © 


30803500 
30803510 


. 308035290 


30803530 
30803540 
30803550 
30B03560 


30803570 | 


30803580 -—t—=‘=* 


30803590 


30803600 


30803610 


30803620 


30803630 


30803640 
30803650 
30803660 
308603670 
30803680 
30803690 
30803700 
30803710 
30803720 
30803730 
30803740 
30803750 
30803760 
30803770 
30803780 
30893790 
30803800 
30B03810 
30803820 
30803830 


30803840 | 


30803650 


- 30803860 . 
30803670 


30803880 
30803890 
30803900 
30803910 
30803920 
30803930 
30803940 
30803950 


30803960 — 


3VUB03970 
30803980 
30803990 


30804000 


30804010 
30804020 
30B04030 


-30B04040 


PAGE 


PROG 1D 0308-4 
3A 














0743 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR 


PAPER TAPE READER/PUNCH FUNCTION TEST 


0738 0 0809 


0759 0 O80A 
O73A 0 0018 


0738 01 44000826 


073D 
O7T3E 
O73F 
0740 
0741 


0742 
0742 


0744 
0745 
0746 
0747 
0748 
0749 
OT4A 
0748 
O74C 
0740 
O7T4E 
OT4F 
0750 
0751 
0752 
0753 
0754 
0755 


0756 Ol 
0758 Ol 
O75A O01 
O75C 01 
O75E 0 
O75F 0 


0760 Ol 
0762 0 
0763 O 
0764 0 


0765 Ol 
0767 O 
0768 Ol 
O76A O01 
O76C O 
077D O 


O76E 0 
O76F Ol 
O771 0 
0772 0 
o773 Ol 


DATE 
EC NO} 


ogoo0qo°o 


oooo0o0ooqocoecooo0coeo°crmoqo0cocorf~ 


6ll2 
C814 
EO11 
E80D 
102F 


0000 
0808 
1900 
0000 
1FO1 
0000 
1C10 
O80A 
1400 
FEFF 
FBFF 
FFFF 
ocoo 
0300 


-_ OFOO 


0100 
0400 
0000 
0000 
0000 
0000 


65800667 
CL00065D 
E5000 74F 
ED000664 
7105 
7011 


C400065D 
18D0 
6108 
TOOA 


C4000650 
18D0 
C400065E 
4C20076E 
6109 
7001 


6110 
C4000664 
18D0 
6200 
440007EC 


O2JAN66 


415490 


X10 


X10 
STO 


BSI 


LOX 
LOD 
AND 
OR 

MOX 


X1OXX 


X10SO 
DSWBY 


TIME 


0012 
DSWBY 
POFF 

DSWX2 
DINES 


THE 1130 SYSTEM 


PUNCH CHARACTER 


SAVE BUSY OSW 


PAUSE FOR INTERRUPT SC 


PRINT NO INTRPT ERR 


ESSEKHECKKELESRKERKEKESEKSE EEEKESE SESE KESKEERESEESES 


x 
* 


XIOXX 
XIOSD 
XIOFD 
XIORR 


RMASK 
XMASK 


DSWR2 
DSWX2 
DSWRX 
ROFF 
POFF 


OSWBY 


DSWAS 


BSS 
OC 
oC 
oc 
oc 
DC 
OC 
DC 
DC 
DC 
DC 
oC 
OC 
OC 
OC 
oC 
CC 
cc 
OC 
OC 
OC 


E 


XCHAR 
41900 
40000 
/1F01 
70000 
41C10 
CARED 
41A00 
/FEFF 
/F- BFF 


/FFFF 


/0CO0O0 
40300 
/OFUO 
40100 
40400 
40000 
40000 
40000 
40000 


PUNCH IOCC 
SENSE DSW IOCC 
FEED I0CC 

READ IOCC 


READER MASK 
PUNCH MASK 


ROR BUSY EXP DSW 
PCH BUSY EXP OSW 
DOUBLE BUSY DSW EXP 


LAST BUSY DSW 
NOT USED 
LAST CSWER PRINTCD 


EEERKEARERESEEEEKS SEE EEE SESEEEEESEERECEERSEEREE 


NIPES LDX 
LOD 
AND 
GR 
MDX 
MDX 
* 
* 
DINE1 LD 
. RTE 
LOX 
MDX 
* 
DINE2 LD 
RTE 
LD 
BSC 
LOX 
MDX 
x 
DINE3 LDX 
DINE LD 
DINES RTE 
LOX 
BSI 
& 
O1MAY66 


4154908 


PRINT OSW ERRORS DETECTED 


DURING INTERRUPT 


INTEX PRINT DSW ERROR 
CSWIT * DETECTED WHILE 
ROFF-1 * RUNNING RTN 1 OR 
INTEX-3 * RIN 2 

5 

DINES 

DSWIT PRINT DSW ERROR 
16 * DETECTED WHILE 

8 , * RUNNING RTN 3 OR 
DINE4 * RIN 4 

OSWIT SEQ SVC REQ ERROR 
16 

BUMRQ 

DINE3 92 BR IF IST SVC REQ OK 
9 

DINE4 

40010 

INTED 

16 

0 

PRDOSW MC 


PART NO. 


PAGE 


30804050 
30804060 
30804070 
30804080 
30804090 


30804100 — 


30804110 
30804120 
30804130 
30B04140 
30804150 
30B04160 
30804170 
30804180 
30804190 
30804200 
30804210 
30804220 
30B04230 
30804240 
30B04250 
30804260 
30804270 
30804280 
30804290 
30B04300 
30804310 
30804320 
30804330 
30804340 
30804350 
30804360 
30804370 
30804380 
30804390 
30804400 
30B04410 
30804420 
30804430 
30B04440 
30804450 
30804460 
30804470 
30B04480 
30B04490 
30804500 
30804510 
30B04520 
30804530 
30804540 
30804550 
30804560 
30804570 
30804580 
30804590 
30804600 
30804610 
30804620 
30804630 
30804640 
30804650 
30804660 
30804670 
30B04680 
30804690 


30804700 


30804710 
30804720 


PROG ID 
PAGE 


2191232 
br 


0306-4 
4 


~~ 


] 


eee eee 


 07A0 


—OTAC 


0780 


ees 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAPER TAPE READER/PUNCH FUNCTION TEST 


0775 01 
O7T77 O 
0778 Ol 


O77A O 
0778 O 
o77C O 


0770 Ol 
O77F O 
6780 Ol 
0782 01 
0784 Ol 


0786 0 
O787 Ol 
0789 Ol 
078B O 
o78sc 0 
0780 O 


O78E O 
O78F O01 


0791 OC 


0793 
0794 
0795 


0796 


0797 
0798 
0799 
O79A 
079C 
OT9E 
O79F 


~~ poe 


OTA1 
O7TA2 
O7A3 
O7A5 
O7A6 
OTAT 


ue 


~- 


OTAS © 
OTAA 
O7AB 


O7AD 
OTAF 


oS 


0781 
O7B2 
0784 
0785 
0766 
0767 
0788 


C000000 cA200CCO cooceoeoecoo0coCCoCo o ooo 
~~ : 


DATE 
EC NO. 


rl 


RID 
ERRET 


RET TO MAINLINE RTN 


Il SORTS-ly+t—- BR IF NO ERROR LAST 


16 
ERRET 
READ 


RETURN TO FINISH 
* ALIGNING TAPE 
* IN READER 


COKE EKEEESES EE EESEEEEENEEEEE EERE SEEESESEEES 


Ll 
il 


L1 
Ll 


1 
Li 


L 


CHECK BUSY DSW 


INTEX 
OSWBY 


RMASK=1 


DSWR2-1 
XB SE yt+- 


DSWBY 


ROFF-1 


BR IF DSW OK 


PRINT DSW ERROR 


OSWR2-1 


16 
0 
PROSW 


0 


ML SCF+1 


40000 


MC 


BLOCK PAUSE FOR INT 
* ROUTINE REENTRY 


BRANCH TO SOMEWHERE PMO1l 


SHEKSECKSESCKEKRSE KK KS STRESSES ESKESESE FEKSESECSEAKEKESES - 


658005DD DINE6 LDX 
C053 LO 
40980874 BSC 
& 
1810 SRA 
DO4F STO 
7019 MDX 
* 
* 
* 
65800667 BSYES LDX 
CoD3 LD 
E5000749 AND 
F500074C EOR 
4C18078E BSC - 
x 
C8CC LDD 
E500074F AND 
EDO0074C GR 
18D0 RTE 
6200 LOX 
405E BSI 
, 
6100 XBSE LDX 
6D0005E5 STX 
a 
4C000000 XBSYX BSC 
x 
* 
e4 
0000 RDIT OC 
co7s LD 
DO77 , STO 
Bs 
0881 READ xXIO 
= 
co73 LD 
FO71 EOR 
1808 SRA 
4C2007B1 BSC 
740107CC MDX 
7048 MDX 
682D STX 
6103 LDX 
C86C LDD 
406D BSI 
C40005DE LD 
100A SLA 
180A SRA 
D40005DE STO 
& 
1810 RDITD SRA 
D025 STO 
C022 LO 
0022 $TO 
650001F4 LDX 
6921 STX 
7039 MDX 
s 
cO1B RDIT2 LO 
@C2007D2 BSC 
62F8 LOX 
6A16 STX 
co19 LO 
E852 OR 
DO1T STO 
O2JAN66 O1MAY66 
415490 4154908 


2 
2 


COMPARE ROUTINE 


/0000 5E 
CARED 

LREAD SAVE LAST CHAR READ 
XIORR READ 

XCHAR DO CHARACTERS 

CARED * COMPARE 

8 

RD1T2e2 BR IF NON COMPARE 
CORCTel CK IF ALIGNED 

RDITE EXIT 7 

N1ST 8 SEQ CHRS CORCT 

3 PRINT TAPE ALIGNED 
TPEAL 

PTLOG 

SwO CLEAR REALIGNMENT SW 
10 ae | 
10 

SwO 

16 RESET BIT LINE CHECK 
BTLNE 

KFFOO 

NOLNE 

500 

TRIAL | 

RDITE EXIT 

NIST | 
RDIT4,2 BR IF NOT FIRST ERR 
-8 RESET CORRECT SW 
CORCT 

BILNE BIT LINE OPEN CK- 
CARED 


BTLNE 


PART NO. 2191232 


PAGE 


30804730 
30B04740 


30804750 | 


30804760 
30B04770 
30804730 
30804790 
30804800 
30804810 
30804820 
30804830 
30804840 
30804850 
30804860 
30804870 
30804880 
30804890 
30804900 
30804910 
30804920 
30804930 
30804940 
30804950 
30804960 
30804970 
30804986 
30804990 
30B05000 
30805010 
30805020 
30805030 
30805040 


_ 30805050. 
- 30805060 


30805070 
30805080 
30805090 
30805100 
30805110 
30805120 
30805130 
30805140 
30805150 
30805160 


30805170 


30805180 
30805190 
30805200 
30805210 


30805220 © 


30805230 
30805240 
30805250 
30805260 
30805270 
30805280 
30805290 


30805300 
30805310 


30805320 
30805330 
30805340 
30805350 
30805360 
30805370 
30805380 


30805390 | 


30805400 


PROG ID 


PAGE 


4A 


0308-4 
GA 
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~ | >| 
IBA MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM Bae eo - | = IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM oace NO. eres 
PAPER TAPE READER/PUNCH FUNCTION TEST a o PAPER TAPE READER/PUNCH FUNCTION TEST 
* : = 30805410 O7F3 00 44800012 EROSW BSI I ERROR oe -  # * SC — 30806090 
0789 0 Cols LO NOLNE BIT LINE SHORT CK 30805420 at O7F5 0803 DC . EMESG MESSAGE ADDR * © 30806100 
O7BA 0 E04F AND CARED 30805430 OTF6 O7FB oc CKDSX BUSY RETJAN ADDR * 30806110 
0788 O 0013 STO NOLNE 30805440 O7FT7 O7F8 DC ERLOP LOOP CN ERR ADDR *~. 30806120 
* . 30805450 SESKEKSESEECKSEK EE EKEEKEESE SKEKEEE SEKKSEEEST KE SESEE 30806130 
O78C O01 74FFO701 MOX TRIALs-1 COUNT DOWN 100 MAX 30305460 O7Fe 65800 7EC ERLOP LOX 11 PROSW NORMAL + LOOP RETS 30806140 _ 
O078E O 7007 MDX RDIT3 30805470 O7FA 7002 MDX  PDSWX | 30806150 - 
: * 30B05480 | * | : : | 30806160 — 
O7BF 0 6119 Lox 2/19 30805490 O7F8 650007F3 CKDSX LOX ERDSW BUSY RETURN TO CALL 30806170 
07CO 0 6200 Lox 20 30B05500 O7FD 6D0005E4 POSWX STX ML SCF - 30806180 _ . 
07C1 0 CcOoOoD LD NOLNE 30305516 OTFF 4C800011 BSC START MX = 30806190 | 
07C2 0 1800 RTE 16 30805520 * ‘ 30806200 
07C3 OQ COOoc LO BTLNE 30805530 0802 0000 ass ' 30306210 
O7C4 0 4027 BSI PROSW PRINT NO ALIGN ERROR 30B05540 0802 0 1000 TIMEX OC 41000 COUNTER 30806220 
O7CS O TOE3 MDX ROITO 30805550 0803 0 0002 EMESG OC 40002 WORD COUNT 30806230 
| te 30805560 0804 0 0000 DC /0000 HEX OuTPuT 30806240 | 
O7C6 01 440006F0 RDIT3 BSI RRDY . READER READY 30805570 0805 0 0000 oc /0000 MSG ID 30206250 
07C8 0 6802 STX ERRET 30805580 0806 0 0000 Oc 40000 ALPHA ADDR 30806260 
O7C9 01 4COCO7OA BSC FEED CONTROL READER 30805590 0807 0 0000 pc /0000 ALPHA AcCDR 30806270 
: & 30805600 0808 0 0000 DC 0000 DSWAS 30806280 
® 30805610 0809 0 0000. OC 40000 DSw S/B 30806290 
07CB 0 0000 ERRET DC /0000 RET TO READ IF SET 30805620 s 30806300 - 
O07CC O 0000 CORCT DC 40000 TAPE ALIGNMENT 30805630 ® 30806310 
07CD 0 0000 NIST OC /0000 * WORK AREAS 30805640 080A 0 0000 CARED DC 40000 CHARACTER READ - 30806320 
O7CE 0 FFOO KFFOO OC /FFOO 30805650 080B 0 0000 XCHAR OC 40000 PUNCH OUTPUT CHAR - 30806330 
O7CF O FFOO NOLNE OC /FFOO SHORT CHAN CHECK WD 30805060 080C 0 0000 LCHAR DC 40000 PREVIOUS OUTPUT CHAR 30806340 
0700 0 90000 BTLNE DC. /0000 OPEN CHAN CHECK wD 30805670 080D 0 0000 LREAD OC /0000 PREVIOUS CHAR READ 30806350 
07D1 0 O1F4 TRIAL DC 500 ERROR COUNTER 30805680 O80E 0 0000 TPEAL OC /0000 30896360 
* 30805690 O80F 1 0890 DC ATAPE | 30806370 
0702 O01 C40005DE RDIT4 LD Swo 30805700 *ESEKEES SEEKS EEE KE SEKESESEEESEKESEESSE SEEKS ESESESS 30806380 
0704 0 1009 SLA 9 30805710 % * 30306390 | 
07D5 01 4C1007DA BSC RDIT69- BR IF NO REALIGN 303805720 & | 308064600 
O7D7 0 1007 SLA 7 30805730 * LOG MESSAGE ROUTINE 320806410 
0708 O DOFS ~S§To NLST 30805740 * 7 30806420 
0709 0 7007 MDX RDIT2 30805750 0810 0 0000 ~~ PTLOG OC ~- 0000 | ME | 30806430 
* 30B05760 0811 0 6911 STX 1 LGMS42 SAVE MESSAGE iD 30806440 
* 30805770 : | * 30806450 
O70A 0 6114 RDIT6 LOX 10014 PRINT OATA READ ERR 30B05780 0812 0 o8ll STD LGMS+3 SAVE ALPHA MESSAGE 30806460 : 
0708 O C030 LO LCHAR 30805790 | CESREESESEESERSEEKSESERTE GECHSEE ERSTE SEESES SSEREE 30806470 
O70C 0 FO2E EOR XCHAR 30805800 0813 00 44800013 PTLO6 BSI LOG * SC 30306480 
O7D090 O1 4C1807E3 BSt RDIT5 »+— BR IF BUF S/NB CNGD 36805810 0815 1 0821 oc LGMS ADDR OF MESSAGE & 30806490 
O70F 0 CO2A LD CARED | 30805820 0816 1 O8l1A DC PTLO2 BUSY RETURN ADDR~ #* 30806500 
O7EO 0 FO2C EGR LREAD 30805830 0817 0 0000 OC 70000 RUN % 30806510 
O7E1 0 4818 BSC - . BR IE ROR BUF CNGED 30805840 KEEKETHKKSEKEKKESSE TKESEKSEKVSEKSE SEEKS SEKKEEKSHSEESEKSG 30806520 
O7E2 0 ol115 LDX /0015 30805850 a 30805530 
O7E3 01 6600087A RDITS LOX WASSB 30805860 0818 O COFT LD PTLOG NORMAL RETURN 30806540 
O7E5 0 C025 LD XCHAR 30805870 0819 0. 7001 MDX FTLOl 30806550 
O7E6 O 1898 SRT 24% 30805880 081A 9 C005 PTLO2 LO LGMS1 BUSY RETURN 30806560 
O7ET O 1088 SLT 8 30805890 0818 O01 D4&0005E4 PTLO1 STO ML SCF | 30806570. 
O7E8 0 C021 LO CARED 30805900 0810 00 4C800011 BSC START 4X 30806580 
O7E9 0 4002 BSI . PRDSW 3 MC 30805910 | & 7 30806599 
* - 30805920 . 0820 0000 BSS E - 30806600 
O7EA 01 4C800793 RDITE BSC I ROIT Sx 30805930 0820 1 0813 LGMS1 oC PTLO6 30806610 — 
SEKKEKECKEREEKKKEKSEKKEKKKKEKSKEKS LEKKKKEKEKEKESKEK | 30805940 0821 0 o000 LGMS, DC 40000 WORD COUNT 30806620 
% | | | 30805950 0822 0 0000 OC “0000 30806630 | 
* | | 30805960 0823 0 o000n oC /0cC00 MESSAGE ID NUMBER 30806640_ 
* PRINT ERROR ROUTINE 30805970 0824 0 0000 > OC /0000 ALPHA ADDR 30806650 
6 30805980 . | 0825 0 0000 DC /0000 ALPHA ADOR : 30806660 
O7EC O 0000 PRDSW DC 70000 PRINT ERROR RTN ME 30805990 SSEHKSEKKEKEKS KEE KESEKKEKSE SE ECEKEESEKKOESSESKSEKSESS ~ 30806670 
OTEOD 0 6917 STX 1 EMESG+4+2 SAVE MESSAGE NUMBER 30806000 7 # 30806680 
w | 30806010 * TIMED DELAY ROUTINE 30806690 
O,EE QO O819 STO EMESGtS5 SAVE DATA WAS ¢ S/B 30806020 . * 30806700 
* 30806030 | 0826 0 0000 TIME OC 0000 SE 30806710 
O7EF O 10A0 SLT 32 SAVE ALPHA ADRS 30806040 0827 00 65001000. LOx £t1 /1000 SET UP COUNTER 30806720 
QTFO O 7200 MDX 20 | 30806050 | | 0829 0 6508 STX 1 TIMEX | 3 30806730 
O7F1 0 CAOO LoD 20 30806060 | a O82A 01 74FF0802 MDX L TIMEX,-) 30806740 
OTF2 0 0813 STD EMESG¢3 | 30806070 082C 0 7002 | MDX TIME] 30806750 
EKESKKESEEKEKEKE HE KS SEE KES EECSEKSESE KE EEESCEEESSEKESE 30806080 082D 01 4C€800826 BSC 1 TIME EXIT TIME UP SX 30806760 
DATE O2JAN66 O1MAY66 PROG ID 0308-4 - DATE O2JAN66 O1MAY66 frig © 7 7 PROG 10 0308-4 
41549u8 | PAGE 3;. i. EC NO. 415490 4154908 - s)he PAGE SA 


EC NO. 415490 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ‘PART NO. 2191232 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191232 
. | PAGE 6 | | nite PAGE OA 
PAPER TAPE REACER/PUNCH FUNCTION TEST PAPER TAPE READER/PUNCH FUNCTION TEST 
Ouzr 01 6600082A TIMEL LOX L2 TIME44 SET FOR REENTRY 39806770 0860 0 OOED OC 4O0EO 30807450. 
0831 01 6EOO05ES STX L2 MLSCFEl 30806780 O86E O OOFO OC /OOFO 30807460 
0833 00 4C€800011 BSC 1 START 30806790 O86F O OOFS OC /OOF8 30807470 
CHEESES SL EEREKEEK EERE EEEKSEEHKESEKEKEREE SE EE ERED 3080680U 0870 0 OOFC oC /OOFC 30807480 
* | 30806810 0871 0 OOFE oc /OOFE 30807490 
* BUILD NEXT CHARACTER 30806820 0872 0 OOFF oc /OOFF 30807500 
* ROUTINE 30806830 * 30807510 
© | 30805840 0873 0 0000 COUNX OC 40000 WORK AREAS 30807520 
0835 9 0000 MARK OC 4/0000 SE 30806850 0874 0 0000 KOUNX OC 40000 30807530 
0836 O CO0D4 LD XCHAR SAVE LAST CHARACTER 30806860 EKKKESKESRESEE SKESEREESEESSEEEESEKEREVES ES EESES 30807540 
0837 O 1808 SRA 8 30806870 * 30807* 50 
0838 0 1008 SLA 8 30806880 + | 30807560 
0839 0 DOD2 STO LCHAR 30806890 * ADDRESSES FOR RETURN TO 30807570 . 
* 30806900 * MAINLINE AFTER INTRPT 30807580 
083A OO 65000001 LOX t1 1 INIT TEST XR1l 30806910 C875 1 O672 SORTS OC RINLA ROUTINE 1 30807590 
083C 00 66000000 DULP LUX L2 0 XR2 30306920 0876 1 0679 Oc RTN2ZA ROUTINE 2 30B07600 
O83E O1 4E800866 BSC I2 WHAT GO BUILD CHARACTER 30866930 0877 1 0683 OC RTN3A ROUTINE 3 30807610 
* 30806940 0878 1 0699 DC RINGA ROUTINE 4 30807620 
0840 01 CS5O0086A NRIPX LD Ll BITSX START NEW RIPPLE 30B06950 0879 1 O6CC oc RTN5SA ROUTINE 5 30807630 
0842 0 DpD0C8 STO XCHAR * PATTERN 30806960 * 30807640 
0843 0 6201 LOX 21 30806970 * ALPHABETIC MESSAGE 30807650 
03844 0 7010 MDX EXITX 30806980 * STORAGE AREAS 3CB07660 
ae * 30806990 * 30807670 
0845 0 COC5 SRIPX LD XCHAR SHIFT RIPPLE PATTERN 30807000 O8T7A 0000 BSS E 30807680 
0846 0 1001 SLA l 30807010 O87A 0 0060 WASSB OC AWAS 30807690 __—_—stw 
0847 0 O0C3 STO XCHAR 30807020 Oo878 0 0054 OC ASB 30807700 
0848 Q 4820 3SC z SKIP NEXT CH NO BITS 30807030 os7c 1 0882 RNRDY DOC ARDOR 30807710 
0349 0 7018 MDX EXITX | 30B07040 0870 0 0048 oc ANRDOY 30807720 
084A 0 6202 LOX 22 : 30807050 O87E 1 oO8Bsc PNRDY DC APCH 30807730 
0848 0 COLE LD BITSX PLACE ALL BIT CHAR 30B07060 O8TF 0 0048 DOC ANRDY ' 30807740 | 
O034C O OOBE STO XCHAR . 30807070 « 0680 1 0882 ROR OC ARDR 30807750 
0840 0 6925 STX 1 COUNA 30807080 0881 1 0886 DC AERR . 30807760 
* 30807090 : * . 30807770 
O84E 01 T4FFO8T3 BARX MOX kL COUNXe-1 SKIP WHEN COUNX GO O 30807100 0882 0 6200 ARDR OC 46200 ROR ERROR 30807780 
0850 0 7011 . | MOX EXITX ; 30807110 0883 0 3200 OC 43200 .30807790 
0851 0 6200 LDx 20 30807120 0884 0 6200 oc 46200 308076800 
0852 0 7101 MDX 11 30807130 0885 0 FFFF Oc JFEFF 30807610 
0853 0 6920 STX 1 KOUNX . 30807140 * 30607820 
0854 01 74F 80874 MOX bL KOUNX.-8 SKIP EXCEPT END RIPPE 30807150 0886 0 36C0 AERR DC 43600 308078360 _—=Csw 
0856 Q 7001 MDX ENRIX BR TO END RIPPLE ROUT 30807160 0887 0 6200 DC 46200 30807840 
0857 0 TODA MDX EXITX - BR TO EXIT 30807170 0888 0 6200 DC 16200 30807850 . 
| ¢ 30807180 0889 0 5200 oC 45200 30807860 
0858 0 6203 ENRIX LOX 2 3 END RIPPLE PATTERN 30807190 088A 0 6200 OC 76200 30807870 
0859 0 7008 MDX EXITX 30807200 088B O FFFF OC CFEFF 30807880 
* 30807210 * 30807890 
085A 0 C018 ALLBX LD COUNX ALL CHARS PATTERN 30807220 Ossc 0 5600 APCH DC 45600 PCH 30807900 
0858 0 DOOAF STO XCHAR 30807230 . 0880 0 1€00 DC 71€00 30807910 
085C 0 800E A ONEEX ADD ONE I. Ee 0100 30807240 O88E 0 2600 DC 42600 30807920 
085D 0 DOLLS STO COUNX 30807250 O88F O FFFF oC /F FFF _ 30807930 
O85E O01 4C€200862 BSC L  EXITXs2 30807260 * a 30807940 
: * 30807270 0890 0 9C00 ATAPE OC /3C00 TAPE ALIGNED 30807950 
* 30807280 0891 0 3C00 DC /3C00 30807960 
0860 0 6101 LDX 1 il REINITIALIZE 30807290 0892 0 5400 DC 45400 30807970 
0861 0 6200 LOX 2 0 30807300 0893 0 340C OC 43400 30807980 
0862 0 6908 EXITX STX 1 OUILP-1 30807310 0894 0 2100 DC 42100 30807990 
0363 0 6AD9 STX 2 DULP+}l | 30807320 0895 0 3C00 oc 43C00 30808000 
086% O1 4€800835 BSC I MARK EXIT SX 30B07330 0896 0 5C00- DC 45C00 30808010 
* 30807340 0897 Q 2000 Oc 42000 30808020 
* | 30807350 - 0898 0 1400 DC 41400 30808030 
0866 1 0840 WHAT OC NRIPX RECORD CONTROL ADRS 30807360 0899 0 7400 DC 17400 30808040 
0867 1 0845 DC SRIPX : 30897370 089A 0 3400 DC 43400 30808050 
0862 1 O84E OC BARX 30807380 0898 0 3000 DC 43000 30808060 
0869 1 O85A OC ALLBX 30807390 089C 0 FFFF DC /FFFF 30808070 
 £ | . 30807400 * 7 ; 30808080 
* 7 30807410 ss CEEKKEESESES SEES KE SH SKEESE SESE SCSHKERESTERS SEEKERS 30808090 
O86A O FFOO BITSX DOC /FFOO CHARACTER PATTERN 30807420 | 089D 00 44800015 TEND BSI I END END PROGRAM * SC 30808100 
086B O 0100 ONEEX OC . 40100 #@ CONSTANTS | 30807430 ~— O89F 1 050C OC PID : * 30808110 
086C 0 OO0CO DC /00CO 30807440 — | , i | EOKSSK ESE KESESKES SEKKHSE SEEK ESEKESSEHESSESEEESEESSSE 30808120 
DATE O2JAN66 O1MAY66 PROG ID 0308-4 a DATE O2JAN66 O1MAY66 . | ; PROG ID 0308-4 
EC NO- 415490 4154908 PAGE 6 415490 4154908 3 . PAGE 6A 


7 - - | | | | 
cj oe LC — a ™~ \ Ne ae cs Ree. N oe * L mm . oe) Ses, Me : s ie - Re Ne meat ee KO Sou. x eoNe 2 7 
18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEH PART NO. 2191232 7 £2 IBM MAINTENANCE DIAGNOSTIC +29GRAM FOR THE 1130 SYSTEM  —~ , ie 2191222 


PAGE 7 | 


PAPER TAPE READER/PUNCH FUNCTION TEST | PAPER TAPE READER /PUNCH FUNCTION TEST. 


O8AO0 0622 END - PTBGN | 30808130 , | CROSS REFERENCE LISTING 
SYMBOL VALUE REFERENCES 
ADSCT 0058 0000 
AEND 0037 0000 
AERR 0886 0881 
AINT 0044 0000 
AIVD 0036 0000 
ALD 003E 9000 
ALLBX 085A 0869 
ANINT 0041 0000 
ANRDY 0048 0000+ 0870, 087F 
APCH 08sc O87E 
AQ5SA 0019 
ARDR 0882 087C,0880 
ARDY 004C 0000 
ASB 0054 0000,0878 
ASCT OOSA 0000 
ASWS 0050 0000 
ATAPE 0890 Ou0F 
AWAS 0060 O87A 
BARX O84E 0868 
BEGIN 0019 0000,0622 
BITSX  O86A 0840,084B 
3SYES 0770 0617 
BTLNE 0700 074A,0786,0788,07C3 se, J . 3 ~ 
BUMRQ O6S5E 0610,0768 | 7 * _ a 
CARED 080A 0695 507489075420798,07B7,C TBA oOTDF yOTES | . 
CKDSX O7F8 O7F6 | 
Ccorct O7CC C64D,079C,C785 
P COUNX 0873 084D,084E,C85A,085D 
CRASH 06CD 0672 5067ByCE85,06D3 
OINEL 0760 0603 
DINE2 0765 0608 
DINE3 O76E O76A 
DINE4  O76F 0764%,076D 
DINES oO771 071A,0730,0741,075F 
DINE6 0775 0615 
| DINT OSFS 0661 
DINT1L  OSFB 0613,0718,C71D 
DINT2 0606 0611 
: DINT®  060€ OS5FE 
OSWAS 0755 C&DE y06E 8, COF 8,0 702 | 
DSwBY 0753 07135071 79072990 72D, 0739 073£s 07 TF y 0786 
! DSWOL 0662 OSFB,0600 
DSWID 0663 OSFD,0606 
| DOSWIT. 065D O5SEA, 0607297580 760,0765 
| DSWRX O74F 072F 
DSWR2 0740 | 0719,0782,0789 
| OSWX2  O74E 0740 
5 OULP 083C 0643»0646,0862,0863 
| EMESG 0803 05A7,06AB8yC7EDsOTEEs OTF 2 9OTFS 
END 0015 0000,C890 
| ENRIX 0858 0856 
| ERDSW  O7F3 O7FB 
ERLOP O7F8 O7FT 
| ERRET O7CB 068C »07772C77B,07C8 
* ERROR 0012 0000,07F3 
| ETRAP 0018 0000,061C | 7 
EXITX 0862 08440849, 08500857 50859 ,085E 
| FEED O70A 0677,07C9 | 
HALT 0014 C000 
: HANDL 065F OSED 
; ILCRP ©0030 ocoo 
a ILIR 0036 0000 8 
Pa ILPAT 0032 0000,061E,070F 5072450736 
ILO 0028 ~ 0000 , | | 
— IL1 0029 0000 
DATE O2JAN66 O1MAY66 | PROG 1D 0308-4 We Sas oh DATE O2JAN66 O1MAY66 -* s | PROG 10 0308-4 
7 a ae EC NO. 415490 4154908 ~~ —_ PAGE | TA. 


EC NOe 415490 41549UB PAGE 


iat o ree Pale ys = ” te Fi oo Beene — ee ete peal es ae Apes y * 
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PAPER TAPE READER/PUNCH FUNCTION TEST 


IL2 
IL3 
IL4 
INTED 
INTEY 
KFFOO 
KOUNX 
LCHAR 
LGMS 
LGMS1 
LOG 
LOGBY 
LREAD 
MARK 
MGR 
MGRI 
MLSCF 
NIPES 
NOLNE 
NRIPX 
N1ST 
ONEEX 
PUSAX 
PID 
PINTL 
PINT3 
PNRDY 
POFF 
POINT 
PRDSW 
PTBGN 
PTIL2Z 


PTLOG — 


PTLOL 
PTLO2 
PTLO6 
PUNH 
RASH 
RDIT 
ROITD 
RDITE 
ROIT2 
ROITS3 
ROIT4 
ROITS 
RDIT6 
ROR 
READ 
REQST 
RID 
RMASK 
RNRDY 
ROFF 
RQKB 
RQTY 
RROY 
RSTKB 
RTCON 
RT™N1 
RTN1A 
RTNLI 
RTN2A 
RTN2ZI 
RTN3ZA 
RTN3I 
RIN 
RTNGSA 
RTN4I 


DATE 


EC NOe 


002A 
0028 
002c 
0664 
0667 
O7CE 
0874 
080C 
0821 
0820 
0013 
0016 
080D 
0835 
0631 
0633 
O5E4 
0756 
O7CF 
0840 
O7CD 
0868 
O7FD 
050C 
0617 
0615. _ 
O87E 
0751 
O5SE7 
O7EC 
0622 
0625 
0810 


0816 


OB1A 
0813 
0731 


0603 


0793 
CTA9 
OTEA 
0781 
O7C6 
0702 
O7ES 
O7DA 
0880 
0796 
O6AF 
O50D 
OT4A 
os7C 
0750 
0034 
0033 
O6FO 
0017 
0655 
066D 
0672 
066A 
0679 
0674 
0683 
0670 
0690 
0699 
0687 


O2JAN66 
415490 


0000 
0000 


. 0000 


O5F8,C5FC, C6080 T6F 

C5EB, OSEF , 05F 120 70820720,0732,0756,075C,077D 
O7AB . | Saye Me | 
0853,0854 

0708 ,0839 ; 

0811,0812,0815 

O8l1A 

0000,0813 

0000 

0795,C7EO 

0660 ,0674,067D,0 864 

C5E3,062C 

C649 ,C693,06BD,06C2,0601 
0619,062E,U78F ,07FD,081B,0831 
O5F5 , 
O7AC,07B89,C7B8B,07Cl 

0866 

C62A,079F,C 781-0708 

ossc 

C6DB -O6F5,CT7FA 

0624 ,0633,0635,063A, 089F 


O5F 7,0605,C60D 


05F3,0601,0609 

CoE 

06E9,073F . 

0620 | | 
06A9"06EBsC70520773,078D,071C4,07TES,CTFS 
O8A0 | : & 3 
O5E2,062F 
06082,07A2,0818 

C819 | 

0816 

0820 

0670,06CA 

0600 | 
0679,0683eCT7EA 

o7C5 : 
C79E,0780 

C79A,0709 

O7BE 

O7B2 

070D 

0705. " 

C6A5,06B0 


/~—6CTITCc 


06B8 

C6324063A,_063B 2063F,0775 
0668,06F9,0780 

O6FD 

C703,C718,075A,0787 

0000 

0000 
05 76,0680,0696,06F 3,06FA-0709.07C6 
0000 

0640,0653 

0673 

0875 

C655 

C876 

0656,06T7C — 

0877 

C657,0686 

06A2,06BA 

C878 

C658 


O1MAY66 
4154S0B 


PART NO« 
PAGE 


PROG ID 
PAGE 


2191232 


0308-4 
7 8 


¢ 


(Yl 


eT ce me ee ap te 


2 


=e 


415490 


PAGE 


! | 

\ 7 Me ( i Ney Mecas \ ; Soe \ ( 7 wae ail 
18M MAINTENANCE DIAGNOSTIC PRCGRAM FOR THE 1130 SYSTEM | PART NOe 2191232 
3% _ 27 re ek PAGE BA 
PAPER TAPE READER/PUNCH FUNCTION TEST 
RT™NS O6BF 06CC 
RITNSA O6CcCc C879 
RINS]I 06BB 0659 
SINT OSEF 065F ,0660 
SORTS 0875 | O778 
SRIPX 0845 — 0867 
START 0011 0000,07FF,C810,0833 
SVKB 0035 0000 
SWCMP 065C 0636,C692,06Cl1 
SwO O5DE 0626,06ADs 06B86,0697,06F1,07A3,0TAT,OTD2 
Swl O5DF 0635,0687,C690,0688,06BF 
SW2 OSEO 
Sw3 OSE] 06C4 
TEND o8s9D 065A,065B 
TIME 0826 05B4 y06ED,C707,0714,072A,0738,082D 2 C82F 
TIMEX 0802 0829-082A 
TIME] O82F 082C 
TPEAL O80E O7Al | 
TRIAL O7D1 06£1,07AFeC7BC 
WASSB O8TA O7E3 
WHAT 0866 O83E 
WRECK 0605 064A,066C ,eC6CE 
XBSE O78E 0784 
XdSVX 0791 O6l1A 
XCHAR 0808 06 BE »069D,06C 7,0 742,079 7,0 7TDC »07ES, 083650842 90845, 

0847,084C,C85B 

XFEEO 0718 0681,06S7 
X1OFD 0746 0711,0727 
XIORR 0748 0699,C796 
XxITOSO 0744 05E8,06A0,0600,06F 7,0712,0728,90739 
XI OXX 0742 0726,C0738 
XT 0620 06140 70D0,C722,073%4 
XKROY 0606 CO6F » 067F 5069520609, 0609 ,06E0,06EF 
XMASK 0748 0669,06DF 
DATE O2JAN66 O1MAY66 PROG ID 0308-4 
EC NO. 4154908 8A 
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1132 PRINTER FUNCTION TEST 


PARAGRAPH 

le FURPOSE. «© © © © e@ &s @ oe ow co 

2e PREREQUISITES. «© © «© © we o wo 
2el PROGRAM 


36 USE PROCEDURE. @ eo @ e ee @® @ e 


3-1 © LOADING 

322 OPERATION 
3.3 TERMINATION 
324 RESTART 


4e PRINTCUTS. eeee e288 e 8 @ 


S. COMMENTS e ee e ® eo oe e@ ® e © 


Sel DETAILED DESCRIPTION OF 
be APPENDIX ea @ t ) oe e @ @ e@ e e e @ @ t e @ e @ @ @e e 
6.1 SAMPLE PRINTOUTS 
belel ROUTINE S PRINTOUT 
6ele2 ROUTINE 6 PRINTOUT 
DATE O2JAN66 OIMAY66 O21JUL66 


FOR THE 1130 SYSTEM 


OF ConTENTS 


ROUTINES 


EC NO. 415490 | 4154908 415490C 


PART NO. 2191222 
PAGE 1 


PAGE 
O1A 


O1A 


O1A 


03 
O3A 


05 


PROG ID 030C-¢ 
PAGE i 
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ty 


a) iD 


#8 8 ww 


2 Oo a 9 
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ny 


re 
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as 


™ 
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e . 


‘we 
8S TERR A ONE sm 
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S A Lo = os ae i a eee as eg 
IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 
PAGE 


1132 PRINTER FUNCTION TEST 


1. plinpoSe 


TGC FPROVICE A CHECKOUT GF ALL PRINTER FUNCTIONS. ALL TESTS ARE CONDUCTED 
UNDER CONTROti OF THE OIAGNOSTIC MONITOR. HENCE. THE PRINTER FUNCTIONS CAN BE 
PERFORMED EITHER ALONE OR WHILE OTHER 1/0 DEVICES ARE OPERATING. (OVERLAP). 


2e PRERECUISITES 
21 PROGRAM 


THIS PROGRAM LNADS AND IS RUN UNDER CONTROL OF THE 1150 DIAGNOSTIC 
MONITOR. 


AN 1132 CARRIAGE TAPE 1S NEEDED IN ORDER TO RUN ROUTINE 4. ORDER 
PART NO 2191276, OR IF DESIREGs, TG MAKE THE TAPE- 


1. CUT T*PE TO LENGTH OF 66 LINES. 
2- PUNCH CHANNEL. IN LINE 1 
| IN LINE 9 
IN LINE 17 
IN LINE 25 
IN LINE 33 
IN LINE 413 
IN LINE 49 
IN LINE 57 


NOW PWN = 


pu 


3- USE PROCEDURE 
3el LOADING 


THIS PROGRAM FOLLOWS THE LOADING PROCEDURES ESTASLISHED BY THE 1130 
OLAGNOSTIC MONITOR. REFER TO De Mo DOCUMENTATION. 


3.2 OPERATION 
3.2.1 PROGRAM EXECUTION 
A. LOAD AND GO MODE 


ALL ROUTINES WILL BE EXECUTED WITH NO OPTIONS | 
ALL DcTECTED ERRORS WILL BE IDENTIFIED BY AN ERROR TYPEOUT. 


B. SINGLE PROGRAM AND OVERLAP MODE 


AFTER PROGRAM !5S LOADEC, THE MONITOR WILL aide 
TO ALLOW OPTIONS TO SE SPECIFIED. 


1. SPECIFY DESIRED OFTIONS AS INSTRUCTED IN SECTION 3.202. 
7 IF NO OPTIONS ARE DESIRED, NO ENTRY IS REQUIRED. 


2. TO START EXECUTION - EXECUTE MODE MUST BE SPECIFIED 
SET BIT SWITCHES FOR DESIRED MODE 
SW. SETTING CONTROL 


0080 - EXECUTE WITH NO OPTIONS 

0082 HALT ON ANY ERROR 

0084 BYPASS ALL ERROR PRINTOUTS 

0088 LOO” ON ERROR 

008C LOUP ON ERROR AND BYPASS ALL ERROK PRIPTOUTS 
0090 LOOP ALL PROGRAMS 

0092 LOOP ALL PROGRAMS AND HALT ON ERRORS 


PRESS INTERRUPT REQUEST KEY 


DATE OLZJANE6 O1MAY 66 OLJUL 66 | ; PROG ID 
EC NO. 415490 4154908 415490C . ; PAGE 


2191222 
1A 


—020C-2 
1A 
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1132 PRINTER FUNCTION TEST 


PROGRAM OPTIONS 


PART NO. 2191222 
PAGE 2 


THE OPERATOR MAY MODIFY THE EXECUTION OF THE PROGRAM ANY TIME SEFORE 


OR AFTER IT HAS STARTED EXECUTION BY ENTERING PROGRAM CONTROL OPTIONS 


CR ROUTINE SELECTION OPTIONS. “,-* 


A. FROGRAM CONTROL OPTIONS 


1. TO SELECT PROGRAM OPTIONS SET BIT SWITCHES AS INDICATED 


SW. SETTING CONTROL 


ocoo 
ocol 


RESET ALL CONTROL OPTIONS 


THEN PRESS INTERRUPT REQUEST KEY.) 
oc 20 LOOP AN 1132 ROUTINE 
2- PRESS INTERRUPT REQUEST KEY. 
8. SPECIAL OPTIONS 
2- LOCK ON PATTERN 


IN ROUTINES 5 AND 6-¢ THE OPERATOR 

CAN LOCK ON ANY PATTERN tN THAT 
ROUTINE BY SPECIFYING THE START 
CHARACTER FOR THE LINE. 

FOP ROUTINE S,THIS WILL RESULT IN 

A RIPPLE PATTERN THAT OOES NOT ROTATE. 


TO SPECIFY CHARACTER ,SET SWITCHES 
TO 8CXX WHERE XX IDENTIFIES THE 
CHARACTER AS FOLLOWS - THEN PRESS 
INTERRUPT REQUEST. 


XX CHARACTER 


01 
02 
03 
04 
05 
06 
o7 
06 
09 
OA 
e} 
oc 
oD 
OE 
OF 
10 
ll 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
18 
ic 


OZEVFKAU*#*nNF ml we of MRHEDDWAWTAWNAWNE 


O1JUL 66 
— 415490C 


OLMAY66 
4154708 


O2JAN66 
415490 


DATE 
EC NO. 


pee get es Rl : 
pre mcm eet emg RO: AN RN oy me! ant aA Cm ne prec tin nS ate nl he _ 
* . Soke co tt ern en eye ge NAS Det eM 


HALT 1132 PRUGRAM (TO START AFTER HALT, 
SET SWS TO DESIRED CONTROL OPTION OR OCOO, 


eat OE 


PROG ID 


030C-s 
PAGE 2 


Q 
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3-3 


DATE 
EC NO. 


O2JAN66 
415490 


XX CHARACTER 


10 
1€ 
1F 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
28 
2c 
20 
2€ 
2F 
30 


“€CauvearTFNEOwsrPn<xComMmaov 


3e MODIFY SPACE TIMING 


IN ROUTINES 5.5 AND 7,THE PROGRAM WILL 
NORMALLY WAIT 36 IFOLES BEFORE 

GIVING A SPACE COMMAND. THIS CAN 

BE INCREASED OR DECREASED DY SETTING 
THE SWITCHES TO CCXX,»WHERE XX IS A 

HEX NUMBER EQUAL TO THE DESIRED 

NUMBER OF IDLES. 


C. ROUTINE SELECTION 
EXECUTION WILL START WITH THE SELECTED ROUTINE. 
1. YO SELECT ROUTINE OPTIONS SET BIT SWITCHES AS INDICATED 


SW. SETTING ROUTINE 


4COl EMIT SEQUENCE AND DSW TEST 
4C02 PRINT SCAN INCOMPLETE TEST 
4C03 SPACE TEST 

4C04 SKIP TEST 

4C05 ROTATE PATTERN 

4C06 PRIN” ALL CHARACTERS 

4COT FAST PRINT 


 2e PRESS INTERRUPT REQUEST KEY. 
TERMINATION | 


IF THERE ARE NO "LOOP* CONTROL OPTIONS SELECTED, THE PROGRAM WILL 
TERMINATE AFTER ONE PASS. IF OPTIONS TO LOOP HAVE BEEN SELECTED, 
THE PROGRAM MAY BE TERMINATED BY. 


le REMOVE LOOP OPTIONS AND ALLOW NORMAL TERMINATION. 
oR . 
2e SET ENTRY SWITCHES TO 400C AND PRESS THE INTER. RQ. KEY. 


e- 


O1MAY66 
4154908 


O1JUL66 


415490C PAGE 


PROG 1D 030C-s 
aa 














EC NO. 


IBM MAINTENANCE DIAGNCSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191222 
3 


PAGE 
1132 PRINTER FUNCTION TEST 


34 RESTART 


TO RESTART THE PROGRAM. 
1. SET SWITCHES TO 408C. | 
2e PRESS INTERRUPT REQUEST KEY. 
3- SET SWITCHES TO 0080. 
4. PRESS INTERRUPT REQUEST KEY. 
NOTE 


DEPENDING ON HOW THE PROGRAM WAS TERMINATED, THE 
LAST TWO STEPS MAY NOT BE REQUIRED. 


4- PRINTCUTS 
ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN OORR _—s«X( MESSAGE? 
OR 
EPPNN OORR (MESSAGE? 


WHERE A IDENTIFIES STATUS MESSAGES 
—€ IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF TIE PROGRAM CAUSING THE MESSAGE 
NN IS THE MESSAGE SEQUENCE NUMBER 
PR IS THE ROUTINE NUMZER 
MESSAGE IS ANY VARIABLE INFORMATION 


4.1 NOPMAL PRIMTOUTS 


OSW 
AOCcGl OORR XXXX NRDY 


BIT 5 ON IN DSW. NCRMALLY TURNED ON 
_ BY FORM CHECK OR PRINTER NOT READY. 


AOCFF OCRR END 


THE PROGRAM HAS TERMINATED. 
TO RESTART, SEE SEC. 34. 


(4e2 ERROR PRINTOUTS 


On 


EOCO4 OORR | -XXXX NO INTRPT | | 
THE FIRST READ EMITTER INTERRUPT AFTER A *START PRINTER® COMMAND DID 
NOT OCCUR. : 
Dosw 
EOCOS OORR XXXX NO INTRPT 


SKIP RESPONSE INTERRUPT DID NOT OCCUR. 


DSW 
EOCOé OORR XXXX NO INTRPT 
SFACE RESPONSE INTERRUPT DID NOT OCCUR. 


DSW EMIT EMT 
WAS S/B 
EOCO?T OORR XXXK XXXX XXXX INVLD EMIT WAS $/8 
INCORRECT CHARACTERS EMITIED. SEE NOTE UNDER EOCO9 FOR 
RECOMMENDED ACTION. 


DSW 
EOCOS OORR XXXX NO INTRPT 
THE FIRST READ EMITTER INTERRUPT OCCURED AFTER A *START PRINTER® 
COMMAND, BUT ONE OF THE LATER READ EMITTER INTERRUPTS WAS LOST. 


O1JUL66 PROG IO 


O2JAN66 : | 
415490C | | PAGE 


415490 


DATE O1MAY66 
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1132 PRINTER FUNCTION TEST 


EOCO9 OORR OR RULE inven emit 
PRINTER STARTED. FIRST EMIT CHARACTER WAS NOT VALID. 


NOTE. IF THIS ERROR PERSISTS, ENTER 0084 IN SWITCHES. THIS WILL 
BYPASS ERROR TYPEOUT. THE PRINTER WILL THEN PRINT, AND IN 
RNUTINES 4 AND 5; ANY LINE BEGINNING WITH AN INVALID 
CHARACTER WILL BE SKIPPED. 
DSW CHAN 
EOC10 OCRR XXXX XXXX CHANNEL 


EXPECTED CARRIAGE CHANNEL @IT DIN NOT APPEAR IN OSW. MUST USE 
CORRECT CARRIAGE TAPE TO AVOID THES ERROR ON A GOOD MACHINE. 


OSW 
EOC1I2I OCRR XXXX INVLD DSW 
INCORRECT OSW. PRINTER SHOULD EE OFF WHEN THIS DSW IS SENSED. THE 
CORRECT (;5W SHOULD BE OOXX, WHERE XX IS CHANNEL CONTROL BITS. 


O3W OSW 
WAS S/B 
FOCI2 OCRR XXXX XXXX INVLD DSW 
ERROR IN OSW FOLLOWINS INTERRUPT. THIS DSW IS SENSED IN THE 
INTERRUPT ROUTINE, AND AT LEAST ONE RESPONSE BIT SHOULD BE ON. 


A B 

€OCI3 OCRP XXOO XXO00 EMIT ERROR 
THIS ERROR WILL OCUR IF ANY EMIT BIT IS MISSING OR ALWAYS ON. 
MOOIFIERS A AND & IDENTIFY THE BIT OR BITS IN ERROR. MODIFIER A . 
SHOULD BE FFOC IF NO EMIT BITS ARE MISSING. A MISSING BIT WILL BE 
IDENTIFIED BY AO IN BIT POSITION OF MISSING BIT. MODIFIER B 
SHOULG BE 0000. ANY EMIT BIT WHICH IS ALWAYS CN WILL BE IDENTIFIED 
BY Al IN THE BIT POSITION OF THE EMIT BIT IN ERROR. 


Se COMMENTS 


Sel THE FOLLOWING IS A MORE DETAILED DESCRIPTION OF EACH ROUTINE. 


IOLE THE PRINTER FOR 100 READ EMITTER INTERRUPTS. 
ERROR DETECTION- 


ROUTINE O12 


le LOSS OF aN INTERRUPT 
2. EMITS OUT OF SEQUENCE ~ 
"3. INVALID CHARACTER FOR FIRST EMIT 
4. DSW INCORRECT AFTER AN INTERRUPT 
IDLE THE PRINTER FOR 100 READ EMITTER INTERRUPTS. SET 
BIT 15 TO ZERO IN STORAGE LOCATION 0027 WHICH WILL FORCE A 


*PRINT SCAN CHECK®. 
ERROR DETECTION - 


ROUTINE 02 


1. LOSS OF AN INTERRUPT 
2- EMITS OUT OF SEQUENCE 
3e INVALID CHARACTER FOR FIRST EMIT 
4. OSW INCORRECT AFTER AN INTERRUPT 
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1132 PRINTER FUNCTION TEST 


ROUTINE 03 


ROUTINE 04 


RCUTINE 05 


ROUTINE 06 


ROUTINE O7 


DATE 
EC :.0- 


O2JAN66 
415490 


SPACE THE CARRIAGE SO TIMES. THE PRINTER WILE NOT BE STARTED. 


le LOSS IF INTERRUPT AFTER EACH SPACE. 


2- ODSW INCORRECT 


START THE CARRIAGE AND CHECK THAT EACH CARRIAGE CHANNEL CAN 
BE DETECTED IN THE DSW. THE CARRIAGE IS STARTED 4ND STOPPED 
FOR EACH CHANNEL. - | 
ERROR DETECTION - 


1. LOSS OF AN INTERRUPT 
2. DSW INCORRECT 


PRINT 49 LINES IN A ROTATING PATTERN. CHECK THAT ALL OF THE 
CHARACTERS ARE EMITTED IN THE PROPER SEQUENCE 


THIS ROUTINE COMPARES THE EMITTER CHAKACTER WITH THE DESIRED 
CHARACTER ONLY FOR THE FIRST CHARACTER If EACH LINE. WHEN A 
COMPARISON IS FOUND, A ONE IS FLOATED ACROSS THE PRINT BUFFER 
— SHIFTING RIGHT ONE WITH EACH INTERRUPT RECEIVED. THE 
RIPPLE 1S THUS PRINTED IN EMIT SEQUENCE, 120 EMITS REQUIRED 
TO PRINT A FULL LINE} 

ERROR DETECTION - 

1. LOSS OF AN INTERRUFS 

2. EMITS OUT OF SEQUENCE 

3. INVALID CHARACTER FCR FIRST EMIT | 

PRINT ONE LINE OF EACH: CHARACTER. CONTINUE UNTIL ALL 
CHARACTERS HAVE BEEN PRINTED ONCE. 

ERROR DETECTION- 


1. LOSS OF AN INTERRUPT 


(2. EMITS QUT OF SEQUENCE 


3. INVALID CHARACTER FOR FIRST EMIT | 

FAST PRINT ROUTINE. (APPROXIMATELY 140 LINES PER MINUTED. 
PRINTS 100 LINES. THE ROUTINE IS USED TO EXPOSE MARGINAL 
ELECTRO/MECHANICAL PROBLEMS IN THE PRINTER. } 
ERROR DETECTION-= 

1. LOSS Of AN INTERRUPT 

2. EMITS OUT OF SEQUENCE 


3. INVALID CHARACTER FOR FIRST EMIT 
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1132 PRINTER FUNCTION TEST - ROUTINE 5 PRINTOUT 


1132 PRINTER FUNCTION TEST = ROUTINE 4 PRINTOUT 
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OLIUL66 
415490C 


OIMAY66 
415490B 


O2JAN66 
415490 


DATE 
EC NO. 


tee: 


eo 


- Sag aaa ees eee Sort 


Ce Jeu 


re: 
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0000 


0010 
onl1 
0012 
0013 
0014 
6015 


0016 
OO17 
9018 
0019 


0028 
0029 
002A. 
0028 
o02c 
0030 
0032 
0033 
0034 
0035 
0036 


0037 
1038 
003E 
G041 
0046 
0n48 
004C 
3050 
0054. 
0058 
005A 
0060 


oSDC 
050D 
O5DE 
N5DF 
— 05E0 
OSE1 
OSE2 
053 
OSES 
—05E5 
05E4 
OSET 
0S5E8 
OSEA 


#sDJO39 0mPmoaondo0aoo 


O5SEB 9 
OS5SEC O1 
OSEE C2 
OSFO 01 


DATE 
EC NO- 


0C00 
6090 
9000 
0004 
0090 
onv2 
C5E9. 
CSFB 
000 
cnne 
anan 
FFFF 
44800010 
50C 


991 

acananesc 
650 005F8 
6DO00SES 


BEGIN 
START 
ERROR 
LOG 
HALT 
ENO 


LOGBY 
RSTKB 
ETRAP 
AQSA 


ILO 
Ill 
IL2 
IL3 
IL4 
ILCRP 
ILPAT 
ROTY 
RQKB 


—SVKB 
YLER 


AEND 


AIvod 


ANINT 
AINT 
ANRDY 
ARDY 
ASWS 


ADSET 


BSWl 
BSW? 
BSW3 


PST32 


N2JAN66 


415490 


PSTIN 
PSTDE 


STRT 


PRSET 


ra 


O1MAY66 
415% OR 


ORG 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQY 
ECU 
EQU 
EOU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
cQU 
EQU 


oC 
oc 
oc 
Nc 
oC 
DC 
DC 
OC 
oc 


oc 
oc 
BS! I 
oc 


oc 
XIO L 


#+1500 


16 
BESING} 
STAR T#1 
ERROR] 
L0G¢1 
HALT+41 


END+¢}) 

LOGS Y+#} 
RSTKBel 
ETRAP+1 


40 
ILOel 
IL 1¢12 
IL 2¢1 
IL 3¢] 
1.444 
ILCRE+2 
ILPATel 
RQTY+1 
RQKBe] 
SVKB8el1 


IL IR] 
AEND 446 
AI VD¢3 
ALD¢3 
ANINT+¢3 
AINT#¢7 
ANRDY+#1 
AR DY4+4 
ASWS#4 
ASB¢4 
AOSCT+2 
ASCT+#6 


/FEEF 
BEGIN 
PRPST 


1 
STPPT 


LDX £1 PROIA 
S7X LI PST32 


C1JULS6 
415490C 


PROG TRANSFER VECTOR 


INVLO 
Lo 
NO INTRPT 


_ INTRPT 


NRDY 
ROY 
Sws 
$/8 


SELCT 
WAS 


PRINTER DIAGNOSTIC 


PID 

ROUTINE 
PROGRAM CONTROL 

ROUTINE SELECTION 
SCAN START CHARACTER 
SPACE AFTER PRINT DLY 


INIT ADDRESS 


LOOP ADDRESS 
ENTRY SET IN MAINLINE 

IN INTERRUPT 

IN IDLE ROUTINE 


PST TABLE 


* 
-@ INITIALIZATION ROUTINE. 
s 


STOP PRINTER 





\ 
See" 


PART NO.j 


PAGE 


- 30€10000 


30C00010 
30C00020 
30C000 30 
30€00040 


30€00050 | 


30€00060 
30C00070 
39C0G080 
30c0009¢e 
30C00100 
30€00110 
30C€00120 
30€90130 
30€00140 
30C00150 
30C€C0160 
30C€00170 
30C00180 
30€00190 
30C00200 
30€00210 
30€00220 
30000230 
30€09240 
30€90250 
30C00260 
30C00270 
30C00280 
30€C00290 
30€00300 


-30€00310 


30C€00320 
30700330 
30C00340 
30€0N350 
30C00360 
30C€00370 
30C€00380 
30C00390 
30€00400 
30000410 


30600420. 


30C00430 
30000440 
30€00450 
30000460 
3C0C00470 
30€00480 
30C00490 
30C00500 
30C00510 
30C00520 
30CC0530 
30C00540 


~~ 30C00550 
30000560 


30C€00570 
30C005 860 
39€00590 
30C00600 
30600610 
30C00620 
30C0C630 


30000640 


30€00650 
30€00660 
30C00670 


PROG ID 


PAGE 
9 


2191220 
1 


030C-1 


a 


" 
\ 


‘ NL ¥ 


~~: 


a eas -~. ea mee a ie, Soeemesinamemaaet oes + ean ee 


Oo] 


0.90 9 0 0 


ree rem ee ree ee re erence enn gE ER neonate eee RneRaA ARN eee 


oY) 
90 Oo 0 0 090 0 G4 OO O 


Oo 989 90 90 9 0 9 


Oo: O -O 
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Oo 9 9 9 


2 9 9D 98 OO 


on 


eee te eet eee ee 


Soo oS ob s 


16 
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o 


O oO 


2099 9090000 0 
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‘OSF2 


OSF4 
O5F6 


05F8 
OSFA 
OSFB 
OSEFC 
OSFE 
0690 
0602 
0603 
060% 
0606 
C607 
0608 
0609 


O60A 
0608 
060C 


O60E 
0610 
0611 
0612 
0613 


0615 
0617 
0619 


0618 
061C 
0610 
O61E 
O61F 
0620 
0621 
0622 


0623 


0624 
0625 
0627 
0629 


062A 
0628 
062C 
062D 
O62E 


062F 


0630 
0631 


DATE 


: 


\ 
\, 


ol 
00 
ol 


00 


01 
01 
01 


oooooco°o 


ooo 
- 


oOo 23 
aad oat 


=) 
> ] 


o° 
=? pe 


eocscoooe°o°0o 


0 


-mW~oOsos9090 
pan 


fat Ont pd pad pad fed ped pmo 


eC NO. 


65000632 
60000029 
4C8005EB 


65000001 
6918 
6164 
600907AB 
CCOOOTAE 
OCOQ07AC 
6100 
690C ) 
6D0007A9 
6124 
6909 
4901 
T1008 


0000 
coDd2 
440407ET 


7400 050F 
700A 
cocc 
100A 
4CAS060A 


65000091 
74910616 
4080 0629 


coc3 
1090D 
189D 
DODA 
ONFS6 
1810 


“posD 


TOF2 


COBA 
1008 
4C2605F8 
44800015 
o50C 


OTF3 
O80F 
08s2E 
0840 
0889 
O8E3 . 
O91E 
0623 


O2JAN66 


415490 


& 


LMx tL} 


ST™xX Ll 
Bsc I 


PIRT 
IL1 
PR SET 


* START OF TEST 


* 
PROIA 


® 


LOX t1 
STx. 1 
Lox 1 
STK L2 
LoD L 
STD Lt 
LDx 1 
STX 1 
STX 11 
LDOxX 1 
STX 1 
BSI. 
MDX 


1 


CNl2+¢1 
100 
EMTCT 
ANDOR 
ANDES 
0 
BSW2 
CKESW 
36 
BSW3 
CNTRL 
CNI2 


FOR THE 1130 SYSTEM — 


SET INTERRUPT ADRS 


SET TO START 
AT 1ST ROUTINE 


SET EMIT CHECK CNT 
SET EMIT CK CONSTANT 
RESET CHAR SELECT 


RESET SPACE DELAY _ 
GO TO CONTROL RTN | 


* THIS ROUTINE CHECKS SWITCHES AND CONTROLS 


* 
CNTRL DC 9] 
Lo BSWO 
BSI CL STOP,E 
2 
CN10 MOX FL BSW1,0 
MDX CN14 
LO BSWO 
SLA 10 | 
BSC IY CNTRL»Z+ 
= 
CN12 LOX ti 1 
CN13 MDX LL CN1I2¢1,1 
BSC I1 RTTBL-1 
= 
CN14 LD BSWI 
SLA 13 
SRA 13 
sto PROIA¢1 
$sTo CNI2¢1 
SRA 16 
STO BSW) 
MOX CN12 
x 
* END OF TEST 
* | 
PREND LD BSWO 
SLA 11 
BSC LL PROIA,+2Z 
BSI I END 
DC PRPST 
& : 
* ROUTINE ADDRESS TABLE 
& 
RTTBL DC CE10 
DC csio 
oC SP10 
oc sc 10 
DC RRO 
DC AC 10 
DC AN10 
DC PREND 
< 
* CONSTANTS ANO STORAGE 
¢ : 
¢ 
O1LMAY66 O1JUL 66. 
415490C 


4154508 


* SEQUENCE IN WHICH TEST ROUTINES ARE RUN. 


LD CONTROL SWS 
CK FOR PROG STOP 


SKIP IF NO RTN 
SELEC TED 

LD CONTROL Sws 

CK FCR LOOP ON RTN 


RETURN IF LOOP 


RTN NN. SET HERE 
ADV RTN NO 
GO TO RIN 


LD RNT SLCT SWS 
STRIP OUT INVALIO 
SWITCHES 


RESET ROUTINE SWITCH 


LN CONTPOL SWS 
CHECK FOR LOOP PROGRAM 


EMIT SEQUENCE 
SCAN CHECK 
SPACE 

SKIP 

ROTATING PAT 
RTN6 ALL CHARACTERS 
RINT FAST PRINT 

END ROUTINE 


RTN1 
RTN2 
RTN3 
RTN4 
RTNS 


PART NOe 


PAGE 


30C70680 
30C00690 
30C00700: | 


30C007T10 


2131220 
1A 


30C00720 


30C007 30 
' 30000740: 


30C00T50 


-30C00760 


30CN0770 
30CC07 80 
30C00790 
30C00800 
30C00820 


30C008 21 


30€C00830 
30000840 


 30C06850 


30C00860 
30C008 TO 
30C0088C 


30C00890 | 


3000900 
30C00910 
3000920 
30€C0930 
30600940 
30€00950 
30CN0966 
30C€N0970 
3000980 
30600990 
30C01000° 
30001010 
30€01020 
30C01030 
30CO1L04N 
30C01050 
30C01060 


— 30C019070 


30C01080 
30€0.1090 
30€91100 
30C01110 
30€01120 
30001130 
30C01140 
30C€01150 
3001160 
30C01170 
30C011 80 
30COLIM 
30C01200 
30€02210 
30C0O1220 
30001230 
30001240 
30€01250 
30001260 
30C€01270 
30€01280 
30001290 


3001300 


30C01310 
30€01320 


30€01330 


30001340. 
30C€01350 


PROG 10D. 
E. 


PAG 


030C-2 
) A 




















oe a oo noes . 
| | 
= ee Suse 


ee 
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0632 0 
0633 00 
0635 Ol 
0637 01 
0639 01 
9538 G 

063C 01 
063€ Ol 
0640 Ol 
0642 Ol 
0644 01 
0646 Ol 
0648 Ol 
O64A Ol 
064C Ol 
064E O01 
0650 01 
0652 0 

0653 GL 
0655 0 

0656 Ol 
06568 0 


9659 O01 
065B Ol 
065D 0 
O65E O1 


0660 0 
‘0661 O 
06462 Q1 
C664 O01 
0666 0 


0667 O 
0668 O01 
Q66A 0 
0668 01 
066D Ol 
O66F 9 


0670 OL 
0672 O01 
0674 01 


0676 01 
0678 0 

0679 01 
0678 00 
Oo70 O1 
O67F O1 
0681 0 


0682 01 
0684 0 
0685 0 


0686 00 
0668 0 
0689 0 
068A 0 
0668 00 
0680 00 
O68F 00 
6691 0 
0692 00 


DATE 
EC NO. 


0009 

650005DC 
69000747 
CCOOU6E0 
74000749 
7012 

D40009EO 
E40006DT7 
F40006D8 
4C180N64E 
C40 009E0 
E40066)7 
D40009E0 
6500U9A4 
600007A9 
C40 009E0 
4€280659 
1001 

4C2806AD 
10G1 

4C 2806CF 
TOOE 


OCOOC6ES 
T40006DA 
704C 


44000786 


CO74 
D07% 
4C280676 
74F FO6D5 
7018 


1810 
040008DD 
08:1 
650°7 108 
T40006E2 
7002 


65000700 
6D0005E5 
4C800632 


74F FO6D4 
7600 

44000723 
65008200 
600006DB8 
C40005E1 
0053 


7T40006E2 
TOEF 
TOEA 


C4000027 
E057 
D054 
10A0 
6SOOFFFO 
S600FFFS 
C6600028 
18Cl 
D6000028 


0 
415490 


ceeooe 


* INTERRUPT ROUTINE 


* 


PIRT OC 


PIE 


PIA 


s : 
PIN 


PIS 


PI 


PI2 


P13 


P14. 


PI5 
PI6 


LOx 
STX 
X10 
MDX 
MOX 
STO 
ANO 
EOR 
83C 


to 


AND 
STO 
LOX 
STX 
LD 

BSC 


SLA 


BSC 
SLA 
BSC 
MOX 


x10 
MOX 
MDX 
BSI 


LO 

$TO 
BSC 
MOX 
MDX 


SRA 
sto 
X10 


LOX 


MOX 
MOX 


LeCx 
STX 
BSC 


MDX 
MUX 
BSI 
LOX 
STX 
LD 

STO 


MDX 


MDX 


MDX 


LD 

AND 
sto 
SLT 
LDX 
L 0x 
in 

RTE 
$TO 


O1MAY66 
4154508 


L1 
Li 


ror rrrrrrrrrrr re 


er 


Ll 
Ll 


t2 
L2 
L2 


L2 


G 

1500 
ICT 
DSW32 
CKESW,0 
PIA 
ERM4 
MSKL 
MSK2 
PIA,gt+- 
ERM4 
MSK1 
ERM4 
ERR12 
CKESW 
ERMS 
PINT,#Z 


1 
SKINT, #Z 
l 

SP INT» #Z 
PIS 


RDEMI 
STPRT 
PI8 

CKEMT 


IDLE 
IOLSW 
PI2,+Z 
IDLE »-1 
PI3 


16 
EMIT 
STPPT 


| $P2 


SENSE,0 
Ptl 


PRIN 
PSTIN 
PIRT 


SCNCT,-1 
PI4 
CLEAR 
48200 
MSK2 
BSw3 
IDLE 


SENSE,0O 
PI1¢2 
PIi-2 


39 
DSW32 
STSPA 
32 
-16 
=-8 

40 

1 

40 


OLJUL66 
4154 30C 


RE 
CHE 


SA 
MA 
CK 
BR 


MA 
ST 
SE 


BR 
BR 
BR 


GO 


CK 
BR 
CK 


CH 
SE 
BR 


SET INTERRUPT 
WAIT COUNTER 
CK DSW 


VE OSW 

SK BITS 7-15 
FOR GOOD DSW 
IF DSW OK 


SK BITS 7-15 
ORE OSW IN MESS 
T TO TYPE ERROR 


IF PRINT RES 
IF SKIP RES 
IF SPACE RES 
STOP PRINTER 


FOR IST EMIT 
IF 1ST EMIT 
EMIT SEQUENCE 


ECK FOR PRINT 
T TOLE SW 
IF PRINT 


DEC IDOLE CNT 


BR 


SE 
ST 
SE 


SE 


AD 
GO 
SE 
SE 


SE 
SK 


fF (OLE 


T EMIT TO ZERO 
OP PRINTER 
T FOR SPACE RETURN 


T MLSCF 


Vv SCAN CNT 

SHIFT BUFFER 
T BUFFER TO ZERO 
T MASK FOR 
NORMAL PRINT OSW 


T IOLE COUNT 
IP IF RTRN TO PRINT 


SAVE SCAN COMP 


Lo 
SH 


WORD TO SHIFT 
IFT BUT 


eee wee ee ee ih ad. - Be. aw we ee Om. . © 


é 


ew + owe - 


_~ 


etl 


PART NO. 2191220 
E 2 


PAG 


30C01360 


— 30€01370 


30C01380 
30C€01390 
30C01400 
30C01410 


30€01411 © 


30C01412 
30C€01420 
30001430 
30C01440 
30C01450 
30C01460 
30C01470 
30C01-760 
30C01490 
30C01500 
30C€01510 


30€C01520 | 


30C€01530 
30701540 
30C01550 
30C01560 
30CO1570 
30€01580 
30€01590 
30C01600 
20C€01610 
30C0 1620 
30C€C 1630 
30601640 


30€01650 
' 30€01660 


30C01670 
30601680 
30601690 
30001695 
30€01700 
30601710 
3001720 
30€01730 
30C01740 
30C01750 
30001760 
30C01770 
30C01780 
30001790 
30C01800 
30C01810 
30C01820 
30001830 
30C01840 
30C01850 
30C01860 
30C01870 
30C01880 
30C01890 
30001900 
30C01910 
30601920 
30C01930 
30€01940 
30001950 
30601960 
30€01970 
30C01980 
30601990 


30C0 2000 | 


PAG 


PROG ID 
€ 


030C-1 
2 


: fe, 


So OOo GS oe Oo Go oS 


ae) 


2 


Spa i ee ee ee eee ee 


Da 9 Oo FO Oo oO 2 


9900000060 0 


Sy 


oO VY Oo 


= 


re) 


- oe ee we ee ow eee wm ee ee we we wens 2 8 


\ | ; ( 
ens at Newt Me Nad ee 
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0694 
0695 
0696 
0697 
0698 
0699 
O69A 
0698 


0690 
O69E 
O6A0 
O6A2 
O6A3 
O6A% 
O6A6 
OGAT 
06A8 
0649 


O6AA 
O6AC 


oo See corse = oeooco0oco0d 3 


O06AD0 
O6AF 
0680 
0661 
06B3 
0665 
0687 
O6B9 
O6BA 
césC 
O6BE 
O6BF 
06C1 


qoooo0o0oo°cnoecsé 
ot ot ee et pat 


oo 
=~ 


06C2 
06C3 
06C4 
06C5 
06C6 
06C7 
06C8 
06c9 
O6CA 
06CB 
o06cc 
06CD 
Q6CE 


qooooo0oo0ocooooo 


O6CF 01 
06D1 0 


06D2 
06D3 
06D4 
06D5 
06D%5 
0607 
06D8 


ooooo0o0oo 


DATE 
EC NO-~ 


7101 
T00T 
7201 
TOOL 
TOEO 
61F0 
1090 
06000028 


C040 
ECO00027 
D4000027 
69E9 
GAEA 
740 1060C 
70cD 
61CF 
6933 
7OooCc 


44200748 
7005 


OCOO06ES 
1810 
0021 
6580087E 
C500C888 
04000001 
C40 009E0 
E019 
F50006C2 
4C2006BF 
6913 
65000868 
70B0 


0000 


.0080 


0040 
0020 
0010 
0008 
v004 
0000 
0000 
0002 
6000 
0000 
0001 


65000718 
TOAO 


0000 
OOF F 
9000 
0000 
09000 
FEOO 
2000 


O2JAN66 


415490 


MDX 
MOX 
MOX 
MDX 
MOX 
LOX 
SLT 
sto 


PI7 LO 
OR 
STO 
STX 
STX 
MDX 
MDX 
LOX 
STX 
MDX 

x 

PIs BSI 
MOX 

* 

* THIS IS 

& 

SKINT X10 
SRA 
sTO 
LOX 
LD 
STO 
LD 
AND 
EOR 
BSC 
STX 


SKiO0 LOX. 


MDX 


& 

SKCH OC 
oC 
oC 
DC 
DC 
DC 
oc 
OC 
DC 
oc 
oc 
OC 
pc 

* 

* THIS IS 


* 

SPINT LOX 
MDX 

+ 


11 DECREMENT WORD CNT 


PIT | 
21 ADV TO NEXT WORD 
#+] : 
PI2¢3 
1 -16 RESET SHIFT CNT 
16 
L2 40 SET NEXT WORD 
STSPA 
L 39 RESTORE SCAN COMP BIT 
L 39 
1 PI5¢1 SAVE XR1 
2 PI64+1 SAVE XR2 
iL STPPT,1 
PI1+2 
1 -49 PUT SPACE 
1 STPPT IN PATTERN 
PI4 
Lt FFE,Z IDENTIFY 1ST EMIT CHAR 
PI3 


THE SKIP INTERRUPT ROUTINE 


t STPCA 
16 
CCF | 
Il SCTM GET CHANNEL NUMBER 
Ll SKPT+8 AND PLACE IN XRl 
Loti 
tL ERM4 LO OSW , 
SKM MASK OUT FIRST 8 BITS 
Ll SKCH IF AC = 0, MATCH FOUND 
L SK109z NO MATCH, RETURN 
1 CCF 
Li Sc3d SET MLSCF 
PIl 
0 INVALID CHANNEL 
40080 _ CHANNEL 1 
40040 CHANNEL 2 
40020 CHANNEL 3 
40010 CHANNEL 4 
40008 CHANNEL 5 
40004 CHANNEL 6 
0 INVALID T 
0 : CHANNELS 8 
40002 . CHANNEL 9 
0 INVALID 
0 CHANNELS 
40001 CHANNEL 12 


THE SPACE INTERRUPT ROUTINE 


Ll SPRTN RETURN TO SPACE RTN 


PI: 


* CONSTANTS AND STORAGE 


© 
CCF OC 
SKM oc 
SCNCT OC 
TOLE OC 
IOLSW OC 
MSK1 OC 
MSK2 DC 
* 


OLMAY66 
#154S0B 


0 

/OOFF | 
0 SCAN COUNT 
0 IDLE COUNT 
0 IDLE SW 
/FE0O 

42000 


O1LJUL66 
415490C 


oe ies we “ 
f 
> , Lo 
s- 


! 

ee és oh 
Ale ple mt A. eile. i ee a Oe er tee 

3 


PART NO. 


PAGE. 


3002010 


30C€02020 
30€02030 
30C€0 2040 
30C02050 
30C02060 


— 30€02070 


30C020680 
39C02090 
30C02100 
30C02110 


'30€02120 


30002130 
30602140 
30C02150 
3002160 
30C621 70 
30C02180 
30C02190 
30€02200 
30C€02210 
20C02220 
30C02230 
30002240 
30002250 
30002260 
30002270 
30CG2280 
30€02290 
30€02300 
30C€02310 
30002311 
30€02320 
30€02330 
30002340 


30€02350 


30€0 2360 


30€02370 | 


30C02360 
30C€02390 
30C02400 
30C02410 
30C02426 
30C02430 
30C02440 


30C02450° 


30£02460 
30C02470 
30€C02480 
30C02490 
30C02500 
30C02510 
30€02520 
30002530 
30C02540 
30€9 2550 
30C02560 
30€02570 
30€C025 80 
30€02590 
30C02600 
30C€02610 
30C02620 
30C€0 2630 
30C02640 
30C02650 
30CG2660 


30C02670 | 


PROG ID 
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O6DA 
O46DA 
0608 
Ooé6cCc 
0600 
O6DE 
OwDF 
O06E0 
O6E1 
06E2 
06E3 
O06E4 
O6E5 
06E6 
O6E7 
O6E8 
O6E9 
OG6EA 
O6EB. 


qooo0o0oooocorcoqooqoooeo0oo0cKdeo 


O6EC 
O6ED 
OS6EE 
O6EF 
O6FO 
O6F lL 
O6F 2 
O6F3 
O6F4 
J6F6 
O6F7 
O6F8 
O6FA 
O6F 8 


CD00D0DDADODOCOOCOSO 


O6FC 
O6FE Ol 


°o 
) 


0700 Ol 
0702 0 
0703 00 
0705 Ol 


0707 O 


0708 Ol 
O70A 01 
070C 01 
O7OE O 

O7OF Ol 
0711 00 
0713 J1 
O715 Ol 
O717 O1 
O71° 01 


0718 01 
O710 Cl 
O71F 01 
O721 01 


DATE 
EC NO. 


* 10CC TABLE AND EVEN ADDRESS CONSTANTS 


* 
0000 BSS € 
0000 STPRT OC 40000 START 
3480 DC 43480 PRINTER 
oc00 STPPT DC 40000 STOP 
3440 oc 13440 PRINTER 
0000 STSPA OC 40000 START ‘ 
3401 oc 43401 SPACE 
oool DSW32 OC 40001 CHECK 
3701 OC 43701 OSw 
0000 SENSE OC /0000 SENSE WITHOUT 
3700 oc 43700 RESET 
OR00 ROEHT OC EMIT READ CHARACTER 
3200 oc 43200 SC ANNEO 
o00G STCAR OC /ococe START 
3494 oc 13404 CARRIAGE 
cccoo STPCA DC 40000 STOP 
3402 oc 13402 CARR IAGE 
FFFF ONES OC SFEFF 
FFEF oC fFEFF 
* 
* THIS IS THE PRINT ROUTINE 
3 
0000 PRINT OC 0 
69E6 STX 1 SCNCT STO SCAN CNT 
69F 3 STX 1 SENSE SET PRINT RTRN SW 
COFC 0 PRINT 
D016 STO SP ACE SET RETURN FROM SPACE 
61FF tOx 1-1 
69E2 STX 1 IDLE SET FUR PRINT 
1010 SLA 16 
D40005E5 STO Lt PSTIN RESET MLSCF 
O8EB X10 SENSE 
1006 SLA 6 CK IF BUSY 
4C28N6FC BSC L PRNI,*Z BR IF BUSY | 
680F STX STPRT SET 1ST SCAN SW 
O8DE X10 STPRT START THE PRINTER 
¢ : 
44900738 PRN] BSI L_ ICTR WAIT FOR INTERRUPT 
4£400096D BSI bt ERRS NO INTERRUPT 
& 
C4000 7A9 PRTN LO L_ CKESW 
0001 | Sto #+1 
44200000 BSI L #-#,2 BR IF EMIT ERR 
4C8006EC 8SC [I PRINT 
: a 
* SPACE SUBROUTINE 
* 
0069 SPACE OC 0 
¢ 
C49007A9 SP 2 LO tL CKESW CHECK IF SEQUENCE ERROR 
4420097C | BSE L ERR7eZ BR IF EMIT ERR 
C40005DE LO t BSwO LO CONTROL SWS 
LOOF SLA 15 CK FOR PROG HALT 
442807ET BSI L STOP,+Z 
65002000 LOX ti /2000 
600900608 STX L1 MSK2 SET MASK FOR SPACE 
OCNOO6DE X10 lL STSPA START SPACE 
44000738 BSI t ICTR WAIT FOR INTERRUPT 
44000977 BSI L ERRG 
¢ 
44000780 SPRTN BSI L FORMS CK OSW 
C400 05DF LD t BSW -CHECK FOR NEW 
4C 300618 BSC t CNI4.Z—- ROUTINE NUMBER 
4C800707 BSC [ SFACE RE TURN 
; . 
@® THIS SUBROUTINE CLEARS 32-39 AND 
O2JAN66 O1MAY66 O1JUL66 
415490 4154908 415490C 


PART NO. 2191220 
PAGE 3 


30C02680 
30C02690 
30C02700 
30C€02710 
30C02720 
30C02730 


30002740 
30€02750 


30C02760 
30C02770 
30C€02780 
30C02790 
30C02800 
30C€02810 
30C02820 
30€02830 
30C02840 
30C02850 
30C02860 
30C02870 
30C02880 
30C€02890 
30C02900 
30C02910 
30C02920 
30C€02930 
30C02940 
30C02950 
30€02960 
30C02970 
30C02980 
30€02990 


- 36C€03000 


30C63010 
30€0 3020 
30€03030 


30C03040 | 


30003050 
3003060 
3003070 
30003080 
30€03090 
30C03100 
30603110 
30063120 
30003130 
30603140 
30€03150 
30003160 
30C03170 
30C03180 
30003190 
30003200 
30C03210 
30€03220 
30C03230 
30003240 
30603250 
30003260 
30603270 
30003280 
30C03290 
30C03300 
30€03310 
30003320 
30C€03330 
30003340 
30C03350 
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0723 
0724 
0725 
0726 
0728 
0729 
O72A 
0728 
0720 


ooo0ooocococo 
o 


= © 


O72F O 
0730 0 
0731 0 
0732 00 
0724 0 
0735 0 
0736 0 


0738 O 
0739 00 
0738 0 
0O73C 01 
O73E O1 
0740 00 
0742 Ol 
0744 0 
0745 Ol 
0747 0 


0748 
0749 
0748 
074C 
0740 
O74F 
0750 
0751 
0752 
0753 
0755 
0756 
0758 
0759 
0758 
075D 
O75F 
0760 
0761 
0763 
0764 
0766 
0768 
O76A 
076B 
076C 
0760 
O7SF 


p= 


pend 


e0oo0ooo00o°oe0o70cne 
ow 


cooooo$dc$]e 
po at et 


oooo0o0o9no0o0dco 
= mw ‘pt ed ee ed 


© 
~ 


0771 


DATE 
EC NO. 


0000 
6lF8 
10A0 
DD00G028 
7102 
TOFC 
6101 
60000027 
4C800723 


0000 
63F8 
C8B8 
DFO00028 
7302 
TOFC 
4C80072F 


0000 
650005D0C 
6908 
65000742 
6D0005E6 
4C8009011 
T4FFOTS7 
TOFT 
4C800738 
0000 


0000 
C40008D00 
E861 
D060 
C400080D 
EO5C 
D058 
FO5B 
FC57 
4C200771 
1010 
D40006DA 
63D0 
C700096C 
94000800 
4C18076A 
7301 
TOF 8 
6700098) 
6845 
C40008DD 
D460009E1 
4C800748 
7301 
Tool 
6300 
6FOOO8EO 
4C600748 


T&F FOTAB 


02J 
415490 





AN66 


* SETS BIT 15, LOC 39. 
% 


CLEAR OC 0 
LOx 1-8 PRINT AREA 
SLT 32 
CL10 STD L121 40 
MDX 12 
MOX CL10 
i Dx 11 SET 815 Lt 39 TO ONE 
STX Li 39 
BSC I CLEAR 
* 


* SUBROUTINE TOD SET PRINT AREA TO ONES 
* 


Al OC oO. 
LOX 3-8 
LDD ONES SET PRINT 
A110 STD U3 40 AREA TO ALL ONES 
MDX 32 
MDX A110 
Bsc I Al LEAVE 
& 
* THIS SUBROUTINE WAITS FOR INTERRUPT 
s 
ICTR OC 0 
LOX Ll 1500 SET 
STX 1 ICT COUNT 


ICTR1L LOX Li ICTR2 
STX Ll PSTDE 


. BSC I START 
ICTR2 MOX L ICT,-1 
MOX ICTR 
* pBpse I IcTer 
IcT oC oO 


* 7 | 
* THIS SUBROUTINE FINDS THE FIRST CHARACTER 
* EMITTED IN THE TABLE 


= 

FFE  0DC 0 
LD tt EMIT | 
OR OREM CK FOR MISSING EMIT BITS 
STO OREM FFOO IF OK 
LD L EMIT | 
AND ANDEM CK FOR SHORTED EMIT BITS 
STO ANDEM OCOO IF CK 
EOR OREM CK FOR EMIT BITS OK 
EOR KFFOO | 
BSC L ST2092 CONT IF ALL EMIT BITS OK 
SLA 16 
STO L STPRT RESET LST SCAN SW 

| LOX 3 -48 FIND 1ST CHAR 

STOS LD L3 CHAR#+48 EMITTED IN 
S L EMIT SEQUENCE TABLE 
BSC L ST10e¢- FOUND IF BR 
MDX 31 GO TO NEXT TABLE ENTRY 
MDX STOS 


LOX L3 ERR 
STX 3 CKESW 


LD Lt EMIT 
STO L ERMS STO EMIT IN ERR MESS 
BSC I FFE 
ST10, MDX 31 DECREMENT XR FOR NEXT CHAR 
MDX ST15 AND SAVE 
LDX 3 -48 IF XR3 = O» RESET 
STIS STX L3 CHARC 
BSC I FFE 
& : 
ST20 MDX L EMTCT»-2 CNT 100 EMITS 


OLMAY66 O1JUL66 
4154508 415490C 


PART NO. 


PAGE 


30C03360 | 


30C€03370 
30C€03360 
30C03390 
30C03400 


30C03410 © 


30C03420 
30C034 30 
30C03440 
30€03450 


- 30C03460 
30C03470 


30C03480 
30€03490 
39C03500 
30C€035 10 
30C035 20 
30€03530 
30C€03540 
30C035 50 
30C03560 
30CO35 70 
30C035 80 
30C03590 
30€03600 
30C€C 3610 
39€03620 
30€03630 
30C0 3640 
30€03650 


30C03660 


30C03670 
30 €CO3680 
30€03690 
30C03700 
30C03710 


30€03720 


30€0 3730 
30C€03740 


30C03750 


30C03760 


30CO3770 . 


30€C03780 
30003790 
30C03800 
30C03810 
30C03820 
30C€038 30 
30C03840 
30C€03850 
39C03860 
30C03870 


30C03880 | 


30C03890 
30C03900 
36€03910 
30€032920 
30€03930 
30C€03940 
30€03950 
30C03960 
30C03970 


30C03980 | 


30C€03990 
30C04000 
30C€04010 
30C€040 20 
30€040 30 
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0773 


0774 
0776 
O777 
Oo779 
O7TA 
o77C 
O77D 
O77E 
O7T7F 
0780 
0782 
0784 


0786 
0787 
0789 
0788 
072D 
078F 
Oo791 
0793 
0795 
0797 
0759 
079B 
079D 
O79F 
07A0 
OTA2 
O7A3 
OTA4 
O7A5 
O7TAT 


O7A9 . 


O7AA 
O7AB 
O7AC 
O7AC 
O7AD 
OTAE 
OTAF 


0780 
O7B1 
O7B2 
0784 
07B6 
O787 
0788 
O7BA 
O7E3 
078D 
" O7BE 
07CO 
o7C2 
O7C4 
O7Cé 
O7C7 
07C8 
o7c9 
O7CA 


DATE 


oo00 000 


01 
01 
01 
01 
01 


01 
01 


oOooorrd 
oO 


EC NO. 


7910 
67COO9AE 
6B32 
OCOOU6DC 
C832 
DCOO009EO 
£831 
D82E 
6164 
6928 
65900700 
6D0005E5 
4C800632 


0000 
C40007A9 
4CA00786 
678CO8EO 
C700096C 
S$40008DD 
4C18CTA2 
C40008DD 
D40009E1l 
678CO08EO 
C700096C 
D40009E2 
6700097C 
6809 
4C800785 
7301 
7601 
63D0 
6FCOO8EO 
4C8CC7T86 
ood” 
FFOO 
OCCO. 
0000 
00C0 
00co 
BFOO 
0000 


0000 
1810 
D40005E6 
OCOOQ06E2 
EOLA 
DO1F 
4€9807B0 
1005 
4C2807C4 
co1g 
D40009E0 
4400099D 
4€800780 
44800013 
O7D2 
O7CB 
0000 
400E 
TOE6 


02J 
415490 


AN66 


MDX 
Lox 
STX 
x10 
LOD 
STD 
LOD 
STD 
LOX 
STX 
LDX 
STXx 
ST25 BSC 
* 


1 

1 
L1 
tl 
I 


ST25 
ERR13 
CKESW 
STPPT 
ANDEM 
ERM4 
ANDOR- 
ANDEM 
100 
EMTCT 
PRIN 
PSTIN 
PIRT 


THEN SKIP 


SET ER SW FOR ER 13 
STOP THE PRINTER 

LO ERROR CODE 

SET IN MESSAGE 

REINIVIALIZE EMIT 
CHECK WORD 


RESET EMIT CK CNT 
SET TO RETURN TO 
PRINT ROUTINE 


* THIS SUBROUTINE CHECKS THE CHAPACTER EMITTED 
* WITH THE TABLE OF CHARACTERS IN THE PROPER SEQ 


* 
CKEMT DC 


iD 


BSC 
LOX 
LD 
S 
BSC 
LD 
sTo 
LOX 
LO 
STO 
LOX 
STX 
BSC 
ChEM1 MOX 
MDX 
LDX 
RL152 STX 
BSC 
CKESW OC 
KFFOO DC 
EMTCT OC 
BSS 
ANDEM DC 
OREM ODOC 
ANDOR OC 
DC 
* 


L 


0 
CKESW 
CKEMT,2Z 
CHARC 
CHARt48 
EMIT 
CKEMi, 
EMIT 
ERMS 
CHARC 
CHAR*468 
ERM6 
ERRT 
CKESW 
CKEMT 

1 

R1153 
-48 
CHARC 
CKEMT 


0 
/F FOO 
0 


4) 
0 
/BF00 
40000 


RETURN IF ERROR 

RESET XR3 AND CHECK IF 
CHAR EMITTED 

1S IN THE PROPER SEQUENCE 
YES» IF SRANCH 


STO EMET IN ERR MESS 


STO FMIT S/8 

SET ERROR Sw 
AND SAVE 
RESET XR3, IF = O 
SAVE XR3 


ERROR SWITCH 


EMIT CK CONSTANT 


* THIS SUBROUTINE CHECKS THE OSW FOR 
* READY CONOIT IONS 


* 
FORHS DC 

SRA 
sto 
X10 
AND 
sTo 
BSC 
SLA 
BSC 
LD 

STO 
8SI 
BSC 
BSI 
oc 

DC 

oC 

BSI 
HDX 


ULOG1 


OCLMAY66 
4154S50B 


aa 6 


0 

16 

PSTDE 
SENSE 
FOMSK 
STM1 
FORMS, +- 
5 


ULOG1,Z¢ 
STMl 
ERM4 
ERR1L1 
FORMS 
LOG 

STM 

UL OG2 
0 

OLY 
FORMS#1 


01JUL66 
415490C 


DSW TO AC 
CCK BITS 0-7 


READY IF BRANCH 


BR IF NRDY 


TYPE 
MESSAGE 
BUSY 
HOLD SW 

GO DELAY 
TRY AGAIN 


PART NO. 


PAGE 


30C04040 
30C04050 


— 30004060 


30C04061 
30€04062 
30C04063 
30C040 64 


30C04065 . 


30C040 66 
30C04067 
30C040 70 
30€040 80 
30004090 
30C04100 
30004110 
30C€041 20 
30C04130 
30004140 
30C€041 50 
30C041 60 
30C04170 
30€C041 80 
30C04190 


30C04200° 


30€04210 
30€0 4220 
30C€0 4230 
30004240 
30€0 4250 
30C0 4260 
30C€042 70 


30€042 80 


30004290 


-30C04300 


30004310 
30004320 
300043 
30004340 
30C€043 50 
30€043 60 
30C04361 
30€0 4362 
30004363 
30C043 64 
30€04365 
30€04370 
30C043 80 
30€04390 
30004400 


30€04410 | 


30004420 
30004430 
30€04440 
30004450 
30004460 
30004470 
30C€04480 
30C€04490 
30€04500 
30€04510 
30004520 
300045 30 
30C04540 
30004550 
30C04560 
30€04570 
30€045 80 
30C04590 


PROG ID 
PAGE 


2191220 
4 


030C-1 
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Ooo 
0 O 
0.0 
Bie 
0 0 
0 0 
0 0 
0 0 
0 9 
0 O 
0 9 
0.9 
9 0 
O ‘ 
0 

Oo ¢ 
09 
0 9 
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Oo 9 
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o7cB 
0o7CD 
O7CF 
0703 


0702 
0703 
0704 
0705 
0706 
0707 


0708 
0709 
O7DA 
0708 
0700 
O7DE 
O7EO 
O7E2 
OTES 
NTE6 


O7ET 
O7E8 
OTEA 
07c8 


O7ED 
OTEF 
O7F 1 


O7TF3 
OTF4 
OTF6 
O7F8 
OTFA 


O7TFC 
O7FD 


OTFF 
oso0l 
0803 
0805 
0807 
0809 
O80A 
080c 
O80E 


OSOF 
9810 
0812 
0814 


DATE 


01 
01 
00 
0 


oeocooocoo 


01 
01 


Ol 
ol 
00 


01 
01 
01 
01 


01 


00 
01 
00 
01 
Ol 


01 
01 


01 
01 
ol 


EC NO. 


650007C4 
6DCO00S5E4 
4C800011 
FEOO 


0001 
0o00 
0001 
0048 
0000 
0000 


0000 
1810 
DOOB 
740 397E6 
7002 
4C80C708 
65000708 
6D0005E6 
4C80c0ll 
9000 


0000 
C40005DE 
1OOF 
4C9I00TET 


650007E8 
600005E4 
4C800011 


6101 

6000050D 
6éC00C9CD 
44900723 
44900780 


6164 
600008DF 


65C08200 
60000608 
65000000 
440006EC 
74F F O8 DF 
TOFS 

ocoo060C 
4400060A 
TOED 


6102 

60000500 
6C0 009CD 
44000723 


0 
415490 


pete 


ULOG2 LOX 


FOR 


L1 uLlOGl 
Ll PST32 
f START 

/FEOO 


NRDY 


Coo Pry Ore 


THE 1130 SYSTEM 


BUSY 
SET MLCSF | 
RETURN YC MONITOR 


WORD COUNT 
MESSAGE ID 


DSW 


* THIS ROUTINE DELAYS FOR 10 SECONDS 


ULOG3 STX 
BSC 

FOMSK DC 

* 

STM oc 
DC 
OC 
Oc 
oc 

STM1 OC 

& 

& 

OLY DC 
SRA 
STO 

CLYL MOX 
MOX 
BSC 
LDXx 
STX 
BSC 

DL yYcT oc 

* 


0 
16 
OLYCT 
tL OLYCT,3 
*+2 
I DULY 
t1 DLYl 
Ll PSTDE 
[ START 
0 DELAY COUNTER 


* THE PROGRAM WILL LOOP IN THIS ROUTINE 
* IF SW 15 FUNC CO 


s 
sToP oc 
LD 
SLA 
BSC 


LOX 
STX 
BSC 


One nn e 


LDX 
STX 
STX 
BSI 
BSI 


E10 


CE11l LOX 


STX 
CEl2 LOX 
STX 
LOX 
BSI 
MDX 
MDX 
X10 
BSI 
MDX 


$10 LOX 
STX 
STX 
BSI 


OLMAY66 
4154908 


* 
od 
* 
* CHECK PRINT 
* 
C 


0 
t BSWO 
15 
I STOP, 
Ll STOP+) 
Li PST32 
I START 


IS TURNED ON. 


LD CONTROL SWS 
CK FOR PROG HALT 
BR [F HALT OFF 


IF ON SET MLSCF 
FOR RETURN 


TEST ROUTINE 1 


CHECK EMIT SEQUENCE AND NORMAL PRINT OSW 


11 
L1 PRROU STORE RIN NO 
L UERRI SET LOOP ADDRS 
L CLEAR SET BUFFER TO ZERO 
lL FORMS CK FOR READY 
1 100 
Li LPCNT SET LOOP COUNT 
Li 78200 
Lil MSK2 SET MASK FOR PRINT 
Li 0 SET SCAN CNT 
L PRINT 
L ULPCNT,—-1 ADV LOOP CNT 
CE1l2 
L STPPT STOP PRINTER 
tL CNTRL GO TO CONTROL RTN 
Cell 


12 

Li PRROU 
L UERRI 
L CLEAR 


O1JUL66 
415490C 


TEST ROUTINE 2 
SCAN CHECK INDICATOR 


STORE RIN NO 
SET LOOP ADDRS 
SET BUFFER TO ZERO 


( 


PART NO. 


PAGE 


30C04600 
30C04610 
30C04620 
30€046 30 
30004640 
30C04650 
30C04660 
30C04670 
30C04680 
30€04690 
30CC4700 
30€047 10 
30€047 20 
30C€04730 
30€04740 
30C04750 
30C04760 


30C0<7TTO © 


30C047680 
30004790 
30€04800 
30C04810 
3CC04820 
30€04830 


. 30004840 


30C04850 
3CC04860 
30C04870 
30C648 80 
3C CO4890 
30€C04900 
30C€04910 


30C049 20 


30€64930 
30C04940 
36€04950 
30004960 
30€04970 
30€04980 
30€04990 
30C05000 
30€050 10 
30€C05020 
30C050 30 
30£05040 
302050 50 
30C0 5060 


30C05070 — 


30C05080 
30CC5090 
30C05100 
30€05110 
30C€65120 
30C051 30 
30€051 40 
30€05150 
30€65160 
30€05170 
30C051 80 
30€05190 
30C65200 
30C05210 
30C05220 
30C€052 30 
30005240 
30C€05250 
30C€05260 
30C05270 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM BART NO. 2191220 0.10 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM -~* : Tce NO. ee 4 
1132 PRINTER FUNCTION TEST 910 1132 PRINTER FUNCTION TEST 
Cc 1/10 | cn ae 2 ae - 
0816 01 44000780 BSf & FORMS Cr FOR READY 30C05280 0864 01 040009E1 STO L_ ERMS SPECIFIED ‘ /-30C€05960 © 
* 30C€05290 0866 O1 44000994 BSI t ERR1O TYPE ERROR MESSAGE 7 30CO5970 
0818 G 6164 CS11 LOX 1100. | - 30€05300 0190 : * : - -30€05980 ts 
0819 Gl 6D00080F STX LI LPCNT SET LOOP COUNT 30C05310 0868 O1 44006738 SC30 BSI L ICTR IDLE UNTIL CARR HAS STOPPED 30CC5990 : — 
| * 30C05320 | 086A O01 C40006D2 LD et cCcF 30C06000 
0818 0 1810 CS1L2 SRA 16 | | 30C€05330 0° oO 086C O01 4€200875 BSC L SC3lez 30€06010 
081C 00 04000027 sTO Lt 39 CLEAR BIT 15 LOC 39 30005340 O86E O01 &680087F LDx 12 SCTM1 | 30006020 
O81E 00 65008AG0 LOX t2 /8A00 SET MASK TO 30€05350 . 0870 0 7201 MDX 21 | 30C06030 
0820 01 69000608 STX LL MSK2 CK FOR SCAN CHECK 30005360 0 oO 0871 0 7001 MDX SC 305 30C06040 
0822 00 65900000 LOx L100 SET SCAN CNT 30C05370 0872 0 70ED MDX $C18 | -39C06050 
C824 Cl 440006EC CSf t PRINT 30C€05380 rn 0873 0 6A0B SC305 STX 2 SCTM1 ; 30C06960 
0826 01 74FFOSDF MOX £& LPCNT»-2 ADV LOOP CNT 30C05390 - () 0874 0 7005 MDX SCL? 30€060 70 
0628 0 70F2 MDX CS$12 3005400 9875 0 62F8 SC31 LOX 2 -8 30C€06080 
0829 01 0C0006DC XxIO L STPPT STOP PRINTER . 30C05410 | 0876 0 6A08 STX 2 SCTM1 30CC6090 
0828 O01 440CGC450A S8Si t CNTRL GO TO CONTROL RIN 30C05420 Q () O877 Ol 6580087E -LDX 1 SCTM 30CC 6100 
082D 0 70EA MOX CShi 30C05430 0879 0 7101 MDX 11 INTERRUPT OCCURD FOR 30C06110 
e 30C05440 0872 0 TO0CE MDX SC 16 CHANNEL, GO TO NEXT 3006120 
2 30C05450 0 9 * 30CC6130 
* TEST ROUTINE 3 | 30C05460 O87B OL 4400040A BSE L  CNTRL NONE LEFT, END OF ROUTINE  30C€66140 
Ps 30€05470 0870 0 70C9 MDX SC15 | 30€06150 
* 30005480 O * | 30CC6160 
@ THIS ROUTINE CHECKS FOR SPACE RESPONSES 30C05490 * CONSTANTS AND STORAGE 30C06170 
* ANO GHECKS THE DSW 30C05500 3 * ae | 30€06180 
* | | 30C05510 QO “Oo O87E 0 0000 SCTM DC 0 TEMPORARY STORAGE FOR XR 30€06190 
O82E 0 6103  §P10 LOX 1 3 30C05520 C87F 0 Ov0od SCTM1 OC 0 30C06200 
082F O1 69000509 ST™x Li PeROU STORE RIN NO 30€05530 0880 0 0001 =~» SKPT OC 1 VALID. 30€06210 
0831 01 6CO0009CD STK CL UERRS SET £930P ADORS 30€05540 f) () 083i 0 0002 OC 2 CHANNELS 30C06220 
0833 01 449907860 BSI t FCRMS CK FOR READY 30C0 5550 0882 0 0003 DC 3 30C062 30 
s 30€05560 rn 0883 0 0006 Oc 4 30CC 6240 
0835 0 G61CE SP1S5 tOx 1 -50 30C€05570 ff Fy) 0884 0 0005 oc 5 30CC6250 
0836 0 6903 SP16 STX 1 $9301 30€055 80 | 0885 0 0006 DC & 30C06260 
0837 O01 4490C707 BSI L SPACE | 30C05590 0886 G 0009 DC 9 30C06270 
® | 30C05600 9 * 0887 0 O00C oc 12 30066280 
0839 00 65000700 3P30 tOx 10 30005610 0888 1 O6AD SCA2 OC SKINT | 30606290 
0838 0 7101 MOX 11 - 30C95620 * 7 30CG6300 
083C 0 70F9 vox SP 16 3005630 On 2 | 29€66310 
093D O1 44090604 | 8S1 t CNTRL GO TO CONTROL: RTN 30005640 * TEST ROUTINE 5 _ 30CC6320 — 
O083F 0 70FS MOX $P15 30C05650 * : | 36€06330 
* 30C05660 O +n # THIS IS THE PART OF THE PROGRAM WHICH 30066340 
2 | 30C05670 * PRINTS LINES OF ROTATION PATTERNS 30€06350 
% | TEST ROUTINE 4 - 30C05680 * | 30 C06360 
* 30C05690 Oo vy) 0889 OC 65000005 RROL LDX Lil 5 | 7 7 30C063 70 
* THIS ROUTINE CHECKS SKIP CONTROL 30C05700 0888 01 6D0005DD STX L1 PRROU STORE RTN NO 30C06380 
* a 30C05710 0880 01 6C0009CD STX L  UERRI SET LOOP ADORS 30€06390 
0840 0 6104 SC10 LOX 14 30C05720 0 —) O88F O01 44000780 : BSI LL FORMS CK FOR READY 30C0 6400 
0841 01 60C0N5D0 STX £2 PRROU STORE RIN NO - 30C05730 0891 01 44900723 BSI LL CLEAR | 30€06410 
0843 O01 6CO009CD STX L UERRYO SET LOOP ADORS 30€05740 0893 91 44006707 BSI LL SPACE 30006420 
0845 Ol 44000780 B8SI tL FORMS CK FOR READY 30CO 57 50 QD ‘@) 0895 01 44000707 BSI & SPACE | 30 CC 6430 
* 30C05760 0897 0 61CF LOX 1 -49 30076440 
0847 0 61F8 SC15 LOX 1 -8 30C05770 0898 O01 6DO008AE  STX Ll R104e1 SET EMIT CHAR CNT 30606450 
0848 0 6936 STx 1 SCT — 30C05780 0 () | 7 30006460 
0849 0 6934 SC16 STX 1 SC™ . 30€05790 089A 0 6132 R101 LDX 1 50 SET LINE COUNT 30CC 6470 
gs | 30C05800 | 0898 0 6942 STX 1 LINES | 30C06480 
084A 01 C400050E SC1I7 LO tt BSKO LD CONTROL SWS 30605810 0 ND * | 30606690 
084C 0 100F SLA 15 CK FOR PROG HALT 30C05820 08s9C 0 6132 R102 LOX 1 50 SET EMIT LOOP CNT 30C06500 
084D O1 442807E7 SSI L STOP,4+2Z 30C€05830 | 0890 0 6941 STX 1 LPCNT , 30C€06510 
- Q84F O1 C400050F to t BSW CHECK FOR NEW 30005840 O O89E 01 C40005E0 LD tt BSwW2 CHECK FCR LCOP ON 30C065 20 
-0851 O01 4€300618 BSC Lt CN14sZz- ROUTINE NUMBER 30C05850 : 08A0 0 100A SLA 10 30C€065 30 
* 3 30C05860 08Al 0 180A SRA 10 CLEAR INVALID BITS 30C06540 
0853 00 65005000 LDX Lt1 /5000 SET MASK TO 30€05870 0 49 O8A2 O01 4CO808A6 BSC Lt R103e+ START CHARACTER 30C06550 
0855 01 60000608 STX Ll MSK2 CK SKIP DSW 30C05880 08A% 0 9030 Ss NO5O 30C06560 
0857 01 OCO006E6 X10 L  STCAR START CARRIAGE 20€0 5890 oo 0€asS 0 0008 STO R10441 SET START SCAN EMIT | 36€06570 
0859 O1 44000738 BSE L ICTR IDLE FOR INTERRUPT 30C05900 0 wy | | * | | 30006580 
0858 01 OCO0O06ESB X10 tL STPCA ERROR. CHECK IF NO INT 30C05910 O8A6 00 65008200 R103 LDX Ll £8200 . : 30€0 $890 
085D 01 44000972 BSI &- ERRS TYPE MESSAGE 30C0 5920 = O8A8 01 60000608 STX Ll MSK2 SET MASK FOR PRINT 30C06600 
O85F ) 7008 MDX SC 30 30005930 0 ify O8AA 0 6100 Lox 10 SET SCAN COUNT 30C0661C 
0860 01 6580087E SCL8 LOX I1 SCTM 30005940 O84B 01 440006EC BSI Lb PRINT GO PRINT 30C06620 
0862 01 C5000888 LD 1 SKPT4¢8 DIO NOT OCCUR FOR CHANNEL 30€05950 0 | cf so 30006630 
DATE O2ZJAN66 O1MAY66 O1JUL66 PROG ID) = 030C=1 9 DAVE © O2JAN66 OLMAY66 O1JUL66 See Ct PROG 1D 030C-1 
EC NOw 415490 4154508  415490C PAGE 5 EC NO. 415490 415450B 4154906 _ eae * aa PAGE ——CSSA 
0 
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O8AD 
O8AF 
O8sl 
- 08B2 
O8B4 
0886 


0887 
C8B9 


O8BA- 


0855 


ossBC 
0868D 
O8BE 
O8BF 
o8sco 
o8scl 
08c2 


0sc3 


08C4 
08cs 


O8sCcé 
o8scs 
O8CA 
oscc 
oé6CD 
O8CF 
OsDl 


0803 
08scs5 
08D6 
0808 


0809 
C80B 


os0C 
0800 
O8DE 
O80F 
O8E0 
O8El 
O8E2 


O8E3 
O8E4% 
OBE6 
O8E8 
O8EA 
O8EC 
O8EE 


O8FO 
O8F1l 


O8F2 
O8F3 


DATE 


00 
O1 


Ol 
Ol 


oeoooo0oo0ocewo oc0c0od 
pmo 


ooocoo$od 
= © ome pad pee pnt 


oooo 
- te 


oo 
= 


oooo0co°o 


01 
Ol 
01 
01 
01 
01 


oo Oso 


EC NO. 


©70009G9 
C760096D0 
9028 
4C18098C 
74910606 
TOES 


74F FO80F 
TOEC 
1810 
7091 


COLF 
61F0O 
62F8 
7301 
7095 
63CE 
6BE8 
1801 
7101 
7302 


6FCOO59C 
6D00G68C 
6EQ00GRE 
6176 

6009004504 
D490CGC20 
445006EC 


T40 1CSAE 
1c00 
T4F FO8DE 
70C3 


4400060A 
TOBE 


8090 
0000 
00C0 
00n0 
0000 
0031 
0032 


6196 

609005DD 
6CQ009CD 
44090786 
44000723 
44900707 
44000707 


6100 
6912 


6132 
69EB 


ND 2JAN66 


415490 


R104 tDxK L3 
LO L3 
S 
BSC L 
mOX L 
HOX 


“OX L 
MOX 
SRA 
MOX 


R107 LO 
Lox 
LOX 
MOX 
MOX 
LOX 
STX 
SPA 
MDX 
MOX 


YW om 


P1041 STX L3 
STxX Ob 
STX t2 
LOX i 
STx C1 
sto t 
8S13 


R1LOS 
NOP 
MOX 
MDX 


u 
MOX t 
L 


BSI Lt 
MOX 
* 


@ CONSTANTS AND STORAGE 


SET OC 

EMIT DC 

LINES OC 

LPCNT DC 

CHARC OC 

NO49 OC 

NO50 OC 

s 

% 

gS 

2 

s 

= 

& 

AC1O LOX 1 
STX Ll 
STX L 
BSI t 
BSI tL 
BSI Lt 
BSE ot 

& 

AC14 LOX 1 
STx 1 

& 

ACLS LOX 1 
Stx 2 

O1MAY66 


ww whe 


0 
CHAR449 
EMIT 
R1IOT,+— 
1D. SW, l 
R102 


LPCNT,-1l 
R103 

16 
R1IC7+1 


SET 
-16 
-8 

l 
RiNnGl 
-50 
R104¢1 
l 

i 

2 


STPPT 
PISsel 
Pléel 
118 
SCOT 
32 | 
PRINT 


R104e1 -1 


LINE Se-l 
R102 


CNTRL 
RiOl 


18000 
0 

0 

0 

0 

49 

50 


COMPARE START SCAN 
CHAR WITH LAST 
EMIT CHAR 

LooP IF NOT EQUAL 

SKIP IF SCAN CNT -1 


IF AFTER 50 CONSECUTIVE 
EMITS A MATCH IS NOT 
FOUND, LEAVE SPACE 
THEN CONTINUE 


SET SUFFER WITH FIRST BIT 


SET SHIFT REGISTER 
SET STORAGE REGISTER 


RESET EMIT CHAR CNT 
SHIFT LAST LINE 
IN PATTERN 


SET FOR PATTERN SPACE 


SET SCAN COUNT 


SET 1ST BUFR WORD 
GO PRINT 


ADV CHAR FOR NXT SCAN 
SAFETY NOP 
ADV LINE CNT 


GO TO CONTROL RTN 
LOOP ROUTINE RETURN . 


EMITTED CHARACTER 


LINE COUNT 
LooP COUNT 
TEMPORARY STORAGE 


TEST ROUTINE 6 


6 

PR ROU 
VERRY 
FORMS 
CLEAR 
SPACE 
SPACE 


-48 
AC 3041 


50 
LPCNT 


O1JUL66 
4154508 415490C 


THIS ROUTINE PRINTS LINES OF ONE CHAR 
UNTIL ALL 48 CHARACTERS HAVE BEEN PRINTED 


STORE RIN NO 
SET LOOP ADDRS 
CK FOR READY 


SET CHAR CNT 
SET EMIT LOOP CNT 


PAG 


30 C0 6640 
30C06650 
30C06660 
30C06670 
30C06680 
30€06690 


30C€06700 


30C06710 
30C06720 
30C067 30 
30C06740 
30C06750 
30C06760 
30C067 70 
30C06780 
30€06790 
30C06800 
30C068 10 
30C068 20 
30€C06830 
30C0 6840 
30006850 
30C06860 
30C068 70 
30C06880 
30C06890 
30C06900 
30C06910 
30C06920 
30C06930 
30C06940 


. 30€06950 


30C06960 
30C06970 
30C069 80 
30C06990 
30C07000 
30C07010 
30€07020 
30C0 7030 
30C€07040 
30€C0 7050 
30C0 7060 
30€070 70 


30C07080 


30C07090 
30€07100 
30C07110 
30C07120 
30C07130 
30C0T140 
30C07150 


30007160 


30C07170 
30C07180 
30C07190 
30C07200 
30C07210 
30CO7T220 
30C07230 
30C0 7240 
30C07250 
30C07260 
30C07270 
30C07280 
30C07290 
30C07300 


30C07310_ 


PROG ID 
PAGE 


PART NO. 2191220 
E 6 


030C-1 
6 


Oo 9 90 080 080 0 0 86.8 


Oo 2 Oo Ss Oo 6 


o 


io. 1 WO So “: 2 


2 


ae 


9 989 989 9 DOD 


90009 


g 


‘y 


(-) 


() 


oS 


Y 98 JO ZO 


v 


NS 


—- oh ee am wo 08 of +e: we 


™ LL ” 
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 O8F4 


O8F6 
O8F7 
O8F8 
OSFA 
O8FB 


OBFC 
OBFE 
0900 
0901 


0903 
0905 
0906 
03908 


O90A 
o9uc 
o9cD 
O90F 
0910 


0911 
0913 
0914 
0916 


0918 
O91A 
0918 
0910 


O91E 
O91LF 
0921 
0923 
0925 
0927 
092° 


0928 


~092C 


092D 
092F 
0931 
0933 
0934 


0936 
0938 
0939 
0938 


093C 
0330 
O93€ 
093F 


DATE 


O1 
Ol 
01 
01 
01 
io | 


01 
00 
01 
Ol 
01 


01 


ooco 


EC NG. 


C40005E0 
100A 
180A 
4CO808FC 
9DE6 
DOOs 


65008200 
600006D8 
6100 

4400C6EC 


65000000 


Ccoo7 
95700°6C 
4C€180911 


74010406 
70F5 
74F F OB OF 
TOEC 
7002 


440907 2F 
6101 

60000604 
440006EC 


740 10904 
7007 
4400C60A 
7002 


6107 

6D0005DD 
6CO009CD 
44000780 
44000723 
44000707 
44000707 


6164 
6981 


4400072F 
6500 8200 
600006D8 
6101 

4400 06EC 


T4F F O8DE 
TOF4 
4400060A 
TOE 2 


F100 
F200 
F300 
F400 


oO 
os 


AN66 


AC 20 


AC 30 


10 


2 


LD 

SLA 
SRA 
BSC 


STO 


LOX 
STX 
LOX 
BSI 


LOX 
Lo 


BSC 


¥DX 
MOX 
MOX 
MOX 
MDX 


BSI 
Lox 
STX 
BSI 


MOX 
MOX 
BSI 
MDX 


LOX 
STX 
STX 


BSI . 


BSI 
BSI 
BSI 


ADIOS tOxX 


* 
A011 


A012 


% 


STX 


BSI 
LDX 
STX 
LOX 
BSI 


MDX 
MDX 
BSI 
MDX 


Ll 
Ll 


L1 
Li 


1 
Ll 


eerer 


* THIS IS THE 
* PROPER SCAN 


* 

CHAR OC 
DC 
DC 
DC 

O1LMAY66 

4154508 


BS W2 

10 

10 

AC 20 y+ 

NO49 
AC 30¢] 


48200 
MSK2 
0 
PRINT 


0 

EMIT 
CHAR 448 
AC 35,+- 


IOLSW, 1 
ACLS 
LPCNT,-1 
AC20 

AC 3542 


Al 

1 
SCNCT 
PRINT 


AC 2041 21 
AC15 
CNTRL 
AC 14 


CHECK FOR LOOP ON 


CLEAR INVALID BITS 
START CHARACTER 


SET START SCAN EMIT 


SET MASK FOR PRINT 


CHECK IF CHARACTER IS 
TO BE PRINTED 


YES IF BRANCH 
SKIP IF SCAN CNT -1 
AFTER 50 CONSECUTIVE 


EMITS — SPACE 
THEN CONTINUE 


SET PRINT BUFR TO ONES | 


SET SCAN CNT 


ADV TO KAXT CHAR 


GO TO CCNTRCL RIN 
LOOP ROUTINE RETURN 


TEST ROUTINE 7 


7 

PRROU 
VERRO 
FORMS 
CLEAR 
SPACE 
SPACE 


100 
LINES 


Al 
48200 
MSK2 
1 
PRINT 


LINES, -1 
AOll 
CNTRL 
A010 


THIS ROUTINE PRINTS LINES OF ALL ONE CHARACTER 


STORE RIN NO 
SET LOOP ADDRS 
CK FOR READY 


SET LINE COUNT 


SET PRINT AREA‘ TO ONES 


SET MASK FOR PRINT 
SET SCAN CNT 
GO PRINT 


UPDATE LINE COUNT 


GO TO CONTROL RTN 
LOOP ROUTINE RETURN 


TABLE OF CHARACTERS IN THE 
EMIT SEQUENCE : 


/F 100 
/F 200 
/€ 300 


F400 


O1JUL66 
415490C 


wn = 


f 


Tee 


ro 


‘PART NO. 


PAGE 


30C07320 


30C07330 
30C07340 
30C07350 
30C07360 
30COT370 
30CG73 80 
30COT390 
30C07400 
30€07410 
30COT420 
30C07430 


30€07440_- 


30€07450 
30C0 7460 
30C0 7470 
30C07480 
30C07490 
30C€0 7500 
30€07510 
30C€0 7520 
30C07536 
30€0 7540 
30C07550 


— 30€07560 


30C€0 7570 
30C07580 
36C07590 
30CO 7600 
3CCO7610 
30C07620 


30C07630. 


30C07640 
30C07650 
30C07660 
30C€07670 
3¢CO7680 
30C07690 
30C€07700 
30C077 10 
3¢€07720 
30C077 20 
30007740 


_ 30C07750 


30C07760 


30CO7770 — 


390C07780 
30C07790 


30C€07800 | 


30C07810 
20C07820 
30C076 30 
30C078 40 
30CO7E50 
3€C07860 
30CG7870 
30C07880 
30C07890 
30C07900 
30C07910 
30C07920 
30€C07930 
30C07940 
30C0 7950 
30€C07960 
30C07970 
30C07980 


30€07990 | 


PROG ID 
AGE 


PAG 


=. 


eee a ne ee an eae 


re 
‘ 


: 
} 
ya 


2191220 
. OA 


030C-i 
6A 


ar 


- 


i in, Sl a ke 


re 


— 


\. 
Nee 
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1132 PRINTER FUNCTION TEST 


ERROR 4 MESSAGE 


ERROR 6 MESSAGE 


ERROR 7 MESSAGE 


LD ALPHA MESS 
SET WORD CNT 


oe ee ee ee oe) a eeeedtmmwmaawaewsaese eae er eee 


PART NO 


PAGE 


30C08000 
30€08010 


- 30008020 


30C080 30 
30C08040 
30C08050 
30C0 8060 


30C08070 . 


30C08080 
30C08090 
30C08100 
30C08110 
30€081 20 
30C081 30 


. 30€081 40 


30C08150 
30C€08160 
30C081 70 
30C68180 
30C08190 
30C€0 8200 
30C08210 


- 30€08220 
. 30€08230 


30€0 8240 
30C08250 
30C08260 
30C€08270 
30C08280 
30C08290 
30C0 8300 
30C08310 
30C€0 8320 


30C€08330 


0940 0 F500 oc /F500 5 
0941 0 F600 oc 1®600 6 
6942 0 F700 oc /F700 7 
0943 0 £800 oc /€ 800 8 
C944 0 F900 oF JE9N0 9 
0945 0 F000 oc /F000 0 
0946 0 7E00 oc /7E00 . 
0947 0 5800 oc /5800 $ 
0°48 0 4800 oC 44800 ‘ 
0549 0 7000 OC 771000 = 
094A 0 6600 OC 76800 ’ 
0948 0 5000 oc 15000 ) 
094C 0 6000 oc /6000 - 
094D 0 4000 DC /4000 ( 
094E 0 4€00 oc /4£00 + 
094F 0 6100 oc 46100 / 
0950 0 5C00 DC 4500 * 
0951 0 5000 oc 15000 + 
0952.0 0100 oc /0100 J 
0953 0 0200 oc 40200 K 
0954 0 0330 OC /D300 L 
0955 0 0400 oc /0400 F; 
0956 0 0500 oc 70500 N 
0957 0 0600 oC 49600 0 
0958 0 0700 oc /0700 p 
0959 0 D800 OC 40800 Q 
095A 0 0900 oc /0S06 R. 
OS5B 0 C500 DC /C 500 E 
095C 9 C700 oc /C 700 G 
0950 0 £600 oC F£600 wW 
G9ISE 0 £706 oc /€700 x 
09S5F 0 £800 oc 7€ 800 Y 
0960 0 £500 oc /€900 z 
0961 0 C100 DC /C100 A 
0962 0 C200 oc /€200 B 
0953 0 C300 oc /C 300 Cc 
0964 0 C400 oC /0400 0 
0965 0 C600 : oc /C 600 F 
0966 0 C800 oe /C- 800 H 
0967 0 C900 oc 42900 I 
0968 0 £206 oc JE230 S 
0969 0 €300 > Oc s€300 T 
096A 0 E400 | oc JE 400 U 
0968 0 £500 oc 7E590 v 
096C 0 F100 oc /F 100 1 
2 
# THIS SET OF SHCRT ROUTINES SETS UP TO TYPE 
* CIFFERENT ERROR MESSAGES. 
x 
0960 0 0000 ERR4& OC 0 
096E 0 610% LOX 14 | 
096F 0 4013 BSI ERRX 
0970 01 4C80096D BSC I ERRS 
& 
0972 0 0000 FRRS OC 0 
0973 0 6105 Lox 15 
0974 0 400E BSI ERRX 
0975 "1 4C800972 BSC I ERRS 
m 
0977 0 0000 ERK6& OC 0 
0978 0 6106 Lex 1 6 
0979 0 4099 BSI ERRX 
097A O01 4C800977 BSC I ERR6 
& 
097C 0 0000 ERRT OC 0 
0970 0 6107 Lox 17 
O97E 0 C837 LOD MEST 
O97F 0 6203 LOX 23 
DATE O2JAN66 O1MAY66 O01JUL66 
EC NOe 415490 4154508  415490C 


30008340 
30C08350 
30C0 8360 
30C08370 
30C083 80 
30C08390 
30C0 8400 
30C0 8410 
30608420 
30C0 8430 
30C08440 
30C08450 
30C0 8460 
30008470 
30C08480 
30C0 8490 
30C08500 
30C08510 
30C€08520 
30C08530 
30C08540 
30C08550 
30C0 8560 
30C08570 
30C085 80 
30C08590 
30C08600 
30C€08610 
30C08620 
30C08630 
30C08640 
30C0 8650 
30C08680 
30C08690 


PROG ID 
PAGE 


2191220 
T 


030C-2 
yf 


o) 


oO 989 V9 OJ 


> 3 92 


Ooo 98 9 3 90 39 32 3539 3 3 D0 =+39 


2 2 oO 


oO 


©) 


Oo OO 0 OO 


> oO oO Oo Oo 46 


9 9 0 


wo O° 


0981 
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0980 


oo 
= 


0983 
0984 
0986 
0988 
0939 
O98A 
0988 


900 
pmo gus 


i) 


098D 
O98E 
O98F 
0990 
0991 
0992 


= 


0994 
0995 
0996 
0997 
0398 
0999 
0998 


ad pas 


0390 
OS9E 
099F 
Q9A0 
O9Al 
O9A2 


ows 


O9A4 
O9A5 
O9A6 
O9A8 
O9A9 
O9AA 
O9AB 
O9AC 


ror 


po 


O9AE 
O9AF 
0980 
0981 
09B2 
0983 


COC000 c000QCC000O C2oeooo cooeo~oecao eceodag000 ssocd 


peat 


0986 
0986 
0987 
0988 
0989 
O9BA 
0968 
O9BC 
0980 
O9BE 
O9BF 
09sco 
09Cl 


= mw Ore Or Or OO = = 


09C2 
09C3 
09C’ 


oo°o 


DATE 
EC NO. 


4041 
4C80097C 


0000 
OCO006E2 
040009€0 
C82F 
6201 
4037 
4C800983 


0000 
6109 
C82A 
6202 
4030 
4C80098D 


0900 
6110 
C825 
6202 
4029 
440006GA 
4C000847 


0600. 
6lll 
C81LE 
6201 
4020 
4C80099D 


0000 
6112 
C€40006D08 
0038 
C816 
6202 
4016 
4C8009A4 


0000 
6113 
cs09 
6202 
400F 
4CS009AE 


©000 
09E3 
O9EE 
0041 
0000 
O9E3 
0000 
O9F8 
0000 
0A00. 
0000 
0A00 
O9EE 


0000 
6919 
6A16 


O2JAN66 


415490 


4 
ERRX 


ERRO 


ERR10 


ERR11 


ERR12 


ERR? 


* 
MEST 
MESS 
MESS 


MES10 


BSI 


BSC 


oc 

x10 
STO 
LDD 
LOx 
BSI 
BSC 


DC 

LDX 
LOD 
LOX 
BSI 
BSC 


oc 

LOX 
LOD 
LOXx 
BSI 
8SI 
8SC 


DC 

LDX 
LoD 
LOX 
BSI 
BSC 


MES1i OC 


MES12 


3 


OC 
DC 


L 
L 


UERR 


ERR7T 


SENSE 
ERM’ 
ME S8 


VERR 
ERRX 


0 
9 
MESS 
2 
UERR 
ERRIO 


0 
/0010 
MES1O 
2 
UERR 
CNTRL 
SC15 


0 
/0011 
ME SIL 
1 
UERR 
ERR11 


0 
/0012 
MSK2 
ERMS5 


— MES12 


2 
UE RR 
ERR12 


0 
40013 
MES9 
2 
UERR 
ERR13 


0 
IVCLM 
WSB 
ANINT 
oO | 
IVCLM 
0 

CH1 

0 
IVOSa4 
0 


WSB 


IVOSW 


GO TYPE MESS — 


COMMON ROUTINE 
SENSE DSW 

STO DSW IN MESS 
LD ALPHA MESS 
SET WORD CNT 

GO TYPE MESS 


ERROR 9 MESSAGE 
2D ALPHA MESS 
SEY wORO CNT 
GO TYPE MESS 

ERROR 10 MES SAGE 
LD ALPHA MESS 


SET WORD CNT 
GO TYPE MESS” 


ERR 11 MESSAGE 


LO ALPHA MESS 
SET WORD CNT 
GO TYPE MESS 


ERROR 12 MESSAGE 
SET S/B 
IN MESSAGE 

LD ALPHA MESS 
SET WORD CNT 

GO TYPE MESS 
ERROR 13 MESSAGE 
LD ALPHA MSG 


SET WORD CNT 
GO TYPE MSG 


INVLO EMIT 
WAS S/B 

NO INTRPT 
INVLO EMIT 
CHANNEL 
INVLD OSW 


INVLD OSW 
WAS S/8 


* THIS ROUTINE TYPES THE ERROR MESSAGE 


* 
VERR 


oc 
STX 
STX 


OLMAY66 
4154S50B 


nA 


1 ERM 
2 ERM 


O1JUL66 
415490C 


SET ID IN MESSAGE BUFFER 


SET WD CNT IN MESS 


> 


PART NO. 


PAGE 


30C08700 
30C08710 
30C08720 
30C0 8730 
30C08740 
30C0 8750 
30C0 8760 
30C087 70 
30CC8780 
30C08790 
30C08800 
30C088 10 
30C08820 
30C08850 
30CG8860 
30C08870 
30 CO8880 
3€ C0 8890 
30C08900 
30C08910 
30C08920 
30CC08930 
30C08940 
30C0 8950 
30C08960 
30C08970 


30C08960 | 
30C08990 


30C09000 
30€09010 
30C090 20 
306090 30 


30C09040 . 


30C09050 
30C09060 
30C09070 
30C090 80 
30C09990 
30C€C9100 
30C09110 
30C09120 
30C09130 
30C091 40 
30C091 50 
30C09160 
30C091 70 
30C09180 
30009159 
30009260 
30C€09210 
30C092 20 
30€09230 
30€09240 
30C092 50 
30C99260 
30C09270 
30C09250 
30C09290 
30C€09300 


30609310 


30€993 20 
30C€09330 
30C09340 


' 30C09350 


30C€09360 
30€09370 
30C093 80 
30€09390 


PAGE 


2191220 
TA 


PROG ID 030C-i 
| VA 
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o9cs 
09C6 
09C7 


0 
C 
0 
0o9sc9 00 
O9cB l 
o9scc 1 
O9CD 0 
O9CE O 
OSCF Ol 
Q9D1 00 
0903 Ol 
0905 Ol 
0907 OO 


O9DA 
0908 
090C 
0900 
O9DE 
OSDF 
OSEO 
OSEl 
09E2 


qooo0o°cocsed 


OSE 3 
OSES 
O9E5 
O9E6 
O9ET 
O9E8 
O9E9 
OSEA 
O9EB 
O9EC 
OSED 


OSEE 
OSEF 
O9FO 
O9F 1 
OSF2 
O9F3 
O9F4 
O9F5 
OCF6 
O9F7 


OSF8 
O9F9 
O9FA 
O9FB 
O9FL 
O9FD 
OSFE 
O95F 


OAO00 
OA01 
OA02 
OAO03 
OA04 


e0o00o00 ac0cocoeo0o0 asoonooocoocoo ocoooodcooceosos 


DATE 
EC NO. 


D818 
1810 
D40007A9 


44800012 
0908 
09D3 
0000 


COF3 

D4S0005E4 
40800011 
65C009C9 
6009005E4 
4C800011 


9091 
0000 
co00 
coco 
0000 
09Cc9 
onoo 
69S0 
0000 


2200 
7690 
8609 
500 
3290 
2100 
3660 
7200 
22u0 
S£70 
FFFF 


8000 
2100 
9260 
3£00 
9A00 
2100 
9A00 
BCOO 
1A00 
FFFF 


1ECO 
2600 
3E00 
7600 
7600 
3600 
5£00 
FFFF 


2200 
7600 
B600 
5E00 
3200 


oO 
om) 


52490 


JAN66 


STO 
SRA 
STO Lt 
% 
UERR2 BSI I 
NC 
oc 
UERRS OC 
+ 
LO 
STO L 
BSC I 
YVERR6 LOX LI 
STX Ll 
BSC 1 
2 
2 
Ba 
e 
BSS E 
ERM OC 
oc 
ERM] OC 
E2M2 OC 
ERM3 ©6DC 
ER@4& OC 
ER45 OC 
ERM6 OC 
* 


ERM2 
16 
CKESW 


ERROR 
ERM 
UERR6 
0 


UERR 

PST32 
START 
UERR2 
PST32 
START 


oooooocdcso 


® ALPHA MESSAGES 


e 
Ivctim oC 
oC 
OC 
OC 
oc 


OC . 


oc 
DC 
oc 
oc 
oc 


wSB oC 
oc 
oC 
DOC 
oC 
oc 
OC 
DC 
OC 
OC 


CH1 OC 
oc 
OC 
D0C 
OC 
oc 
DC 
OC 


tvOSW OC 
oC 
oc 
oc 
OC 


OLMAY66 
4154508 


0 
rs 


42200 
47690 
48600 
45£00 
43200 


— 42100 


iJ 
15 


43600 
47200 
42200 
/9€00 
/EFFF 


18000 
42100 
19200 
43E09 
49A00 
42100 
/9AG0 
/8C00 
/1AN0 
/FEFF 


42€00 
42600 
43€00 
47600 
47600 
43600 
45E00 
/ FFF 


42200 
47600 
48600 
/5E00 
43200 


UL66 
490C 


a= Zzm oFrFez= 


Orn APE 


1130 SYSTEM 


RESET ERROR 


SWITCH 


BUSY | 
LOOP ON ERROR 


BUSY, SET MLCSF 


ERROR MESSAGE TABLE, USED BY SUBROUTINE ERROR 


WORD COUNT 


‘HEX 


{0 

1ST ALPHA MESSAGE ADDRESS 
2ND ALPHA MESSAGE ADDRESS 
MODIFIERS | 


Pmeze2zrro 


orez™ 


PART NO. 
PAGE 


30C09400 
30€09405 


30C09406 


30€09410 
30009420 
30009430 
30009440 
30€09450 


30€09460 . 


30C09470 
30069480 
30C09490 
30C09500 
30C€09510 
30C09520 
30C09530 
30C€09540 
30C09550 
30C09560 
30€09570 
30C09580 
30C09590 
30C09600 
30C09610 
30C09620 
30C09630 
30C09640 
30C09650 
30€C09660 
30C09670 
30€09680 
30€09690 
30CC9700 
30C09710 


' 30C09720 


30C09730 
30C09740 
30C09750 
30C09760 
30C09770 
30C097 80 
30C09790 
30C09800 
30C09810 
30C09820 
30€09830 
30€09840 
30C09850 
30C09860 
30€09870 
30C09880 
30€09890 
30C09900 
30C09910 
30C09920 
30C09930 
30€09940 
30C09950 
30C09960 


30C09970 | 


30C09980 
30C09990 
30C10000 
30€10010 
30€10020 
30C€10030 
30C19040 
30€10050 
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2) 
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+ eee 
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9 9Oo 080 080 OO Oo G&G OO O 
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4154508 


0405 0 2100 oc 12100 
0406 0 3200 DSWL DC 13200 
0407 0 9A90 oc 79400 
0408 0 9200 oc 19200 
0A09 0 FFFF oc /F FFF 
& 

OACA = OSES END STRT 
DATE O2JANG6 O1MAY66 O1JUL66 
EC NO. 415490 


4154900 


zu0o 


PART NO. 2191220 
| 8A 


PAGE 


30€10060 


30C10070 © 


30C10080 
30C10090 
30C10100 
30€10110 


30€10120 
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PAGE 
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PAGE 9 ; | PAGE 9A 

1132 PRINTER FUNCTION TEST 0 | O 1132 PRINTER FUNCTION TEST 
0 |0 | a | 

CROSS REFERENCE LISTING ERM4 09E0 06 3C 9 0€4%— 064890 64E,06B77077A,0TBE 90986 

 ERMS 0961 0766,0795,0864,09A8 

SYMBOL VALUE REFERENCES Oo} 0 -ERM6 O09E2 07S8 

AC10 O8E3 06 2F | ERROR 0012 OS0C ,0SC9 

ACLS O8FO 0910 ERRX 0983 096F »0974,0979,098B 

ACLS OB8F2 090C ,0S1A 0o'9O ERR10 0994 08 66 

AC20 OBFC O8F8,0S0F | ERR11 099D 07C0,09A2 

AC30 0903 08F1,02FB,0918 ERR12 O94 064A,0SAC 

AC35 0911 0908,0910 oOo O ERR13  O9AE 0774,0SB3 

AC40 0918 : ERR4 096D O6FE 0970 

ADSCT 0058 050C ERRS 0972 0850 ,0S75 

AEND 0037 o50C QO OO ERR6 0977 0719,0STA 

AINT 0044 oSDC ERRT 097C 070A,0790,0981 

ALVD 0038 050C | ERRO 0980 07€1,0S92 

ALD 0O3E OSDC 0 | O ETRAP 0018 O5CC 

ANDEM O7AC 06 00,0 74F 9075030 775, 077D | FFE 0748 06AA,0768,076F 

ANDOR O7AE OSFE,O77C FOMSK 0701 0786 

ANINT 0041 05 0C »0SB8 O19 FORMS 0780 0718, 6 7B8,07C 2,0 TC Ay O7FAs 081650833 .0845,08 SF »0 BEB, 

ANRDY 0048 050C,0705 0923 

A010 O91E 06 30,0538 HALT 0014 050C 

AO105. 0928 OY QO ICT 0747 0635-0 73B,0742 

A011 0920 06938 —1cTR 0738 O6FC »071750745,0859,C868 

AOL2 0936 i ICTRL O73C 0744 

AQ5SA 0019 O O- ICTR2- 0742 07 3C 

ARDY 004C 050C IDLE 0605 0660 50€64,0681,06F2 

ASB 0054 050C | | IDLSW 0606 0661,0&B4,090A 

ASCT OO5A 050C | oO ILCRP 0030 050C 

ASWS 0050 050C | ILIR 0036 050C 

AWAS 0060 | ILPAT 0032 050C 

Al O72F 07 36,0511,092D , | OY CE 110 = 0028 05DC 

A110 0732 0735 | 7 | | | [Ll 0029 O050C »05F4 

BEGIN 0010 OSDC,05ES ~~ | 1L2 OOZA 050C 

BSWO OSDE 060B ,0611,0623 90 70C, CTESyO84A _ sey [L3 0028 050C 

BSW1 O5DF O60E 50E18,0621 90 71D, C84F : , IL4 002C 050C 

BSW2 O5E0 06030 89E,08F4 , : IVCLM © O9E3 09B6,0SBA 

BSW3 OSE1l 0607 ,0€T7F : MY Oa IVOSW  OAOO O9BE,OSCO 

CCF ' 0o6D2 0680 ,06B8E,086A | | KFFOO OTAA 0752 

CELO O7F3 062A LINES  O8DE O8SB ; 0806, 092C,0936 

CEll O7FC O80€ | YQ FX LOG 0013 050C,07C4 

CEl2 O7FF 0809 | 7 | LOGBY 0016 05DC 

CHAR 093C 1759 9078D,0799,0B8AF, 0906 LPCNT O8DF O7FO y 0 E07, 08199082 2 08SD » 0887 g08F3 20900 

CHARC O8E0 07€D,078B,0797,07A5 O FY MES10 O9B8C 0996 

CH1 O°F8 09BC MES11 O9BE 099F 

CKEMT 0786 065£ 0789, 07A0,07AT | MES12. 09C0 © O9A9 

CKEM1 O7A2 0791 | Oo 8) MEST 0986 O97E 

CKESW  O7A9 0604 90639, C64C 90 7002 9708 5 0763 90776 yO787 079 20KCT | MESB 0988 0988 

CLEAR 0723 06 79 50 72D, 07F 84081 4, 0891 » C8EA 0925 MESO NOBA 09 8F ,0S80 

CL10 0726 0729 | Yo ) MSK1 0607 06 2E »0E46 

CNTRL 060A 0608 90613,080C 90 82Be 0830 » 0878 y08D9 2091 By0939 10999 MSK2 0608 0640 ¢067Ds 071 390801, 082090855, 0848 ,08FE,0931 »09A6 

CNLO O60E | NO49 O8E1 OS8FA | 

CN12 0615 OSFA,6609,061720€1F ,0622 Oo ') NOS5SO O8E2 O8A4 , 

CN13 0617 ONES O6EA 0731 

CN14¢ 0618 0610,071F,0851 ; OREM O7AD 0748 ,0274C, 0751. 

cS10 O80F 0628 QO %) PIA 064E 06 2B,0€42 

CS11 0818 0820 PIE 0644 . : 

C$12 0818 0228 | F PINT 0659 0650 

DLY 0708 07C9,07DE oO °*) PIRT 0632 OSF2,0674,6784 

DLYLT O7E6 07DA,070B PIS 0667 0658 

OLY] 0708 O7E0 PIl 0672 066F .0684,0685,06A6, 06C1 ,06D1 

oswl OA06 Qn P12 0676 0662,0698 

OSW32 O6E0 0627,0€88 | P13 0682 06€6,0€AC 

EMIT O8DD  —«-— 06 68s NEE 44 074990 7409 0758 ¢ 0764, O78F 40793,0881 ,0905 : yo, PI4 0686 0678 ,0EA9 

EMTCT O7AB OSFC,0771,077F 9M °°) PIS 068B 06A2,08&C8 

END 0U25 050C ,0€27 PI6 0680 06A3,08CA 

ERM 0908 09C4,0SCB : PI? 0690 0695 

ERM 0900 09¢3 7 | QO. ) PIs O6AA 065D 

ERM2 O9D0E  09C5 | . | PROIA OSF8 Q5E3,05SEE, 061E,0625 

ERM3 O9DF | " PREND 0623 0631 | 

AT O2JAN66 OLMAY66 O1JUL66 PROG ID 030C-1 DATE O2ZJAN66 OLMAY66 O1JUL66 | PROG ID = 

ec NO- ofsa90 4154508 4154 90C PAGE 9 9|9O | EC NO. 415490 4154508 4154900 PAGE I 7 setae 

HD; oe 

















~~ = wo we 
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beat 


wee ee ee we OO BS OO © ow we os Oe - 


FOR THE 1130 SYSTEM 


1132 PRINTER FUNCTION TEST 


PRINT 
PRNI 

PRPST 
PRROU 
PRSET 


PRIN . 


PSTDE 
PSTIN 
PST32 
RDEMT 
RQKB 
RQOTY 
RRO1 
RSTKB 
RTITBL 
R101 
R102 
R103 
R104 
R1041 
R105 
R107 
R1153 
SCA2 
SCNCT 
SCT 
SCTML 
$c10 
$c1s 
SC16 
SC17 
scis 
S$Cc30 
-$C305 
$t31 
SENSE 
SET 
SKCH 
SKINT 
SKM 
SKPT 
SK10 
SPACE 
SPINT 
SPRIN 
SP1O 
$P15 
SPL6 
SP2 
$P30 
START 
STCAR 
STM 
STM1 
sToP 
STPCA 
STPPT 
STPRT 
STRT 
STSPA 
STOS5 
ST10 
ST15 
ST20 
ST25 
SVKB 
‘UERR 
VERR2 


DATE 


EC NO. 


O6EC 
O6FC 
050C 
O5DD 
OSEB 
0700 
O5E6 
OSES 
G5E4 
O6E4 
0034 
0033 
0889 
0017 
062A 
089A 
089C 
O8A6 
O8AD 
O8C6 
C803 
08BC 
O7A5 


0888 


C604 
O87E 
O87F 
0840 


0847 


0849 
O84A 
0860 
0848 
0873 
0875 
O6E2 
ospDCc 


06C2 


O6AD 
0603 
0880 
O6BF 
o707 
O6CF 
0718 
O82E 
C835 
0836 


0708 


0839 
0011 
N6E6 
0o7D2 
0707 
O7E7 
O6E8 
060C 
O6DA 
OSES 
O6DE 
0759 
O76A 


“0760 


0771 
0784 
0035 
09C2 
o9c9 


O2JAN66 


4154 


490 


O6EF ,0 705,080 590 824, OBAB » CEDI 9 0901 9091650934 
O6F8 

OSEA,0E€29 

O7F44 081 Gs 082F y0841, 0888 »O8E4 s091F 
05E2,05F6 

04 76,0780 

073E€,O07B2,07E2 

0572 ,0€F 44,0782 

05F0,07CD,07EF ,O9CF,0905 

0659 

050C 

050C 

062E 

O5scCc 

0619 

0808 

08B6,0808 

08A2,0EB9 

0898 »08&A5,08C2,08D3 

08sco 


08B2,08B8B 
O7A3 


0676,0€ED.08C0,0914 


—06B1,0849,0860,0877 


0848.9 86E,0873,0876 

062D 

0870,0S9B 

O8 7A 

0874 

0872 

O6BF ,0 &5F 

osT7l 

O8éC . 
06600682, 06EE,06F 6, 0784 ,0986, 
oBsC 

O6B8A 

0653,0€88 

0689 

0683.0862 

068C 

O6F0, 07214 0837,0893, 0895» O8EC s08EE 092750929 
0656 

O6CF 

06 2C 

08 3F 

083C 

0668 

G8 36 

OSOC, 0740, 07CF,07E 4, 07F1 70901 ¢09D7 
0857 

07Cé6 

07B7,07B0 

06 CC 0 70F » 07EB,0 TED, 0840 
O6AD,0858B 

O5EC » OE6A, 06A4,06A8, 07 77,0800 20829 086 
06 5B ,06FA,06F3,0756 | 


-OAOA 


0689,0690,0715 . 

0760 

075D 

0768 

0753 

0773 

050C 

0980 ,098A 5999150998, 09Al ,09AB 90982 ,09CE 
0903 


O1LMAY66 
4154508 


O1JUL66 
415490C 


CO CFLCE 
a. ns “peaaease geo, eects oy 


PART NO. 
PAGE 


PROG ID 
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2191220 
10 
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10 


a a a a re ee 
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2 D D OJ 


Oo 


9 9 0 


> oo 2329 D905 090900008080 
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on w were 


Oo ooo0o0o goa aeaeaeaaa aoa Oo ao oe 


— oe ee i ee me ew oe 8 
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S 
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_UERR6 
UERRY 


ULOG1 
ULOG2 
ULOG3 
WSB 


DATE 


EC NO. 


09D3 
o9c0 
07C4 
o7CcB 
o7cD 
O9EE 


O02JAN56 
415490 


o9cc 


O7F6,0812,0831,0843, 0880, 08e6,0921 


0788,07CB 
o7Cc7 


0967,0SC1 


 OLMAY66 
415450B 


O1JUL66 


415490C 


FOR THE 1130 SYSTEM 


PART NO. 
PAGE 


PROG [D 
PAGE 


2193220 
7 10A 


030C-1 
1OA 











SO ene ert met 


a 


em ep AON LY NT arse ie ay sa paninnret en Ae 


e 


18M MAINTENANCE OJAGNOSTIC PROGRAM 
1442 READER/PLUACH FUNCTION TEST 
TABLE 


PARAGRAPH 


le PURPOSE. « ce de be we ee 


2. PREREGUISITES. 2. 6 we eee 


2e1 PROGRAM PREREQUISITES 
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1442 READER/PUNCH FUNCTION TEST 


13 PURPOSE 


PAGE . 1A” 


THE 1442 CARD READ/PUNCH DIAGNOSTIC PROGRAM CHECKS THE 
UPERATING PERFORMANCE GF THE 1442 CARD READ/PUNCH. 


2- PRERFCUISITES 


2-1 PRUGRAK PREREQUISITES 


THE 1442 CARD READ/PUNCH DIAGNOSTIC PROGRAM Must 
RUN UNDER Senne OF THE DIAGNOSTIC MONITOR. 


222 EQUIPMENT PREREQUISIIES 


ne FULLOWING EQUIPMENT IS REQUIRED. 


Ae 1131 CENTRAL PROCESSING UNIT. (CPU. 
Be 1442 CARD REAL/PUNCH. 


3. USE PRUCFCURE 


3.1 LOADING 


THIS PROGRAM FOLLOWS THE LOADING PROCEDURES ESTABLISHED BY THE 11300 


DIAGNOSTIC #ONITOR. 


REFER TO O. He DOCUKENTAT 1ON- a 


THE FOLLOWING REQUIREMENTS MUST BE MET. 


le. NO OTHER PROGRAM DECK SHOULD FOLLOW THE 1442 FUNCTION TEST” 


CECK. 


2- PROGRAM DECK SHOULD BE FOLLOWED BY A bere OF BLANK (CARDS 
ABCWT 5 ENCHES neh: . 


302 OPERATION 
30221 PRCGRAM EXECUTION 


Ae tO4O AND GO MODE 


ALL ROUTINES WILL BE EXECUTED WITH NO GPTIONS 
ALL CETECTED ERRORS WILL BE IDENTIFIED BY AN on. TYPEOUT. 


Be SINGLE PROGRAM 


AND OVERLAP MODE. 


AFTER PROGRAM IS LOADEDsTHE: MONITOR WILL WALT 
TO ALLCW OPTIONS TO BE SPECIFIED. 


Le SPECIFY DESIKED OPTIONS AS INSTRUCTED IN “SECTION. Be2e2e 
IF NO OPTIONS ARE DESIRED, NO ENTRY IS REQUIRED. | Paes 


2- TO START EXECUTION — EXECUTE MODE MUST BE | SPECIFIED. 
SET BIT SWITCHES FOR pEStStr MODE | 


SWs SETTING. 


0080 
0088 
0084 
0082 
008C 


0090 
0092 


PRESS INTERRUPT REQUEST KEY. 


DATE ——«- O2AN66 -O1MAY66 


CONTROL 


EXECUTE WITH NO OPTIONS 

LOOP ON ERROR 

BYPASS ALL ERROR PRINTOUTS 

HALT ON ANY ERROR 

LOOP ON ERROR AND BYPASS ALL ERROR 
PRINTOUTS 

LOOP ALL PROGRAMS | : ae 
LOOP ALL PROGRAMS AND HALT ON ERRORS 
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DATE 
EC NO. 


PRCGRAM OPTIONS 
THE QPERATGR MAY MODIFY THE EXECUTION OF THE PRUGRAM ANY TIME BEFORE 
OR AFTER IT HAS STARTED EXECUTION RY ENTERING PROGRAM CONTROL OPTIONS 
UR ROUTINE SELECTION OPTIONS. 
Ae PRUGRAM CONTROL OPTIONS 
1. TO SELECT PROGRAM OPTIONS SET BIT SWITCHES AS INDICATED 
SWe SETTING CONTROL 


OFOO RESET ALL CONTROL OPTIONS 


OF 04S BYPASS ALL 1442 LOGS 

OFO8 BYPASS ALL 1442 ERROR PRINTOUTS 

OF20 LOOP A 1442 ROUTINE 

OF40 LOG ALL 1442 ERRORS 

OF24 LOOP ROUTINE AND BYPASS 1442 LOGS. 

OF28 LOOP ROUTINE AND BYPASS 1442 FRROR PRINTOUTS. 


OF6&0 LOOP ROUTINE AND LOG ALL 1442 ERRORS- 


2. PRESS INTERRUPT REQUEST KEY. 


Be ROUTINE SELECTION 
EXECUTION WILL START WITH THE SELECTED ROUTINE. 
1. TO SELECT ROUTINE OPTIONS SET BIT SWITCHES AS INDICATED 


SWe SETTING  R&OQUTINE 


4F00 ALL ROUTINES 

4F80 1. CHECK DSW 

4F40 2. FEED-READ-PUNCH 

4F20 3. READ ONLY 

4F10 4» PUNCH ONLY 

4FO8 S. READ, THEN PUNCH WHAT WAS READ 


LF O4 6- SELECTED CATA 

2. PRESS INTERRUPT REQUEST KEY. 
TERMINATION 
IF THERE ARF NO *LOOP* CONTROL CPTIONS SELECTED, THF PROGRAM WILL 
TERMINATE AFTER ONE PASS. IF OPTIONS TO Loop HAVE BFEN SELECTED, 
THE PROGRAM MAY BE TERMINATED BY- 

le REVOVE LOOP OP TIONS AND ALLOW NORMAL TERMINATION. 

CR 

2- SET ENTRY SWITCHES TO 400F AND PRESS THE INTRPT REQ. KEY. 
RF START 
Tf RESTART THE PROGRAM. 

1. SET SWITCHES TO 408F. 

2- PRESS INTERRUPT REQUEST KEV. 


3e SET SWITCHES TC Ovu80. 
4. PRESS INTERRUPT REQUEST KEY. 
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1442 READER/PUNCH FUNCTION TEST 


4. PRI 


4el 


AOFO] 


AOFO2 


AOFO3 


AOFO4 


AOFOS 


AOF06 


AOFC7 


AOFO8 


DATE 
EC NO. 


NOTE 


DEFENDING ON HOW THE PROGRAM WAS TERMINATED» - THE 
LAST TWU STE®S MAY NOT BE REQUIRED. | 


NTOUTS | 
ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 
APPAN CORR (MESSAGE) 
OR 
EPPNN CORR (MESSAGE) 
WHERE A IDENTIFIES STATUS MESSAGES 
fF IDENTIFIES ERROR MESSASES 
PP IS THE PID OF THE PRUGRAM CAUSING THF MESSAGE 
NN IS THE MESSAGE SEQUENCE NUMBER 
PR IS THE ROUTINE NUMBER 
MESSAGE IS ANY VARIABLE INFORMATION 
STATUS MESS/SES (AOFXX) RR= ROUTINE NOW XX = MESSAGE NO. 
0006 ANY PATTERN PLUS BLANKS MAKE READY | 
COMMANCS OPERATNR TO LOAD ANY PREPUNCHED CARD FULLOWED PY BLANK CARDS. 
OORR BUSY 


THE 1442 WAS BUSY WHEN ITS OSW WAS SENSED. PROGRAM WILL CONTINUE. 
OORR LAST CARD 


LAST CARD INDICATOR WAS ON WHEN 1442'S DSW WAS SENSED. 


OORR LCAD FROM STK 2 MAKE READY 


NPRO ANC PLACE CARDS IN STACKER NO» 2 IN THE REAC HUPPE® AND PRESS START. 


OORR LOAD BLANKS MAKE READY 


LOAD PUNCH HOPPER WITH BLANK CARDS AND. PRESS START. 


OORR NROY py 
1442 WAS NOT READY WHEN ITS DSW WAS SENSED. ( TRY PUSHING 1442 START . 
BUTTON Jc 

CORR «PROG HALT 


INDICATES PREGRAM HAS BEEN HALTED BY BIT SWITCH 15 ¢ ON )- 


0001 tCAD BLANKS MAKE READY 


THIS PRINTOUT WILL JUCCUR IF A NON BLANK CARD IS ENCUUNTERED WHILE | 
RUNNING RTN. 2 (PUNCH ONLY). NOTHING WILL BE PUNCHED IN THE NON BLANK 
CARO. THE PRINTOUT INSTRUCTS THE SPERATUR TO L.UAD BLAN® CARDS BEFORE 
CONTINUING THe 1442 TEST. AFTER THE 1442 IS MADE READY» THE OPERATOR 
MUST SET OFOC IN THE BIT SWITCHES THEN PRESS THE INTERRUPT REQUEST KEY. 
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1442 READER/PUNCH FUNCTION TEST 


4.2 ERROR MESSAGES 


EOFO9 OORR XXX MXKK KKK 


WAS S/B COL 


READ FRROR — MODIFIERS SHUW INCORRECT DATA READ, WHAT DATA SHOULD HAVE 
BEE» ANO CARD COLUMN IN WHICH ERROR NCCURED. 


MXXK XXKK 


EOFOA OORK 
WAS $/B 
DSW ERROR - MODIFIERS SHOW INCORRECT DSW FOLLOWED BY CORRECT DSW. 
EOFOB OORR NO INTRPT 


NQ INTERRUPT WAS RECEIVED AFTER A READ, FEED, OR PUNCH COMMAND WAS IN- 
ITIATEC. 


PROGRAM CONTINUES AFTER PRINTOUT. | 


5s CCM”ENTS 
5.1 ROUTINE 2 {CONSOLE ENTRY SWiTCH NO. 8 ON) 


ROUTINE 1 CHECKS THE STATUS OF THE 1442. 6Y LOOPING THIS 
RNUTINEs THE PROGRAM OPERATOR CAN USE AN OSCILLOSCOPE TO 
CHECK ANY DSW INDICATOR. 

De2 ROLTINE 2 (CONSOLE ENTRY SWITCH NO. 9 ON) 


ROUTINE 2 CHECKS THE FECDING AND PUNCHING FUNCTIONS. THE 
CARDS PUNCHED BY THIS ROUTINE ARE STACKED IN STACKE® NOW 2 
OF THE 1442. THESE CARDS WILL BE USED IN ROUTINE 3. 


5-3 ROUTINE 3 (CONSULE ENTRY SWITCH NO. 1O ON) 


ROUTINE 3 READS IN STANDARO MODE (1.E.s ONE COLUMN ER . 
WORD). OIGITS 12 THROUGH 9 OF THE CAKD ARE PLACED IN STORAGE 
BITS O THROUGH 11. BITS 12 THROUGH 15 ARE LEFT BLA*K. ALL 
DATA ARE CHFCKED AGAINST THE DATA FROM WHICH THEY WERE 
PUNCHED. IF AN ERROR IS FOUND, A PRINTOUT. OCCURS. THE ERROR 
PRINTOUT CONTAINS THE PID, ROUTINE NUMBER, BITS IN FRROR» THE 
CORRECT BITS (BOTH IN HEXADECIMAL NOTATION) ANDO THE COLUMN IN 
WHICH THE ERROR OCCURRED CALSO IN HEXADECIMAL NOTATTON)D« 

504 ROUTINE & ¢ CONSCLE ENTRY SWITCH NO. 11 ON ) 

ROUTINE 4 PUNCHES THE FIRST 40 COLUMNS OF A CARD AN® PLACES 

THEM IN STACKER NO. 2. THE CARDS PUNCHED BY RCUTINE 4 ARE USED 

BY ROUTINE 5-6 . 


5.5 ROUTINE 5 (CONSOLE ENTRY SWITCH NO. 12 ON) 


ROUTINE % READS THE CARDS THAT WERC PUNCHED BY ROUTINE 4 AND 
CHECKS THE MATA READ AGAINST DATA PUNCHED. AFTER THE DATA IS 
CHECKEC, THF FIELD IS REVERSED (1.E., COLUMN 1 IS PLACED IN 
COLUMN 60~— COLUMN 2 IS PLACED IN COLUMN 79, ETC.o). AFTER THE 
FTELD-REVERSING OPERATION THE READ AREA IS CLEARED. A PUNCH 
COMMAND {S INITIATED THAT WILL CAUSE THE LAST 40 COtUMNS TO BE 
PUNCHEC. THIS KOUTINE UGES NOT AUTOMATICALLY CHECK THE PUNCHING 
UPERATICN. HOWEVER» BY FOLUING EACH CARD PUNCHED BY THIS 
POUTINE IN HALF (FOLDED BETWEEN COLUMNS 40 AND 41), THE HOLES 
MAY BE ALIGNED. PERFECT CORRESPONDENCE OF HOLES INTICATES 
SATISFACTORY RESULTSs 


56 ROUTINE & (CONSOLE ENTRY SWITCH NO. 13 ON) 
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| : PAGE 
1442 READER/PUNCH FUNCTION TEST | 
SUUTINE.{6: HEROS. dy CARD AAT Ae PUNCHED BY QHE PROGRA OPERATOR | 
ANO PUNCHES THE DATA READ INTC A NUMBER OF BLANK CAPDS.- : | 
SATISFACTORY RESULTS ARE INDICATED BY A DIRECT CORRESPONDENCE 
BEThKEEN THE HOLES IN THE PREPUNCHED CARD AND THE HOLES IN THE 
CARDS PUNCHED BY THE ROUTINE. THE COMPARISON MUST RE MADE. 
BY THE PRCGRA’ OPERATOR. | . oo oe a ee 
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6. APPENDIX 


6.1 SAMPLE OUTPUT 


SYs Fa 
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«lf 
tT ee _ ee i Gaal Gan 
| eats 8 BRUTRGEES ga 8 G att TT | 


BRAT Bere Le Leelee CELLET BT Bcd BOO) OO Ee ooo 
ERT SEES! GERD GERI ||| OF GRROREER) GEEREREE) GEUERSEOED FT RRRERT GRGET ER) RT] fel] | PRen 
222292292222 QGNGH2 229229 2222222282222222 29222222228 28228222 2G 2222222 222222 
3333949933330 98 099993399 9999999393993993I9993999395g399992 339939993 339399g3 3393 
SEES) | OSEES Brit | Rees COSCO) CEPCOPeey Ceeeeesl ff Pre creed (ed tf | eid || Perey 
SSSSBSSPSSSSPSSSHPPGESSSSSBSSSSSSSSBSSSSSSSSBSSSSSSMSBSSSSMSSSSBS SBS BBS SeBESS555 
SCEM UCSC RCSCRRPERSCC ECCS CCSH CCC CCOCEQCCCCECECB CEC CEQ ER CRSCCCUQRBSCSSS COCR EESESSS 


BT TARRRes tel be ||) bes Ree eeee) CRPPEEEE. GESPESEE CPOE G1 be] RAEE BB) || PEED] | | ERE EA 


OM USUUCRCA CMS CAAA PUMA See cea eeecceaagasesccsegassgageeagacsegeagiggsetgggsssss 
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2272Q27G227ZAPHHRHZ2 2G 2 2722722222222 2222222 
33333QG23333Q3 BERET 59999G3999292999999999999999999999999399999999999993999923393 
YVTTT 1 LUYETS LAT 11) 1 LEAD CLUDE TELS LEP ETL PTET TICIITITITITTTPTiT Tier itt rir iy 
SSSSBSSHSSSSPSSSPPPMASSSSSPSSSSSSSSBSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
CECUCCCCRSCCBRRRRSSE REC CEES BCE ECSCECUECCCS CECE ECESSESSSESCESCCECCESSCESEESCSSECS 
FUQVIDVTIQUIQTPRORT TRAV ITTV IQ IITA TT IB TTT TTTIT TIT TITTTTTADITTTITVTITTTIVITT VIII 
CRCUCCOSOSHSMLCRRRAC HS Teese Se Meer eaeecBeseeeacsneeecseCesseecsascaguserscsseases 


BSSSSSSSSS PASS PAPERS SSSI SBssSsssssBIsIssssssssssssasssssssssssessssssssssss 


*yese709 ea %e Boe ot 122096 TS ES? 28 SE 3: 37 TS Fs I? E30 13 6: ok 4S 06 OS OG 4? ON 65 SCS! 97 53 $0 55 56 ST 36 556s 61? CDEC ASE ETESEINANRANNEN BOE 


W442 FT 
a SOUGRS «SSEREERGECR ff 
5 ante 8 | pT 


foe on | i te é r 
i BUEGHD) «=6SBEGGGEERRS oO -- Sh BUCHEEREERE =6REEEE | 
| Sagi & SURTERCRRCRTALATEE 8 G898 8 8 . a 


COPCOOVOCHOCHOCRRSHCPPCoOocoococecocn conosco NOOO O ORCL COO ROR RR OOgcogoceocegen 
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ered | CeSery Cee Tp Cd eee COOPCCEL) COPePe ere) Creer ersy Peer! fy 11) ee) Perrys | Peery) 
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BT EREAEEY LED E111 Led LEREREE] EREREELE) LEGE) RRERESEO) EEEREOE) 08111) Ge RRR Bo 
eA te Lg 
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18M AAINTENANCE CIAGNOSTIC PROGRAM FOR THE 1130 SYSTER PART NOo 2191724 — ae 2 oe BBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 2130 SYSTER PART NOs 2191224 

| | | a a ee a ee: PAGE Mele ara | Bees , Rs 4a, 7 a nc eo | — -PAGE PA 

1442 READER/PUNCH FUNCTION TEST - | oo. +1442 READER/PUNCH FUNCTEON TEST 

4 | | | | - bes x. 

0000 | | ORG #81590 30Fi0000 .. Se : ~05D0C 0 OFDO PST . OC fOFOO = PED | “ae - 30F00680 | | 

" ee a i, a or as, | ‘3OFOCGIO ae ee OSDD 0. 0006 | DC 40000 _ » ROUTINE NUMBER BOFONESO |. 

fe ' "PROG TRANSFER VECTOR 30F00020 Fee i O5DE 0 ‘0000 TELL OC” ' 76000 _ B17 SH FUNC .0O- - ‘30F00700 

4 : | oe : 30F00030 Be eo ce OSDF CG O00 | oC — {0000 ~ a .. i ~ .BOFO0710 

(0010 BEGIN EQU (16.: ' 30F00040 eS oh, ae O05E0 0. 0000 .. DC 0000... 7 2 30FOO07T2ZO | 

(OGL1 STARY €QU | BEGING! | = 30F00056. aa a ae ~O5E1 0 0006 -DC #0000 | 3 ae /30F00730. 

0012. ERROR EQU START+1 30F00060 ~~. . oP: + O5E2 1 0618 DC INILZ INITIALIZATION ADDR 30F09746 

0013 LOG EQU FRROR?L 30FOOG70 oo oe O5€3 1 0622 — DC RTO REPEAT 3OFOO7T56 | 

9014S HALT EQU LOGel . -30F000B0 ait, Sole -O5E4 0 0000. MLSCF DC /0000 UST MLSCF NORMAL -  3OFOO76O 

— QO15 ENG EQU. HALT <4 30F00090 | : a . QO5E5 0 0000 , oc 09000 2ND MLSCF BUSY 3QFOO770 

HAE Be se : 7 30F00100° ae OSE6 3 0000 OC #0000 3RD MLSCF TEST INTR 30FG0780 

0016 LOGBY £QU  ENDeL 30F0GL10 < O5€7 O FFFF DC (EEFE TERMINATOR 30F 00796 

0017 RSTKB €QU  LOGBY42 30F00120 i : | a3 | a —_ | 30GF008CC 

0018 ETRAP EQU RSTKB+] 30F00130 bese TK OS Re RE OME RS Se Se aR Ye Soh che Be Se IR Me Se ea Se Te RE he he Hee Me Qe Ree eae A a A ee ae Se Rs ke 30F0C810 

0019 AQ5A EGU  ETRAP+) 30F00140 foo x : 7 | 30F00820 

} % | 30FOC150 se a ko DSH CHECK FOR LEVEL 0 ¥%seugen% 30F00830 

0028 ILO) ©8390 EQU 40 30F00160 e ' , | | 30F00840 

0029 IL) €CU .  JLOF) ~30F00170 | 7 Sree ae | . — BOFO08S5 © 

0024 iL2. €QU :. JLi41 30F00180 O05£8 0 co00 DSHIA DC #0000. ofa, oe E 30FCO860 — 

0028 IL3 EQU IL2+i 30FO00199 © OSES 01 OCOOGSCA X10 LL SENSE SENSE OSH _ 30F00870 

~—6002C IL4 EGU  {b3+} 30F00200 . O5EB O 1000 XEEPS SLA 0 USE FOR TRAP . ~30F 00880 

0030 ILCRP EQU Lass | 30F00210 : G5EC O1 4C2805FC BSC L CKRDOR»+2Z2 CK ROR IF BO - ZOFOOB90 | 

0032 ILPAT EQU _ ILCRP+2 30F00220 OSEE 01 F4000768 | E0R & CNTLI G0O3- 30FC0900 

0033 RQTY EQU ILPAT+} 30F00230 — C5FO 01 D40007D4 STO £ WAS | SAVE DSH 3OFOC91G 

0034 =RQKB EQU RQTY#1 30F00240 O5F2 01 OCO00RCS X30 ££ PUNCH ~~ PCH A COLUMN | 30F 609-0 

9635 © — SVKB EQU ROKB4) 30F00250 ~ O5F4 01 °740108C4 =. +=MDX LL PUNCH,1 INCREASE PCH ADDR 30F00930 

0036 ILIR  EQU SVKGSE: 30F00260 er eee % : : Ce oe or re | : 30F00940_ 

oo % oa ois 30F00270. O5F& O1 C40007D4 LOOK iD &b& WAS © : — | 30FO09506 

0037 AEND EQU > ILIReL | 34 30F00280 - O5SFB O1 ECO00TTS OR LL XERR | ACCUMULATED ERRORS — 30F00960 

0038 AIVD zQu BEND +44 INVELD |  - 30F00290 | OSFA 01 4C8005E8 BSC J] D3W1Aa | 2 | X  S30FGOSTO 

OO3E ALD €QU AIVDS3 SED. ane. acer - 30F00300 7, rr he Fe ea : | Pee RES pte ot 30F00980 

— 0041 | ANINT EQU. * ALD#3 ONO INTRPT 7 | - 30F00310 -..° °°... -. OSFC 01 F4000767 CKRDR GOR & CNTLO  -. 8003 | -. BOFO0990° |. 

. 0044 > — AINT EQU - ANINT+3 INTRPY | a  30F00320 . -OSFE 01 040007D4 _ ~ $70. & WAS - SAVE DSH.” —3OFOLO00.. 

0048 = ANROY EQU . - AINT4#7°- NRDY.. —30F00330 -. 0600.01 0C0008T8 X10 &£ READ ©. READ COMMAND | 3OQFO1LOIO 

304C | ARDY . EQU ANRDY+) = RDY > —30F00340 0602 OL 740108C8 MDX Lo. READ,1 INCREASE RD ADDR 30F01620 

0050 ASHS EQU ARDY+4 SHS” 30F00350. —60604 0 TOFL = MDX LOOK ne or | Es ‘30FOL020 

. 0054 ASB EQU ASWS+4 S/R - BOFO0366 Oe Bln es, ae ie 2, ee Hee  BOFOILO40 — | 

0058 ADSCT EQU ASB44 -30F00370 me a ar Oe ee eee ee =  BOFG1050. — 

OO5A ASCT €QU | ADSCT+2 SELCT.. ' 30F00380 — i stactaca — DSH CHECK FOR LEVEL 4 *oeeumee -  30F01060 | 

0960 AWAS EQU  &8CT46 ~~ HAS . BOFO0390 we as ee ee te “BOFOLO70 

| i. i z 7 - 30F00400 Pee | ok Oe en See? ee ee —BOFOLOSO © 

& - | | - 30F00410 0605 0 0000 — DSWSA DC /0000 . ADDR OF RETURN E 30F01090 

KRKAMY SEAGER E SAAD SRRAHAEMARRERSSARARERSKKEEE TH 30F00420 6606 01 OCCO0BTA  XIO LL. SENSE... SENSE DSH . . —30F0L1G0 

om o eee Se | | ae | 30F00430 0608 0 1090 KEEPS SLA’. QO - USE FOR TRAP : | -30FOT110. 

ee ae BIT SHITTCH SETTINGS ea ke — 30F004640 0609 01 F4000769 = © EGR LL CNIL4G _ CK FOR OP COMPLETE 30FO1120 

eR BL CF, Ve | : 30F00450 0608 OL ECO007T74 .  °* OR EL XERR © ~~ &CCUMULATED ERRORS .BOFOLI320 

*@BIT SW FUNCTION GO. | FUNCTION O21 -30F00460 | . ' 0600 01 D40007D4 -° | STO L. WAS . | SAVE OSW BITS 2OFOL1L49 
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—* O7- PROG IDENT  .-. PROG IDENT 30F00550° > Wa nee; oe ae oP ae a oe . - BOFODL230 
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1442 READER/PUNCH FUNCTION TEST 


0622 O01 
0624 00 
0626 01 
0628 OO 


062A O1 


062D 01 
062F 00 


0631 01 
0633 01 


0635 01 
C637 O 
0638 01 
063A 00 


063C O 


0630 Ol 
O63F Ol 


0641 O12 
0643 01 
0645 Ol 
0647 01 
0649 0 
064A O 


O64B O 
064C Ol 
O64E 01 
0650 O 
0651 0O 


0652 01 
0654 01 
0656 O01 
0658 01 
065A O01 
O65C 0 
065D 0 


O65E Ol 
0660 01 
0662 0 


0663 O1 
0665 O01 


0667 0} 
0669 O 

C66A 01 
066C OO 


066" O 
O66F 01 


DATE 
EC NO. 


650005E8 
©D000028 
65000605 
60900030 


65000631 
6301 

44000893 
4C8000ll 


4400089C 
44000 70C 


65000630 
6302 

44000893 
4€800011 


0001 


C4000940 
D400096A 


65000993 
600008C8 
OCO00B8C6 
4400084F 
7001 
7018 


62B0 
C60009E3 
4C20066E 
T7201 
TOFA 


ocoooscc 
65000943 
6D0008C4 
OCOQ008C2 
4400084F 


7001 


7005 


ocoao00sco 
4400084F 
TODE 


440007D7 
4400070C 


65000678 
6303 

44C00893 
4C800011 


CocoD 


ECOOOSDE | 


O2JAN66 


415490 


RTO 


Pe 
SET 


* 


DX 
STX 
LOX 
STX 
LOX 
LOX 


BSI 
BSC 


tl 
Ll 
L1 
Ll 


Ll 
3 

L 

I 


DSWI1A 
ILO 

DSW4A 
ILCRP 


RT1 

l 

RTU 
START 


STORE INTR ZERO 


RT ADDR 
RT NUMBER 
USE UPDATE RT 


SSSEKTESESKEKEEE SE SHES KEKSE EESEKKKSE HESEKEEKEESEEEE 


* 


ae PF ee 


ROUTINE 1- 


SENSB 
KNOW 


RT2 

2 

RTU 
START 


1 


CHECK STATUS *#*#*8* 


CHECK 1442 STATUS 
CHECK BIT SWITCHES 


RT ADOR 

RT NUMBER 

USE UPDATE RT 
RETURN TO MONITOR 


SEEETESSEDHEESE GECEEESEHESESEEESEEESEESEEEESERE 


*etbe 

* 

RTl1l BSI 
8S] 

x 

SET2 LDX 
LOX 
BSI 
BSC 

* 

ONE OC 

x 

Ps 

eEEKD 

* 

x 

RT2 LD 
STO 

x 

RT2A LDX 
STX 
XxIO 
BSI 
MDX 
MDX 

x 

HOP1 LODX 
LD 
BSC 
MDX 
MDX 

* 
x10 
LOX 
STX 
X10 
8SI 
MDX 
MDX 

x 

HOP2 xXI0 
BSI 
MDX 

* 

SKIP BSI 
BSI 

# 

SET3 LDX 
LOx 
BSI 
BSC 

s 

NTBLK LD 
OR 

O1MAY66 

4154908 


L 


ROUTINE 2- FD A CARD OR PUNCH ® 


WA40 
WAREAt39 


RAREA 
READ 
RORST 
RTL 
HOP] 
SKIP 


-80 
RAREA+80 
NITBLK»Z 


l 
HOP1+41 


STACK 
WAREA 
PUNCH 
PCHST 
RTL 
HOP2 
SKIP 


FOACD 
RTL 
RT2A 


FOLCD 
KNOW 


RT3 

3 

RTU 
START 


ONE 
TELL 


REMOVE TERMINATOR 


RESTORE READ ADOR 
START READER 
USE TIMING LOOP 


LAST CARD RETURN 


LOAD XR 2 

DATA READ 

BRANCH NOT BLANK 
ADJ COL COUNT 


SELECT STACKER 2 
WRITE AREA ADDR 
PUNCH INSTRUCTION 
START 1130 PUNCH 
USE TIMING LOOP 


LAST CARD RETURN 


FEED COMMAND 
USE TIMING LOOP 
REPEAT CYCLE 


USE FEED LAST CARD 
CHECK BIT SWITCHES 


RT ADDR 

RT NUMBER 

USE UPDATE RT 
RETURN TO MONITOR 


SET HALT SWITCH 


SC 


sc 


sc 


sc 


SC 
Sc 


PART NO. 


PAGE 


30F01370 
30F01390 
30F01400 
30F01410 
30F01420 
30F01430 
30F01440 
30F01450 
30F01460 
30F01470 
30F01480 
30F01490 
30F01500 
30F01510 
30F01520 
30F01530 
30F01540 
30F01550 
30F01560 
30F01570 
30F01580 
30F01590 
30F01600 
30F01610 
30F01620 
30F01630 
30F01640 
30F0)650 
30F01660 
30F01670 
30F01689 
30F01690 
30F01700 
30F01710 
30F01720 
30F01730 
30F01740 
30F01750 
30F01760 
30F01770 
30F01780 
30F01790 
30F01800 
30F01810 
30F01820 
30F01830 
30F01840 
30F01850 
30F01860 
30F01870 
30F01860 
30F01890 
30F01900 
30F01910 
30F01920 
30F01930 


- 30F01940 


30F01950 
30F01960 
30F01970 
3001980 
30F01990 
30F02000 
30F02010 
30F02020 
30F02030 
30F02040 


_ 30F02050° 


PROG ID 
PAGE 


2191224 
2 


030F- 
st 


| 


’ 
t 
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1442 READER/PUNCH FUNCTION TEST 


0671 
0673 
0674 
0676 
0678 
O67A 


0678 
067D 
O67F 
0681 
0682 
0684 
0686 


0688 
O68A 
068C 
O68E 
0690 
0691 
0693 


0695 
0697 
0698 
069A 


069C 
0690 


O69F° 


O6A0 
O6A2 
06A3 
O6A5 
O6AT 
O6A9 
OGAA 
O6AB 


O6AC 
O6AD 
O6AE 


O6AF 
0660 
06B2 
06B4 


0686 


0687 
0688 


0689 
06BB 


DATE 


01 


01 
01 
01 


01 
01 
01 


O1 
01 
01 


O1 
01 
01 
01 


01 
Ol 


01 
01 
00 
01 
01 
01 


01 
01 


o OO %) 


01 
01 
01 


01 
Oi 


EC NO. 


040005DE 


6308 
65000 BFF 
44000830 
44000 7DC 
70C2 


65000908 
60000 84E 
65000 8EE 
6304 

4400077D 
C4000940 
D4000S6A 


65000993 
6D0008C8 
oC 000 8C6é 
4400084F 
7008 

44000707 
4400070C 


65000689 
6304 

44000892 
4C800011 


6280 
C6000993 
1803 
4C0406AC 
1003 
04000705 
F60009E3 
44200784 
7201 
TOF2 
TOOC 


1801 
1004 
7001 


1011 
D400070D5 
F60009E3 
44200784 
T1201 
TOFT 
TOCF 


C4000941 
D400096A 


O2JAN66 


415490 


TELL 


8 
ALOBK 
TYPE 
KNOW 
RT2 


MESSAGE NUMBER E 
LOAD BLANKS | 


USE TYPE ROUTINE sc . 


CHECK BIT SWITCHES 


KSESKEKSKKEKESESESKESSS SKS SEKSKSES SESS SERSE SEE SHEERS 


ROUTINE 3- READ 12 BITS/COL *+# 


AMRDY 
MSGel 
ASTOH 

4 

CKSTS 
WwA4O 
WARE A+39 


 RAREA 


READ 
RORST 
RTL 
CHECK~-1 
FOLCD 
KNOW 


RT4 
4 
RTU 
START 


-80 
WARE At80 


3 
TERMRE 
3 

O2B8E 
RAREA+80 
ERRFD,Z 
1 

CHECK 
RT3A 


TERMINATOR 


i. 
4 
XXX] 


17 

O2BE 
RAREA+¢80 
ERRFD.Z 
1 

XXX 

RT3A 


MAKE READY E 
UPDATE MESSAGE 

STK TO HOPPER 

MESSAGE NUMBER 

CHECK 1442 STATUS sc 


REMOVE TERMINATOR 


RESTORE READ ADOR 
START READER 


DELAY LOOP sc 
FEED LAST CARD sc 
CHECK BIT SWITCHES SC 
RT ADOR 

RT NUMBER 

USE UPDATE RT Sc 
RETURN TO MONITOR x 
LOAD XR 2 


DATA PUNCHED 
REMOVE 3 BITS 

CK FOR TERMINATOR 
ADJ BACK 

STO IN OUGHT TO BE 
CATA READ 

BCH ON BITS 

ADJ COL COUNT 

CK NEXT COLUMN 


FGUND ROUTINE *****® 


REMOVE TERMINATOR 
ADJ BACK 


CLEAR ACC TC ZERO 

STO IN OUGHT TO BE 

DATA READ 

BCH ON BITS sc 
ADJ COL COUNT 


SHEEEHERERES ES EEE SEREEE FKEEEKEEEEESEE EES EEEES 


L 


ROUTINE 4— PUNCH 40 COLUMNS .**# 


WA4OA 


STO Lb WAREAC39 


STO 
LOX 
LOX 
8SI 
BSI 
MDX 

* 

* 

KK&EE 

% 

* 

RT3 LDXx 
STX 
LDXx 
LOX 
BSI 
LD 
STO 

x 

RT3A LOX 
STX 
X10 
BSI 
MDX 
BSI 
BSI 

s 

SET4 LDX 
LOX 
BSI 
BSC 

s 
LOX 

CHECK LD 
SRA’ 
BSC 
SLA 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 

s 

* 

KERR 

* 

* 

TERMR SRA 
SLA 
MDX 

* 

XXX SLA 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 

s 

s : 

ERES HD 

x 

* 

RT4 LO 

O1MAY66 

4154908 


CHANGE PCH DATA 


PART NO. 


- PAGE 


30F02060. 


30F02070 


2191224 
2A 


30FO02080. 


-30F02090 
30F02100. 


30F02110 
30F02120 
30F02130 
30F02140 
30F02150 
30F02160 
30F02170 
30F02160 
30F02190 
30F02200 
30F02210 
30F02220 
30FO02221 
30F02222 
30F02230 
30F02240 


30F02250_ 


30F02260 
30F02270 


30F02260 


30F02290 
30F02300 
30F02310 
30F02320 
30F02336 
30F02340 
30F02350 
30F02360 
30F02370 
30F02380 
30F02390 
30F02400 
30F02410 
30F02420 
30F02430 
30F02440 
30F02450 
30F02460 
30F02479 
30F02480 
30F 02490 
30F02500 
30F02510 
30F02520 
30F02530 
30F02540 
30F02550 
30F02560 
30F02570 
30F02580 
30F02590 
30F02600 
30F02610 
30F02620 
30F02630 
30F02640 
30F02650 
30F02660 
30F02670 
30F02680 
30F02690 
30F02700 
30F02710 


PROG iD 


PAGE 


0308-4 
8B 


om | 


ib 


~ 
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1442 READER/PUNCH FUNCTION TEST 


068D Ol 
OoBF O 
06C9 Ol 


06C2 Ol 
06C4 Ol 
06C6 Ol 
06C8 Ol 
O6CA 01 
O6CC O 
O6CD O1 
O6CF Q]1 
06D1 01 


0603 01 
06D5 0 

0606 Ol 
0608 00 


O6DA 01 
O6DC O01 
O6DE O01 


_06E0 O 


OGE1 Ol 


O6E3 01 
O6E5 O01 
O6E7 O01 
O6E9 Ol 
O6EB O 
O6EC 01 
O6EE Ol 


O6FO O1 
O6F2 O 

O6F3 O1 
Q6F5 00 


O6FT O 
O6F8 01 
O6FA 0 
O6FB 01 
O6FD O 
O6FE 01 
0700 01 
0702 01 
0704 
0705 
0706 


0 

0 

0 
0707 O 
0708 O 
0709 0 
O70A O 
070B Ol 
0700 Ol 
O70OF O01 
0711 
0712 
0713 
0714 


oo0o°o 


DATE 
EC NO. 


65000 8FF 
6305 
44000770 


65000943 
é€00008C4 
OCOGO&CC 
Oocoo0osC2 
44000 84F 
TOFS 

OCOOO8CC 
440007D7 
440007DC 


650006DA 
6305 

44000893 
4C800011 


65000908 
6D00084E 
650008EE 
6304 

44000770 


65000993 
6D600 8C8 
oco0oo0 8Cé 
4400084F 
T7008 

440007D7 
4400070C 


65000 T2F 
6306 

44000893 
4C800011 


39208 
C600096B 
1803 
40040707 
1003 
D40007D5 
F600098B 
44200784 
7201 
TOF2 
7018 


1801 
1004 
7001 


1011 
D4&0007D5 
F60009B8 
44200784 
7201 
TOF7 
63FE 
6208 


O2JAN66 
415490 


LOX Ll ALDBK 


LOX 3 5 
BSI tL CKSTS 
* 
DuP LOX Ll WAREA 
STX Ll PUNCH 
X10 L STACK 
XIO bt PCHST 
BSI L RTL 
MDX DUP 
XIO lL STACK 
BSI t FOLCO 
BSI tL KNOW 
* 
SETS LOX Ll RTS 
LOX 3 5 
BSI L RTU 
BSC I START 


* 


KEKETSEKESECKEKERK ES ESSKSEHREKEKSEESESESKKE KEKE SES KEKE 


« 
*£kK£4RE 
& 
* 


RTS LOX Ll AMRDY 


STX (tL1 MSG+2) 
LOx L1 ASTOH 
Lox 3 4 

BSI tL CKSTS 


KT5A LOX Li RAKEA 
STX Ll READ 


X10 L  RORST 
BSI t RTL 
MDX NEXT 
BSI tL FOLCD 
BSI tL KNOW 
a 
SET6 LOX LI RT6 
LOX 3 6 
BSI tL RTU 
BSC I START 


NEXT LOX 2 -40 
COMP LD L2 WAREA+40 


SRA 3 
BSC L CHIPsE 
SLA 3 
STO L O2BE 
EOR L2 RAREA+40 
BSI UL ERRFD,»2 
MDX 2i 
MDX COMP 
MDX NOW 

* 

CHIP SRA 1 
SLA 4 
MDX XXXX+] 

& 

XXXX SLA 17 
STO tL O2BE 
EOR £2 RAREA+40 
BSI tL ERRFDe2Z 
MDX 21 
MOX XXXX 
LOX 3 -2 
LOX 2 -40 

* 

ULMAYS6 


4154908 


LOAD BLANKS 
MESSAGE NUMBER 
CHECK 1442 STATUS 


RESTORE PCH ADDR 
SELECT STACKER 2 
START PUNCH 

USE TIMING LOOP 


SELECT STACKER 2 
FEED LAST CARD 
CHECK BIT SWITCHES 


RT ADOR 
RT NUMBER 


UPDATE ROUTINE 
RETURN TO MONITOR 


ROUTINE 5- RD AND PCH 4#*#* 48444 


MAKE READY 

UPDATE MESSAGE 
STK TO HOPPER 
MESSAGE NUMBER 
CHECK 1442 STATUS 


RESTORE READ ADDR 


START ROR 


USE TIMING LOOP 


FEED LAST CARD 
CK BIT SW SETTINGS 


RT ADOR 
RT NUMBER 


USE UPDATE RT 
RETURN TO MONITOR 


LOAD XR 2 


DATA PUNCHED 
REMOVE 3 BITS 
CK FOR TERMINATOR 


ADJ BACK 


STO IN OUGHT TO BE 


DATA READ 


BCH ON BITS 
ADJ COL COUNT 


REMOVE TERMINATOR 


ADJ BACK 


CLEAR ACC TO ZERO 
STO IN OUGHT TO BE 


DATA READ 


BCH ON BITS 
AOJ COL COUNT 


LOAD XR 3 
LOAD XR 2 


sc 


sc 


sc 
sc 


sc 


“ee 


sc 
sc 


sc 


sc 


PART NO. 


PAGE 


30F02720 
30F02730 
30F02740 
30F02750 
30F02760 
30F02770 
30F02780 
30F02790 
30F02800 
30F02810 
30F02820 
30F02830 
30F02840 
30F02850 
30F02860 
30F02870 
30F02880° 
30F02890 
30F02900 
30F02910 
30F02920 
30F02930 
30F02940 
30F02950 
30F02960 
30F02970 
30F02980 
30F02990 
30F03000 
30F03010 
30F03020 
30F03030 
30F03040 
30F03050 
30F03060 
30F03070 
30F03080. 
30F03090 
30F03100 
30F03110 
30F03120 
30F03130 
30F03140 
30F03150 
30F03160 
30F03170 
30F03180 
30F03190 
30F03200 
30F03210 
30F03220 
30F03230 
30F03240 
30F03250 
30F03260 
30F03270 
30F03280 
30F03290 
30F03300 
30F03310 
30F03320 
30F03330 
30F03340 
30F03350 
30F03360 
30F03370 
30F03380 
30F03390 


PROG ID 
PAGE 


2191224 
3 


030F-1 
3 


- — - — 


ea 


_OTLA 


en as ate Ne te OTT Ste cae 
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0715 01 
0717 O1 
0719 


0718 


O71C 
0710 
O71E 
0720 
0721 


oooo0o o00 


0722 01 
0724 O1 
0726 01 
0728 O1 
O72A O1 
Oo72C Ol 
O72E O 


O72F O1 
0731 0] 
0733 Ol 
0735 0 
0736 0 
0737 Ol 
0739 O01 
0738 Ol 
0730 O1 
O73F Ol 
0741 01 
0743 Ol 
0745 01 


0747 O1 
0749 01 
074B 01 
074D Ol 
O74F 01 
0751 0 
0752 Ol 
0754 Ol 


0756 01 
0758 Ol 
075A 9 
O75B 01 
0750 01 
O75F Ol 
0761 00 


0763 00 


(0765 1 


0766 
0767 
0768 


ooo 


DATE 
EC NO. 


C60009BB 
O700C9E4 
T3FF 
7201 
TOFS 


6208 
1011 
D60009BB 
7201 
TOFC 


C4000942 
D40009E2 
65000993 
6D000 8C4 
oco00sC2 
4400084F 
T0B4 


65000904 


6D00084E 


650008CE 
6301 

4046 

65000993 
6D0008C8 
0C0008C6 
4400084F 
C40009E2 
EC000 766 
D40009E2 
440007D7 


65000993 
6D0008C4 
0C000 BCC 
ocooosCc2 
44000 84F 
TOF5 

ocoooscc 
44000707 


44000 70C 
OCOOO8CA 
1003 

4€C100763 
67000756 
6FOOO5E4 
4Cso000ll 


44800015 
050C 


0008 
8003 
4003 


O2JAN66 


415490 


FLIP LD 
$TO 
MDX 
MDX 
MDX 


LOX 
SLA 
CLEAR STO 
MOX 
MDX 


NOW LO 
STO 
LOX 
STX 
X10 
8SI 
MDX 

B 


L2 
L3 


RAREA+40 
RAREA+81 
=I 

1 

FLIP 


-40 
17 
RAREA+40 
1 

CLEAR 


WAT79 
RAREAt79 
RAREA 
PUNCH 
PCHST 


RTL 


RTSA 


DATA READ 
NEW LOCATION 
ADJ XR 3 


ADJ XR 2 


LOAD XR 2 


CLEAR ACC 
CLEAR COL 1 TO 40 


SET TERM FOR PCH 


SET PCH ADDR 
START PUNCH 
USE TIMING LOOP sc 


KSEKEKEKSESSSKEKSKEE SKEKEESSKE EEE SESESACKSEESSESESESSE 


ad 

eeSaR 

* 

* 

RT6 LOX 
STX 
LOX 
LOX 
BSI 
LOX 
STX 
x10 
BSI 
LD 
OR 
sto 
BSI 


RECK LDX 
STX 
X10 
X10 
BSI 
MOX 
x10 
BSI 


RTEND BSI 
X10 
SLA 
BSC 
LOX 
STX 
8SC 


RTED SSI 
OC 

* 

* 


il 
Ll 
Ll 


cre 
ot pee 


emer re Pr reer er errer”e 
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ABLK 
MSG41 
ANYP 

1 

CKSTS 
RAREA 
READ 
RDRST 
RTL . 
RAREAtT9. 
BIT12 
RAREAtT9 


‘-FOLCOD 


RAREA 
PUNCH 
STACK 
PCHST 
RTL 
RECK 
STACK 
FOLCD 


KNOW 
SENSE 
3 


RTED,— 
RTEND 
ML SCF 
START 


END 
PST 


BLANKS MAKE READY E 


ANY PATTERN PLUS 
MESSAGE NUMBER 
CHECK 1442 STATUS sc 


RESTORE RD ADDR 

START READER 

USE TIMING LOOP sc 
LAST COL DATA 

SET TERMINATOR 

REPLACE DATA 

FEED LAST CARD sc 


RESTORE PCH ADDR 

SELECT STACKER 2 

START PUNCH | 

USE TIMING LOOP sc 
REPEAT NO LAST CARD 
SELECT STACKER 2 

FEED DATA CARD sc 


CHECK BIT SWITCHES sc 


SENSE DSW 

CHECK FOR LAST CARD 
BR IF NOT LAST CARD 
LOOP THRU MONITOR 
UNTIL LAST CARD 
GOES OFF 


TERMINATE PROG 


KKKSESKEKSKEKESKSES SESSSEKESY SKEKES EK SEKSEKSE KE KEVEE 


. 
eGR 

& 

& 

BIT12 DC 
CNTLO DC 
CNTL1 OC 


O1MAY66 


4154908 


STORAGE AREA 8464660096960 46648 


/0008 
48003 
44003 


BIT 12 
ROR COL REQ 
PCH COL REQ 
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30F03520 
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30F03640 
30F03650 


30F03660, 
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30F03760 
30F03770 
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1442 READER/PUNCH FUNCTION TEST 1442 READER/PUNCH FUNCTION TEST 





-30F04740 





| 
| 


ren, ig meta 


s 
0769 0 0800 CNTL4 DC /0800 OP COMPLETE 30F04060 | Scpeceeecescieoiue 3006750 
076A 0 0000 CONST 0C /0000 TIMING COUNT 30F04070 ee ROOTING CERRD: 2 RGrOLTEO.. 2 
076B 0 6900 COUNT DC /0000 SHIFT COUNT 30F04080 : | spas tes 
0762 0 0000 EXTRA DC /0000 RDUTINE STORAGE 30F04090 Soa Gr e0ee Eee. ioe Jens eotuae Mae et. eeeaa aan 
0760 0 C00 SAVE! sDE prone a a BoE ne iG O7TAA 0 6102 LOX 12 NUMBER OF MODIFIERS 30F04790- 
O76E O 8000 oe Senoe. . Heauii ner MBnuece aORGS120 O7AR 0 620A LOX 2 10 MESSAGE NUMBER 30F04800 
O76F 0 0000 SG: «BE coeur O74c O1 6700091E LDX L3 AWASB MSG- WAS SHOULD BE 30F04810 
0770 0 7007 SWA MDX X IRECD-SWI-1 VALUE OF BCH = PROI__30F04130 pe oer ee ae =e SOR O‘E20 
0771 O 1000 SWB OC Ageia apt d eae eacaa ian O7AF G D025 STO 02BE CORRECT DSW | 30F04830 
0772 0 7006 SWJ MDX X IRECD-SW-1 EQUAL VALUE OF BCH = PROZ 30F04150 BIAr p Dezs re Spe Ce ep sae SUPE. Ke. “aocaeece 
0773 0 OFT SWE» MOX =X = RTLA-SW1-1 EQUAL VALUE OF BCH  PRO1 30F04160 A aL ae pce: Sh iene Sera TOCPRHG ey. “SGEORa6O 
0774 0 0000 XERR OC 4/0000 EXTRA ERROR poe geiae . ; 30F04860 
x 
| | 30F04870 
KEES OEEKESES EEEREES EEE OERERS EE OOEEE SES EEEEE 30F04190 * 
* 30F04200 ness ROUTINE ERROR TYPE OUT seeeeee8 30F04880 
tees COMMON USE ROUTINES ##4480¢e492 30F04210 * 30F04900 
F04220 
; 30F04230 0733 0 0000 ETYPE DC 40000 SE 30F 04910 
sesso —aUSY ROUTINE seseeennennenanene —doroteaa gigs G1 Exagosoe “TE 4 Tett sar,sunrcn sronace | 3orasazs 
OF04 
a SOFOGSEO O7B7 01 4CA807B3 ; BSC 1 ETYPE.+Z 8CH ON MINUS SX 30F 04940 
0775 0 0000 BUSY DC O 7 SE  30F04270 | 
7 0789 0 0915 STX 1 INSTE NUMBER OF MODIFIERS 30F04960 
0776 01 650008DF EDs, by. ReUSy aap geen cca O7BA 0 6A16 STX 2 MSGN MESSAGE NUMBER 30F04970 
0778 0 6302 LOX ==32 BEoSo ce cNunuer mi 0788 0 6816 STX 3 AMSG ALPHA MESSAGE 30F04980 
0779 01 44000830 BSI L TYPE USE TYPE RT SC 30F04300 Pe | mpl 
O778 O1 4C800775 BSC I BUSY RETURN TO PROG Sx 30F04310 | sche MerGseeOis. “HEOV Wei UE ERROR CALL ON ERR RTI- MON SC 3005000 
* | 30F04330 | O7BE 1 O7CF DC INSTE ADDR OF ERROR MSG - -30F05010 
HERES CHECK STATUS ROUTINE ##¢¢¢00082 30F04340 | area . San = yaaa ADDR OF BUSY eacorada 
: 30F04360 | : 30F0S040 
| 30F05050 
0770 0 0000 CKSTS DC /0000 SE  30F04370 07C1 0 1010 =e ne CLEAR ACS FOCbEOEG 
5 TYPE USE TYPE RT | SC  30F04380 07C2 0 0010 
O77E O1 44000830 ook 07C3 01 65800783 LDX I1 ETYPE 30F05070 
0780 01 4400089C BSI t SENSB USE SENSE RT SC  30F04390 aconecs cee Iny ml cee eer Meee pero 
0782 01 4C80077D BSC I CKSTS | RETURN TO PROGRAM SX  30F94400 07C5 01 6DO0OSE 
* 30F04410 07C7 00 4C800011 BSC I START RETURN TO MONITOR SX  30F0S090_ 
| | 30F05100 
* | 30F04420 . 
07C9 01 650007B8C  REPT1 LDX 11 REPT BUSY ROUTINE 30F05110 
atte ERROR FOUND ROUTINE *#*¢e¢e8¢82% areal ac O7CB 01 6DOOOSES STX Ll MLSCF4¢l SET MLSCF me 30F05120 
¢ , | 30F04450 O7CD CO 4C800011 BSC I START RETURN TO MONITOR Sx 30F05130 
0784 0 0000 ERRFD DC /0000 ADDR STG — SE SF Gssed 7 ; 30F05150 
0785 0 FO4F EOR O2BE ERROR AS FOUND 0 : | 
0786 0 DO04D STO WAS STORE FOR TYPING 30F04480 eeees EOF—- 00 0000 0000 0000 WAS S/B COL 30F 05160 
ct uid 7 * 30F05180 
0787 0 7251 MDX 2 +81 30F04500 30F05190 
S780 8 1858 xeeen St 73" wor nu suip rats eroaate cree 9 0c —TWSTE se yagoo oxo coun 3905199 
piensa. ieae co eet pandeer ne 30F04530 07D1 0 0000 MSGN DC /0000 MESSAGE NUMBER 30F05210 
eis 1000 KEEP2 SLA 0 MOX WILL SKIP THIS 30F04540 07D2 0 0000 AMSG OC 40000 ALPHA CONRTOL 1 30F05220 
: sre oe «ta eo. «6 
FO4 07D4 0 0000 WA | 
prec OF ee 0008cs Ue prea eave cas sss 07D5 0 0U00 O28E OC 70000 WHAT BITS OUGHT TO BE 30F05250 
O78E O1 6FOOOSCC oe ee nek aebae is 07D6 0 0000 COL oC /0000 COL IN HEX 30F05260 
0790 01 67000929 LDX L3 ACOL MSG- COLUMN 30F04580 qaedss76 
0793 0 6103 LDX 13 NUMBER OF MO | 
0794 0 6209 LDX 29 MESSAGE NUMBER 30F04610 : anes FEED LAST CARD ##ese¢esseueeees 30F05290 
0795 01 6700091 LDX L3 AWASB ALPHA MESSAGE 30F04620 é | aocOeaio 
0797 0 4018 BSI ETYPE ERROR EYEE oer oS, eae eee 0707 0 0000 FDLCD OC 70000 RETURN ADDR «$=: 30F05320 
0798 01 678008CC LDX 13 STACK RESTORE XR3 30F04640 : : Ae cee seaaanas eat esac 
079A 01 668008CA LDX 12 SENSE RESTORE XR2 30F04650 0708: 01, OCo0UseO oe. 4 cacee SET UAN TO DADE ae. Ceaenesen 
079F 01 74020784 MDX L ERRFD»2 ADD 2 TO RETURN ADDR 30F04660 a LL pee on OEUe : -30F05360 
O79E 01 OCO008CC KIO L STACK SELECT ERROR CARD 30F04670 7 S6E65570 
O7AO 01 C40005DE LDL TELL BIT SWITCH STG 4b 
O7A2 0 1009 SLA 9 CK BIT 9 TYPE ALL ER 30F04690 aa ENO Seen Se CMnee Venere =p 
O7A3 01 4C900784 BSC I ERRFD»-. BCH PLUS OR ZERO Sx 30F 04700 : : SREOcLOO 
7AS 01 74FEOT84 MDX L ERRFD»-2 SUB 2 RETURN ADOR 0 | 
ByAd Gi-acao0 Tee BSC I ERRFD. RETURN TO ROUTINE SX  30F04720 o70C 0 0000 KNOW OC /0000 SE 30F 05410 
‘ 30F04730 . O7DD 01 C40005DE LD. Lt TELL BIT SWITCH STORAGE 30F05420 
| ae TE OZJAN66 O1MAY66 PROG ID O30F-4 
DATE O2JAN66 O1MAY66 PROG ID 030F-4 a DA | | 
EC NO. 415490 4154908 PAGE 4 : i i 
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PART NO. 


2191224 
‘SA 


PROGRAM FOR THE 1130 SYSTEM PART NOw 2191224 13M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
| : PAGE / § a | PAGE — 
1442 READER/PUNCH FUNCTION TEST 1+42 READER/PUNCH FUNCTION TEST 
O7D0F 01 4CO4080E BSC L STOPsE CK FOR PROG HALT 30F05430 OB2E 01 4C800829 BSC I NROY RETURN TO PROG $x 30F06110 
O7TE1L O01 7400050F GONE MDX L_ TELL41,0 CHECK FOR BEING O 30F05440 : | * — 30F06120 
G7E3 0 7003 MDX GET 30F05450 * 30F06130 
O7¢4 O 100A SLA 10 30F05460 s¢ee8 PRINT ROUTINE ##&£#¢086¢66¢¢680% ' 30F06140 
O7E5 O01 4€280808 BSC L FIND,+Z BCH ON MINUS 30F05470 * 30F06150 
* . , 30F05480 * 30F06160 
O7E7 01 C40005DF GET LO L TELL) BIT SW STG FOR ROUT 30F05490 0830 0 0000 TYPE OC . 70000 | SE 30F06170 
O7E9 O 630F-: LOX 3 15 LOAD XR 3 30F05500 | 0831 01 C40005DE 1D Lt TELL BIT SWITCH STORAGE 30F06160 
OTEA 0) S4C2007F2 BSC L STEP eZ BCH ON BITS’ - 30F05510 0833 0 100D SLA 13 30F06190 
O7TEC O01 C400076C LD L EXTRA STG FOR RT NUMBER 30F05520 0834 01 4CA80830 BSC I TYPE,+Z BCH ON MINUS SX 30F06200 
O7TEE O01 4C98070C BSC I KNOW,+- BCH UN ZERO SX 30F05530 0836 0 6916 STX 1 MSG UPCATE MESSAGE 30F 06210 
O7FO O1 6780076B LOX 13 COUNT LOAD SHIFT COUNT 30FO055%0 0837 0 6814 STX 3 4SG-1 NEW MSG NUMBER 30F 06220 
* 30F05550 s 30F 06230 
O7F2 0 1340 STEP StCA 3 0 LOOKING FOR BITS 30F05560 0838 00 44800013 TYPEA BSI I LOG CALL ON LOG Sc 30F06240 
O7F3 01 4C9807DC BSC I KNOW,+4—- BCH ON ZERO SX 30F05570 O83A 1 O84A oc INSTL ADDR OF MSG 30F06250 
OV7F5 O01 F40007T6E EOR L SAVE+1 REMOVE BIT FOUND 30F05580 0838 i 0844 OC TYPES BUSY ADDR 30F06260 
O7F7 O01 D400076C STO tL EXTRA SAVE REST OF BITS 30F05590 083C 0 0900 oC 4/0000 RUN WAIT 30F06270 
O7F9 O1 6F00076B8 STX &3 COUNT SAVE REST OF SHIFT 30F05600 0830 0 1010 SLA 16 CLEAR ACC 30F08260 
O7F8 O 1010 SLA 16 | 30F05610 O83E 0 DOOF STO MSG+1] CLEAR 2 ND MSG AREA 30F06290 
OTFC O01 D400050F STO Lt TELL+41 CLEAR ROUTINE STORA 30F05620 * 30F06300 
O7TFE 91 4F800800 BSC 13 SETUP TO NEW RCUTINE SX 30F05630 . O083F 0 COFO LD TYPE | RETURN ADDR 30F06310 > 
| e 30F05640 0840 01 OD40005E4¢ STO L MLSCF UPDATE RETURN 30F06320 
0800 1 0756 SETUP DC RTEND ROUTINE END 30F05650 0842 00 4C€800011 BSC I START RETURN TO MONITOR SX 30F06330 
0801 1 O6FO oc SET6 ROUTINE 6 30F05660 a | 30F06340 
0802 1 O6FO OC SET6 ROUTINE 6 30F05670 0844 01 65000838 TYPEB LOX Ll TYPEA BUSY ROUTINE 30F06350 
0803 1 0603 OC SETS ROUTINE 5 30F05680 0846 01 6D0005E5 STX Lil MLSCF¢1 SET MLSCF -30F06360 
080% 1 0695 oc SET4 ROUTINE 4 30F05690 0848 00 4C800011 BSC I START RETURN TO MONITOR SX 30F06370. 
0805 1 0667 Dc SET3 ROUTINE 3 30F05700 | * 30F06380 
0806 1 0635 oc SET2 ROUTINE 2 30FC5710 * 30F 06390 
O807 1 O62A oC SET1 ROUTINE 1 30F05720 | Poe ey AOF-— 00 ALPHA MESSAGE 30F06400 
* - 30F05730 * 30F06410 
0808 01 C4000 76F FIND LO tL STG ~ OLO ROUTINE ADDR 30F05740 s 30F06420 
080A 01 D40005E4 STO & MLSCF | a | 30F05750 084A 0 0000 INSTLt DOC 40000 WORD COUNT 30F06430 
osoc oo 4C8s00011 BSC I START RETURN TO MONITOR SX 30F05760 084B 0 0000 oc 40000 HEX CONTROL 30F06440 
% | | i = : | 30F05770 084C 0 0000 ~ oc 40000 MESSAGE NUMBER 30F 06450 
O80E 01 65000914 STOP LDX L1 AHALT MSG- PROG HALT 30F05780 084D 0 0000 MSG DC 40000 ALPHA CNTL 30F06460 
0810 0 6307 LOX 3 7 ~ MESSAGE NUMBER 30F05790 0O84E 0 0000 oC 4/0000 ALPHA CNTROL 2 30F06470 
O81l O01 44000830 BSI tL TYPE . USE TYPE ROUTINE Sc 30F05800 * 3006480 
* - =. 30F05810 * 30F06490 
0813 01 65000819 SPOT LOX L1 OVER GET MLSCF 30F05820 *£KEKE ROUTINE LOOP *##44¢4464644¢¢4¢2808 30F06500 
0815 01 6D0005E4 STX Lil MLSCF SET MLSCF : 30F05830 * . 30F06510 > 
0817 00 4C800011 8SC I START RETURN TO MONITOR SX 30F05840 Sd 30F06520 
| * 3 30F05850 084F 0 0000 RTL OC 0 SE  30F06530 
0819 01 C40005DE OVER LD L TELL BIT SWITCH STORAGE SE 30F05860 0850 00 6700F000 . LOx t3 /FOOO TIMING CONSTANT 30F06540 
0818 01 4C€040813 ; BSC L SPOTsE BCH ON BIT 15 30FO5870 0852 01 6FOOOT6A STX L3 CONST 30F06550 
0810 0 T70C3 7 MDX GONE 30F05880 * 30F06560 
* 30F05890 0854 01 6500085A RTLA LOX Ll RTM 30F06570 
* 30F05900 0856 01 6D0005E6 STX Ll MLSCFe2 SET MLSCF 30F00580 
e404 LAST CARD DEVISE *#4#*tteee844088 30F05910 0858 OO 4C8000)11 BSC I START RETURN TO MONITOR | Sx 30F06590 
* 30F05920 ® : 30F06600 
* 30F05930 O85A Gl T401L076A RTM MDX LL CCNST»1 40D ONE TO CONSTANT Se 30F06610 > 
O81E O 0000 . LCD DC 0 SE 30F05940 ossc 0 T7OFT SW1 MDX RTLA MDX RTLA OR MDX IRECD PMO] 30706620 
O81F Cl 650008E4 LOx tl ALCD LAST CARD 30F05950 085D 0 1000 SW SLA 0 Sta 0 OR MDX IRECO PMO2 30F06630 
0821 0 6303 LOX 3 3 MESSAGE NUMBER 30F05960 O85E 0 6100 LOx 1 0 NUMBER OF MODIFIERS 30F06640 
0822 0 4000 BSI TYPE USE TYPE RT —6$ec 30F05970 O85F 0 6208 LOX 211 MESSAGE NUMBER 30F06650 
0823 0 1010 SLA 16 30F05980 0860 00 67000041 LOX 3 ANINT MSG~ NO INTERRUPT 30F06660 
0824 0 DOAF STO WAS ‘30F05990 0862 01 44000783 BSI tL ETYPE USE ERROR TYPE OUT sc 30F06670 | 
0825 01 7401084F MOX L RTLol CHANGE RETURN ADDR 30F06000 ; * 30F06680 
0827 01 4CB80084F BSC I RTL USE TIMING LOOP SX 30F06010 0864 01 C40007D4¢ IRECO LD tL WAS BITS ON DURING INTR SE £30F06690. 
* 30F06020 0866 01 4C180888 BSC L ZIPyt- BCH ON NO BITS 39F06700 
* 30F06030 0868 0 630F LDX 3 15 LOAD XR 3 30F06710 
cee NOT READY #48€¢ 666606646 04K40608 30F06040 * 30F06720 — 
+ 30F06050 0869 0 1340 INERR SLCA 3 0 LOOK FCR BITS 30F06730 
* 30F06060 O86A 01 FS000T6E EOR Lt SAVE) REMOVE BIT FOUND 30F06740 
0829 0 0000 NRDY OC 40000 SE 30F06070 086C 01 04000760 STO tL SAVE SAVE REST OF BITS 30F06750 
082A 00 6500004B LOX Li ANRDY NOT READY 30F06080 O86E 0 1010 SLA 16 30F06760 
O082C 0 6306 LOX 3 6 MESSAGE NUMBER 30F06090 O86F 01 04000705 STO & O2BE 30F 06770 
082D 0 4002 BSI TYPE USE TYPE RT $C 30F06100 — * | 7 30F06780 
DATE O2JAN66 OLMAY66 PROG ID 030F-4 : DATE O2JAN66 OlMAY66 PROG ID o0F =) 
EC NO. 415490 4154908 . PAGE 5 EC NO. 415490 4154908 PAGE 5 
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0871 O1 
0873 Ol 
0875 O01 
Os7T? Oi 
0879 Ol 
O87B 01 
O87D Ol 
O87F 01 
0881 O 

0882 0 

0883 01 
0885 01 
0887 Ol 
0889 00 


088B Ol 
088D 0 
O8BE 01 


0891 01 


0893 0 
0894 O1 
0896 01 
0898 Ol 
089A Ol 


089C O 
0890 O1 
O89F Ol 
O8Al 01 
O8A3 Ol 
O8A5 Ol 
O8A7 01 
O8A9 O1 
O8AB 01 
O8AD O01 


OB AF 
0880 
O8Bl 
08B2 
0863 


08B5 
08B6 
O8B7 
08B8 
O8B9 
O8BA 
O8B8 
oesBc 
08BD 
O8BBE 


P= fad pet Pmt pet pee pnd fd fed pet ee ped fee ped ped et 


DATE | 
EC NOo 


ve 


sen ae ee — - | ua, ‘a 
- a. oy a, . \ Neo wae 


GEO OO8CA 
6FOOO8CC 
47800 BAF 
668008CA 
678008CC 
C4000760 
4C200869 
C4000772 
DOOB 

0847 

4C18088B8 
650008 82 
6D0005E5 
4C800011 


C4000773 
DOCE 
C4000771 
DOCC 
4C80084F 


0000 

6D00005E4 
600U0 T6F 
6F00050D 
4C800893 


0000 

OCO0O8CA 
D4000 704 
4C98089C 
C4000772 
04000850 
650008AD 
6D00084F 
“CO00864 
4C80089C 


0829 
0775 
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O7A9 
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O7A9 
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O7A9 
OB1E 
OTA9 
O7TA9 
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BOX 


ZIP 


DS¥WVBT 
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STX 
STX 
BSI 
LDX 
LOX 
LD 

BSC 
LD 

STO 
X10 
BSC 
LOX 
STX 
BSC 


LO 

STO 
STO 
BSC 


DC 

STX 
STX 
STX 
BSC 


oc 

X10 
STO 
BSC 
LD 

STO 
LDX 
STX 
BSC 
BSC 


DC 
oc 
oc 
OC 


oc 


oC 
oC 
OC 
DC 
OC 
DC 
oC 
OC 
oc 
DC 
OC 
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L2 
3 
13 
12 
13 


Li 
Li 
L3 


errr rre ler 
po oe 


FOR THE 1130 SYSTEM 


SENSE 
STACK 
DSWBT 
SENSE 
STACK 
SAVE 
INERR,Z 
SwJ 

SW 
SENSE 
ZIP y+— 
BOX 

ML SCF41 
START | 


SWL 
Swi 
SWB 
SW 

RTL 


SAVE XR2 

SAVE XR3 

IDENTIFY BIT FOUND 
RESTORE XR2 
RESTORE X23 
REMAINING BITS 

BCH ON BITS 


SET SWITCH IN RTL 
SENSE OSW 


. BCH ON NO BITS 


GET MLSCF 
S€T MLSCF 
RETURN TO MONITOR 


RESTORE SwITCH 


RESTORE SWITCH 
RETURN TO PROG 


ROUTINE UPDATE *€¢€¢444¢4¢86¢24¢¢6 


4/0000 
ML SCF 
STG 
PSTel 
RTU 


RT ADOR 

ROUTINE ADDR 

RT NUMBER 

RETURN TO ROUTINE 


SENSE DSW BITS #8 44486466 66448 


0 ; 
SENSE 
WAS 
SENSB 9#- 
SWJ 

SW 

THIS 

RTL 
IRECD 
SENSB 


PROGAM HANDLED SENSE 
SENSE OSW 

STORE OSW 

NO BITS FOUND 


SET SWITCH IN RTL 
LOAD RETURN ADDR 


TO TYPE CONDITIONS 
RETURN TO PROG 


IDENTIFY DSW ERROR ##4#4¢¢48¢¢8¢% 


NRDY 
BUSY 
ERR} 
ERR1 
ERR1 
ERR1 
ERR1 
ERR 
ERR1 
ERR} 
ERR1 
ERR1 
LCD 

ERR] 
ERR1 
ERR] 


15 
14 
13 
12 
ll 
10 


OP COMPLETE 


Omnyw fFNO al wo 


SHESEE SEES SEREK HEEEEES EES EERE EEEEEEEEEESSEEEEEE 


OLMAY66 
4154908 


PRO2 
SE 


SX 


PROL 


PRO2 
SX 


SE 


$x 


SE 


PRO2 


SX 
SESX 


PART NO- 


PAGE 


30F06790 
30F06800 
30F06810 
30F06820 
30F 06830 
30F06840 
30F06850 
30F06860 
30F06870 
30F06880 
30F06890 
30F06900 
30F06910 
30F06920 
30F06930 
30F06940 
30F06950 
30F06960 
30F06970 
30F06980 
30F06990 
30F07000 
30F07010 
30F07020 
30F07030 
30F07040 
30F07050 
30F07060 
30F07070 
30F07080 
30F07090 
30F07100 
30F07110 
30F07120 
30F07130 
30F07140 
30F07150 
30F07160 
30F07170 
30F07180 
30F07190 
30F07200 
30F07210 
30F07220 
30F07230 
30F0T240 
30F07250 
30F07260 
30F07270 
30F07280. 
30F07290 
30F07300 
30F07310 
30F07320 
30F07330 
30F07340 
30F07350 
30F07360 
30F07370 
30F07380 


30F07390 | 


30F07400 
30F07410 
30F07420 
30F0T430 
30F07440 
30F07450 
30F07460 


PROG 10 
PAGE 


2191224 
6 


030F-4 
6 


cet ene nett I teh ESP AN 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM — 


1442 READER/PUNCH FUNCTION TEST 


& 
eee es MESSAGE AREA €49860% 400646 686068 
* 
* i 
08CO 0000 BSS E— 0 | 
08CO 0 0000 FDACO DC 40000 FEED A CARD 
O8C1l O 1402 DC 41402 
08C2 0 0000 PCHST DC #0000 START PUNCH 
08C3 0 1401 oc 41401 
08C4 1 0943 PUNCH DC WAREA PUNCH 
08C5 0 1100 OC #1100 
08C6 0 0000 RORST DC /0000 START READER 
ORC7T O 1404 DC 41404 
08C8 1 0993 READ OC RAREA READ 
08C9 0 1200 oc 41200 
O8CA 0 0000 SENSE OC /0000 SENSE DSW 
O8CB 0 1703 OC 41703 | 
08CC 0 0000 STACK OC /0000 SELECT =2 STACKER 
O8CD 0 1480 oc /1480 
EESKKEKEKSESE KES HECEKSKKERSESSESESSSKESSESKEESEESESSE 
2 | 
O8CE 9 3€00 ANYP DC /3€00 ANY PATTERN PLUS 
O8CF 0 7600 pc /7600 
0800 0 A600 oc 44600 
0801 0 2100 oc /2100 
08D2 0 5600 | pc 45600 
08D3 0 3E00 pC /3€00 
0804 0 9€00 oC /9€00 
08DS 0 9E00 oc 49200 
0806 0 3600 pc 13600 
0807 0 6200 oc 46200 
08D8 0 7600 pc 47600 
0809 0 2100 OC 42100 
08DA 0 5600 oc 45400 
080B 0 SECO oc /5€00 
08DC 0 8200 oc /8200 
O8DD 0. 9A00 oc 49400 
O8DE O FFFF oc /FEFF 
x 
O8DF 0 1A00 ABUSY DC /1A00 BUSY 
O08EO O 8200 DC /8200 
‘08E1 0 9A00 oc /9A00 
OBE2 0 A600 oc /A600 
O8E3 0 FFFF oc /FFEF 
s 
08E4 0. 5E00 ALCD 0C /5€00 LAST CARD 
OBES 0 3E00 oc /3€00 
O8E6 0 9A00 OC 49800 
O8E7 0 9E00 oc /9€00 
O8E8 O 2100 pc 42100 
O8E9 0 1€00 DC /1E£00 
O8EA 0 3€00 oc /3€00 
O8EB 0 6200 oc 46200 or 
OBEC 0 3200 OC 13200 
O8ED O FFFF pc /EFFF 
* 
OBEE 0 SE00 ASTOH DC /SE00 LOAD FROM STK 2 
O8EF 0 5200 pc 45200 — | 
~08F0 0 3€00 oc /3€00 | 
O8Fl 0 3200 . oc 43200 
O8F2 0 2100 oc 12100 
O8F3 0 1200 Dc 11200 
O8F4 0 6200 oc /6200 
08F5 0 5200 pc /5200 
O8F6 0 7200 oc /7200 
O8F7 0 2100 oc /2100 
O8F8 0 SA00 DC 49400 
DATE O2JAN66 O1MAY6E 
EC NO. 415490 415490B 


ci ee OER MMPTE a 


PART NO. 2191224 
PAGE 6A 


30F07470 
30F07460 
30F07490 
30F 07500 
30F07510 
30FO0T520 


- 30F07530 


30F07540 
30F07550 
40F07560 
30F07570 
30F07580 
30F07590 
30F07600 
30F07610 
30F07620 
30F07630 
30F07640 
30F07650 
30F07660 
30F07670 
30F07680 
30F07690 
30F07700 
30F07710 
30F07720 
30F07730 
30F07740 
30F07750 
30F07760 
30F0T770 
30F07780 
30F07790 
30F07800 


30F907810 


30F07820 
30F07830 
30F07840 
30F07850 
30F0 7860 
30F07870 
30F07880 
30F07890 
30-07900 
30FO07910 
30F07920 
30F07930 
30F07940 
30F07950 
30F07960 
30F07970 
30F07980 
30F07990 
30F08090 
30F08010 
30F06020 
30F08030 
30F 08040 
30F08050 
30FO&8060 
3°FO80T70 
36F08080 
30F08090 
30F08100 
30F08110 
30F08120 
30F08130 
30F08140 


PROG 10 4 030F-4 
PAGE | 6A - 


omy 




















— 0923 


093° 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1442 READER/PUNCH FUNCTION TEST 


OBFS 
O8FA 
O8FB 
O8FC 
O8FO 
O8FE 


O8FF 
0900 
0901 
0902 
0903 


0904 
0905 
06906 
0907 
0908 
0909 
090A 


0908 
090C 
090D 
090E 
090F 
0910 
o911 
0912 
0913 


0914 
0915 
0916 
O91T 
0918 
0919 
O91A 
0918 
o91Cc 
0910 


O91E 
O91LF 
0920 
0921 
0922 


0924 
0925 
0926 
0927 
0928 


0929 
O92A 
0928 
092C 
0920 


O92E 
09<¢F 
0930 
0931 
0932 
0933 
0934 


DATE 
EC NO. 


eoo0ooo0oocoeo oeooocd eoo0ocoeo0oo0oo0oo0oo0oo oo0ooeo0ocoo0cocedo0o oo0oo000coe000eoo0 ecoon0oqoc0ce ooooo oooo0oo9d0d 


9E£00 
5400 
2100 
ps00 
2100 
FFFF 


5£00 
5200 
3E00 
3200 
2100 


1A00 
SE00 
3E90 
7600 
5A00 
9A00 
2100 


7200 
3E00 
5A00 
3600 
2100 
6200 
3200 
A600 
FFFF 


5600 
6200 
5200 
1600 
2100 
2600 
3E00 
5£00 
9E00 
FFFF 


9200 
3-00 
900 
2100 
2100 
9400 
BCOO 
1A00 
2100 
2100 
FFFF 


1£00 
5200 
5E00 
8100 
FFFF 


9A00 
3600 
9E00 
2100 
1A00 
2200 
9E00 
2100 


O2JAN66 
415490 


oc 
OC 
DC 
oC 
OC 
OC 


ALCBK OC 
OC 
oC 
oc 
OC 


ABLK OC 
oc 
oC 
oC 
oC 
oC 
oC 


AMRDY DC 
DC 
oc 
oc 
oc 
oC 
DC 
oc 
oC 


AHALT OC 
oc 
oc 
oc 
oC 
oc 
oc 
DC 
oc 
OC 


AWASB OC 
oc 
oc 
oc 
DC 
OC 
DOC 
DC 
OC 
oC 
oc 


ACOL oC 
oc 
oc 
oc 
oC 


ASET OC 
oc 
DC 
oc 
oC 
oc 
DC 
OC 


OLMAY66 
4154908. 


-: 
e 


/9E00 
45400 
12100 
/D800 
12100 
/FFEF 


/5€00 
45200 
/3€00 
43200 


42100 | 


/1A00 
/5E00 
/3€00 
47600 
/S5A00 
/9A00 
42100 


47200 
/3€00 
/5400 
13600 
12100 
16200 
43200 
44600 
/FFFF 


45600 
46200 
45200 
41600 
42100 
42600 
43E00 
45€00 
49E00 
/F FFF 


49200 
73€00 
/9A00 
42100 
42100 
/9A00 
78CO0 
41400 
42100 
42100 
/FFFF 


/1€00 
/5200 
/5€00 
78100 
/FFFF 


/9A00 
43600 
/9E00 
72100 
/1A00 
/220C 
/9E00 
42100 


LOAD BLANKS 


MAKE RDY 


PROG HALT 


WAS S$/B 


COLUMN 


SET BIT 8 FUNC 00 


PART NO. 2191224 
| 7 


PAGE 


30F08150 
30F08160 
30F08170 
30F08180 
30F08190 
30F08200 
30F08210 
30F08220 
30F08230 
30FU8240 
30F08250 
30F08260 
30F08270 
30F08280 
30F08290 
30F08300 
30F08310 
30F08320 
30F08330 
30F08340 
30F08350 
30F08360 
30F08370 
30F08380 
30F08390 
30F08400 
30F08410 
30F08420 
30F08430 
30F08440 
30F08450 
30F08460 
30F08470 
30F08480 
30F08490 
30F08500 
30F08510 
30F08520 
30F08530 
30F08540 
30F08550 
30F08560 
30F08690 
30F08700 
30F08710 
30F08720 
30F08730 
30F08740 
30F08750 
30F08760 
30F08770 
30F08780 
30F08790 
30F08800 
30F08810 
30F08820 
30F08830 
30F08840 
30F08850 
30F08860 
30F08870 
30F08880 
30F08890 
30F08900 
30F08910 
30F08920 
30F08930 
30F08940 


PROG ID 


PAGE 


030F-4 
7 


«“ 





oi 


. 096D 
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1442 READER/PUNCH FUNCTION TEST 


0936 
0937 
0938 
0939 
O93A 
0938 
093C 
0930 
O93E 
093F 


oeooocoooo0o 


0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
094A 
0948 
094C 
094D 
094E 
094F 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
O95A 
0958 
095C 
0950 
O95E 
O95F 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
O96A 
096B 
096C 


096E 
096F 
0970 
0971 
0972 
0973 
0974 
0975 
0976 


DATE 
EC NO. 


©oo0o0c0co00co00coeccoocoocococooeooeecocoococoeocoeoco0cec@eocooo0oceocoeso0oo0oooqooe0oodcso 


E400 
2100 
1200 
B200 
7600 
1E00 
2100 
C400 
C400 
FFFF 


4010 
4018 
8018 
8010 
4020 
2040 
1080 
0900 
0600 
0600 
0900 
1080 
2040 
4020 
8010 
FFFT 
8880 
ccco 
EEEO 
FFFO 
T7777 
3333 
1111 
FFFT 
A000 
9000 
8800 
8400 
8200 
8100 
8080 
8040 
8020 
8010 
5000 
4800 
4400 
4200 
4100 
4080 
4040 
4020 
4010 
3000 
2800 
2400 
2200 
2100 
2080 
2040 
2020 
2010 
0000 
FCOO 
03F0O 


O2JAN66 


415490 


eee 


WA4O 
WASOA 
WATS 
WAREA 


OC 
OC 
oc 
oc 
OC 
DC 
OC 
OC 
oc 
oC 


oc 
oc 
oC 
oC 
oc 
oC 
DOC 
OC 
oc 
oc 
oc 
oc 
oC 
oC 
oc 
oc 
oc 
oc 
oC 
oc 
oC 
oc 
oc 
OC 
oc 
oc 
oc 
OC 
oc 
OC 
DC 
oc 
oC 
oc 
DC 
Dc 
oc 
OC 
oC 
oc 
oC 
oc 
OC 
DC 
oC 
oc 
oc 
oc 
oc 
oC 
DC 
oc 
oC 
oc 


DC 


OLMAY66 
415490B 


4€400 
42100 
41200 
48200 
47600 
/1€00 
42100 
4C400 


-40400 


/FEFF 
WRITE 


44010 
4018 
48016 
48010 
/4020 
12040 
/1080 
4/0900 
40600 
40600 
40900 
41080 
42040 
44020 


48010" 


/FFFT 
/8880 
/CCccoO 
JEEEO 
/FFFO 
47777 
43333 
41111 
SFFFT 
4/4000 
49000 


£8800 


48400 
48200 
48100 
48080 
18040 
18020 
48010 
45000 
44800 
14400 
44200 
44100 
4/4080 
4040 
44020 
14010 
43000 
42800 
42400 
42200 
42100 
42080 
42040 
42020 
42010 
40000 


4FCOO. 


403F0 


END OF MESSAGE 


AREA FOR PUNCH 


COLUMN 1 


COL 21 


ALPHA RIPPLE 


COL 26 


COL 40 WAREA+39 


PAGE 


30F08960 


30F08970 . 


30F08980 


-30F08990 
_ 30F09000 


30F09010 


30F09020 


30F09030 
30F09040 


PART NO. 


30F08950 | 


3009050 


30F09060 
30F09070 
30F09080 
30F09090 
30F09100 
30F09110 
30F09120 
36F09130 
30F09140 
30F09150 
30F09160 
30F09170 
30F09180 
30F09190 
30F09200 
30F09210 
30F09220 
30F09230 
30F09240 
30F09250 
30F09260 
30F09270 
30F09280 
30F992S0 
30F09300 
30F09310 
30F09320 
3009330 
30F09340 
30F09350 
30F09360 
30F09370 


30F09380 | 


30F09390 
30F09400 
30F09410 
30F09420 
30F09430 
30F09440 
30F09450 
30F09460 
30F09470 


30F09460 


30F09490 
30F09500 
30F09510 
30F09520 
30F09530 
30F09540 
3%F09550 
30F09560 
30F09570 
30F09580 
30F09590 
30F09600 
30F09610 
30F09620 


PROG ID 


PAGE 


2191224 °. 
2 eR Gc 


STP ele opens at renee ar meruncne gmake my 


030F-¢ 
TA 














Rgcow? Oo Nef - Sa Se ee See os LO ead Nes NL erate aes had a ae ae ee Ny = “Ne or | ae es ee \ a PS p ne | 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 113C SYSTEM PART NO. ate ieee 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOw 2191224 
PAGE 8 PAGE 


1442 READER/PUNCH FUNCTION TEST 1442 READER/PUNCH FUNCTION TEST 


0977 0 FCOO Oc /FCOO 30F09630 CROSS REFERENCE LISTING 
0978 0 0O3F0 oc /03F0 30F09640 
0979 0 0000 oc 40000 30F09650 SYMBOL VALUE REFERENCES 
097A O 8887 pc /8887 30F09660 ABLK 0904 O72F 
O97B 0 4444 DC 14444 30F09670 ABUSY OsDF 0776 
O97TC 0 2222 DC 12222 30F09680 ACOL 0929 0790 
097D O _1llll oc A111 30F09690 ADSCT 0058 O50C 
OS7E 0 O007 DC /00607 30F09700 AEND 0037 050C 
O97F O 8880 oC /8880 30F09710 AHALT 0914 O80E 
0980 0 CCC4 DC /CCC4% 30F09720 AINT 0044 050C 
0981 0 AAA2 DC JARA2 30F09730 AIvD 003B 050C 
0982 0 9991 OC 49991 30F097T40 ALCD OBE O81F 
9983 0 4444 OC 14444 30F09750 ALD 003E 050C 
0984 0 6666 DC 16666 30F09760 ALDBK OSFF 0674,068D 
0985 0 5555 OC 45555 30F09770 AMRDY 0908 067Be06DA 
0986 0 2222 DC 12222 30F09780 AMSG O7D2 0792,0788 
0987 0 3333 OC 43333 30F02790 | ANINT 0041 05DC »0860 
0988 GO 1111 DOC 1111 30F09800 ANRDY 0048 C50C,O082A 
0969 0 onos DC 40005 CHECK PCH TERM 30F09810 ANYP O8CE 0733 
098A 0 0006 oC /0006 30F09820 AQ5A 0019 
098B O FFFT oc JEFFT 30F0983N l ARDY 004C 650C 
098C O FFFT oc /FFFT 30F09840 ASB 0054 050C 
098D O FFFT CC /FFFT 30F09850 ASCT OOSA o50C 
O98E 0 0008 DC /0008 COLUMN 76 30F09860 ASET O92E 
O98F O FFFO OC /FFEO 30F09870 ASTOQH £OS8EE 06 7F » O6DE 
0990 0 FFFO DC /FFFO 30F09880 ASUS 0050 050C 
0991 0 FFFO oC /FEFO 30F09890 AWAS 0060 
0992 0 FFFO oc /FFFO 30F09900 AWASB O9I1E 0795,07AC 
os . 30F09910 | BEGIN 0010 05DC,0618 
0993 0050 RAREA BSS 80 AREA FOR READ 30F09920 BIT12 0766 O741 
* 30F09930 «& BOX 0882 0885 
O9E4 0618 END GO 30F09940 . BUSY 0775 0778,C8B0 
, CHECK 069D 0690,06AA 
CHIP Oo707 O6FB 
; CKROR. OS5FC O5EC 
CKSTS C770 0682 ,06C 0, 06E 1,0 736, 0782 
| CLEAR O7IE 0721 
CNTLO O767 OSFC 
CNTLI 0768 OSEE 
CNTL& 0769 0609 
COL 0706 0789 
COMP O6F8 0705 
CONST O76A 0852,085A 
COUNT 076B O7F0,CTF9 
DOSWBT OSAF 0875s 
DSW1A OSES OSFA, 0622 
DSW4A 0605 06160626 
DUP G6C2 O6CC 
END 0015 050C 0763 
ERRFD O784 O6AT » 06849070220 TOF, 079C 2 OTAS207A5, OTA? . 
ERROR 0012 050C.,078C 
ERR} O7A9 078150881, 08B2,08B3~ C8B4_, 0885, 0886, 0887 »08B88 20889, 
| : ' 08BA,08BC»C8BD, O8BE 
ETRAP 0018 050C 
ETYPE 0783 0797,0780,; 07B87,07C 3.0862 
EXTRA O76C OTEC,O7TF7T 
FDACD oO8sCco 065€,07D8 
FOLCD oO7D7 066350691» O6CF ,06EC, 0745,0754,0TDA 
' FIND 0808 O7TES a 
FLIP o715 0718 
GET O7ET7 C7E3 
| 7 GO 0618 09€3 
GONE O7E1 081D 
HALT 0014 OSDC 
. 2 HOP1 0648 0649,0651 
HOP2 065E 065C 
ILCRP 0030 050C,. 0628 
a 7 ILIR 0036 C50C 
DATE O2JAN66 O1MAY66 PROG 1D 030F-4 7 = DATE C2JAN66 O1MAY66 | - a PROG 1D 030F-4 
EC NO. 415490 4154908 | PAGE 8 EC NO. 415490 4154908 4 a PAGE BA 
a = 
a ee a = ea 


spice ee oe Peep ggg Ate ETO Se ope Paros 
URBELIUE IIe «Se OT eee co 3 
oe 











a 
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1442 READER/PUNCH FURCTION TEST 

ILPAT 0032 c50C 

ILO 0028 059C , C624 

1u1 0029 cs50C 

Ik2 OO2A osoc 

IL3 00286 cs0C 

a 092C CcSOC 

INERR 0869 0o8s7D 

INILZ 0518 05E2,C620 

INSTE O7CF 078S,C7BE 

PsSTL O84A O83A 

I2RECO 0364 0770,C772,CSAB 

KEEP) 0788 

KEE P2 0788 

KEEPS O5E8 

KEEP 0608 

KNOW 070C C6335666550678,0693,06D1 ,UGEE,0756,07EE ,O7F3 

tco Oale OSES 

L3G 0013 050C,C838 

LOGSYV C16 o5Gcc 

LCOK O5F6 6606 

MLSCF O5E4 OO1E ,O75F, 0705 .07CB,080A,0815,0840, 0846, 0856,088T, 
039% 

MSG 0840 0670,060C,0731,0836,0837,083E 

SGN 9701 C7TBA.0TC2 

NEXT O6FT Ooes 

Nd 0722 0706 

KR OY 0829 CS2E.CEAF 

NTOLK 066€ COsE 

CONE 063C O66E 

GCVvER 0519 0813 3 

C23E 0705. 061320690, O6F E20 702,0785,0 TAF ,O86F 

PCHST oac2 0658 .06C8,0724,0740 

PST 059C C61A,C765,C828 | . | 

PUNCH oscs CSF 24 C5F 4+C656,06C4,072850749° | 

RAREA 0993 | C54 1,664C 506880685, 06824 06E3 9070090700 ,0715,071 7s 
| : | CT1E 0672490 72600737 O73F 074390747 2 08C8 oo 

ROR ST O8scs6 0645 eC68C »CSE 720738 

READ. oscs 0600 90602 ¢064390684206E5 90739 | 

RECK 0747 c751 

REPT o76Cc .07C9 

REPTI 07C9 O76F 

RQK3S 00346 _ CS0C 

RQTY 0033 osoc 

RSTKB 3017 o50C 

aTED 0763 0758 

RTEND 0756 0759,0800. 

RTL O84F 06472065A, 06605068E,06CAr06E9,072C 0730 ,074F 408255, 

0827,.C89),C8A9 | 

RTLA 0854 O0773-085C _ 

RTM OS8SA 0854 

RTU 0893 06 20+0636, 0668406980606, 06F3,089A 

RTO 0522 05€3.061C 

RT1 0631 062A — 

RT2 0630 0635-067A 

RT2A 0641 — 0662 

RT3 0578 0667 

RT3A 0688 06AB,06B88 

R14 0689 0695 

RTS O6DA 0603 

RTSA 06E3 C72E 

RT6 O72F O6FO 

SAVE 076D O7F 5,086A,£86C,087B8 

SENSB 089C 0631,0780,C8Al1,08AD 

SENSE O8CA 05E9,0606,C758,078C, a ae ale ala ad 

SETUP 0800 O7TFE 

SEeTl 062A 0607 

SET2 0635 0806 

SE 73 0667 0805 

DATE O2JAN66 OLMAYS6 PROG 10 

EC NO. 415490 4154908 PAGE 


5? 
id 


2191224 
9 


030F- 
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FOR THE 1130 SYSTEM 


1442 READER/PUNCH FUNCTION TEST 


SET 


SETS 


SET6 
SKIP 
SPOT 
STACK 
START 


STEP 
STG 

STOP 
SVKB 


SWA 
SWB 
SWJ 
SWL 
SW 
TELL 
TERMR 
THIS 
TYPE 
TYPEA 
TYPEB 
WAREA 
WAS 
WA4O 
WASOA 
WAT9 
XERR 
XXX 
XXXX 
ZIP 


DATE 
EC NO. 


0695 
0603 
O6FO 
0663 
0813 
Oscc 
0011 


OTF2 
O76F 
OB80E 
0035 
0850 
0770 
0771 

0772 

0773 
o8s5sC 
O5DE 

O6AC 
O8AD 
02830 
0838 
0844 
0943 
0704 
0940 
0941 

0942 
O7T4 
O6AF 
OT7OA 
0888 


O2JAN66 
415490 


0804 

0803 

0801 ,0802 

064A,065D 

0818 

0652 »06C 6, 06CD, 074B~0752+C78E»0798,079E,0873,0879 
O5DC »062F » 063A, 066C g 069A ,0608,06F5,0761 ,07C7,07CD, 
080C .0817,0842,0848,0858, 0889 

O7EA 

08C8,0896 

O70F 

osoC 

0772,08861,C890e08A5 

0612 

OSsE 

C87F ,08A3 

O8sB 

0614,0770,C773,088D 

G66F e0671,07A0eC7B4e070D,07E1 eOTET eOTFC,0819,0831 
O6A0 

O8AT7 

06 76,0779, 07 7TE,0811.0822,082D, 0834, 083F 
0844 

0838 

06 3F 50654 ,0686,069D,068B,06C2,06F8,08C4 
O5SFO, O5F 6, C5F E 20600 10786408242 08 64, O89F 
0630,0684 | 

0689 

0722 

05F8,0608,0610 

O6AE 20687 

0709,0712 

0866,C883 


O1MAY66 
4154908 
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1442 TIMING TEST | 


le PURPOSE 


THE 1442 TIMING TEST IS DESIGNED TO CHECK THE FOLLOWING CONDITIONS. 


Ae READ AND PUNCH COLUMN TIMING TOLERANCES. 
8B. PUNCH COLUMN DELAY TOLERANCE. 

C. PROPER OSW RESPONSES. ~ 

De. READ REGISTRATION CR COMPARE ERRORS~ 

E. PUNCH ECHO CHECK ERRORS. 

F. CORRECT COLUMN INTERAUPT COUNTS. 


' THE PROGRAM WILL NCT CHECK THE FOLLOWING ITEMS WHICH MUST BE CHECKED 
By SCOPING WHILE PROGRAM IS RUNNING. 


A. READ CELL DURATION 
Be. EMITTER TIMING 
C. READ OR PUNCH SINGLE SHOT TIMING (LOGIC PAGE XR301? 


2- PREREQUISITES 


2el 


PROGRAM PREREQUISITES 


THE 1442 TIMING TEST MUST RUN UNDER CONTROL OF THE 1130 DIAGNOSTIC 
MONITGR. THE TEST MAY NOT BE RUN IN OVERLAP WITH ANY OTHER PROGRAM. 


DECK CUSTOMIZATION ~ 

1442 MCDEL NUMBER INFORMATION MAY BE MADE A PERMANENT PART OF THE 
1442 TIMING TEST OBJECT DECK BY INSERTING AN EDIT ZARD IN FRONT OF 
THE LAST CARD OF THE DECK. 

THE EDIT CARD SHOULD BE PUNCHED AS FOLLOWS, 

FOR MODEL 6 FOR MODEL 7 
COLS 1-10, +05€0 0007 


COLS 11-19, BLANK 
COLS 20-29, 1442 MOD 7 


COLS 1-10, +05€0 0006 
COLS 11-19, BSLANK 
COLS 20-29, 1442 MOD 6 


IF THE PROGRAM DOES NOT FIND MODEL INFORMATION, IT WILL GENER“YTE A 
PRINTCUT REQUIRING OPERATOR TO ENTER THE INFORMATION. THE PROCEDURE 
TO ENTER THE INFORMATION IS CESCRIBED IN PARAGRAPH 3.2 PROGRAM 
OPERATION. | 

EQUIPMENT PREREQUISITES 

THE FCLLOWING EQUIPMENT IS REQUIRED, 


1. 1131 CENTRAL PROCESSING UNIT. 
2- 1442 CARD READ/PUNCK MODEL 6 OR Te 


3- USE PROCEDURE 


3-1 


DATE 
EC NO. 


O2JAN66 
415490 


LOADING 


THIS PROGRAM FOLLOWS THE LOADING PROCEDURES ESTABLISHED BY THE 1130 
OIASNOSTIC MONITOR. REFER TO De Me DOCUMENTATION. 


THE FOLLOWING REQUIREMENTS MUST BE MET. 


1. NO OTHER PROGRAM DECK SHOULD FOLLOW THE 1442 TIMING TEST 
DECK. 

2e PROGRAM DECK SHOULD BE FOLLCWED BY A DECK OF E..ANK CARDS 
ABOUT 5 INCHES THICK. . 

3e IF THE MODIFY DATA OPTION IS DESIRED, PLACE THE CARD WITH THE 
DESIRED CATA AFTER THE LAST CARD OF THE PROGRAM OECK. 


O1LMAY6E | | PROG ID 
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3e2 OPERATION 
3.2.1 PRKOGRAM EXECUTION 
A. LOAD AND GO MODE 


ALL ROUTINES WILL BE EXECUTED WITH NO OPTIONS 
ALL DETECTED ERRORS WILL BE IDENTIFIED BY AN ERROR TYPEOUT. 


B. SINGLE PROGRAM MODE. 


AFTER PROGRAM IS LOADED, THE MONITOR WILL WAIT 
TO ALLOW CPTIONS TO BE SPECIFIED. 


le SPECIFY DESIRED OPTIONS AS INSTRUCTED IN SECTION 3.2226 
1F NO OPTIONS ARE DESIRED, NO ENTRY IS REQUIRED. 


2. TO START EXECUTION — SET BIT SWITCHES TO 0080. THEN 
PRESS INTERRUPT REQUEST KEY. 


Ce IF THE MODEL NUM@ER EDIT CARD IS NOT PART OF THE PROGRAM DECK, 
ENTER ThE INFORMATION AS FOLLOWS, 


2. FOR MODEL 6 SET CUNSOLE ENTRY SWITCHES TO AFO6. 
FOR MODEL 7 SET CONSOLE ENTRY SWITCHES TO AFOT7. 
2. PRESS THE INTERRUPT REQUEST KEY. AN ACKNOWLEDGE PRINTOUT WILL 
| | OCCUR, AND THE INFORMATION WILL BE ENTERED. 
3.202 PROGRAM OPTIONS 
| THE OPERATOR MAY MODIFY THE EXECUTION OF THE PROGRAM ANY TIME SEFORE 
7 OR AFTER IT HAS STARTED EXECUTION BY ENTERING PROGRAM CONTROL OPTIONS 
| OR ROUTINE SELECTION OPTIONS. 
Ae PROGRAM CONTROL OPTIONS. 
lL. TO SELECT PROGRAM OPTIONS SET BIT SWITCHES AS INOICATED 
Swe SETTING CONTROL 
; 2FOO =: RESET ALL CCNTROL OPTIONS 
2F04 BYPASS ERROR MESSAGE PRINTOUTS 
2F08 SINGLE CARO WAIT 
2F80 MODIFY DATA TABLE (RIN 4) 
2-84 BYPASS ERROR MESSAGES WITH DATA MODIFIED 
2. PRESS INTERRUPT REQUEST KEYe 
Be. ROUTINE SELECTION 
EXECUTION WILL START WITH THE SELECTED ROUTINE. 
le TO SELECT ROUTINE OPTIONS SET SIT SWITCHES AS INDICATED 
Swe SETTING ROUTINE 
&bFO4 1 PUNCH ONLY 
6FOzZ 2 READ ONLY 
6FO1 3 FEED ONLY 
6F06 RUN ROUTINE 1 THEN ROUTINE 2 


2- PRESS INTERRUPT REQUEST KEY. 


DATE O2JAN66 O1MAYO6 | PROG 10 
EC NO. 415490 4154908 PAGE 
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323 NORMAL OPERATION 


NORMAL PROGRAM OPERATION CONSISTS OF RUNNING THE P?OGRAM IN LOAD 
AND GO MODE WITHOUT ANY OPTIONS SELECTED. NORMAL PROGRAM OPERATION 
PROCEEDS AS FOLLOWS, 


PROGRAM WILL CHECK THAB FIRST CARD IS BLANK AND WILL THEN BEGIN 
TRE PUNCH ROUTINE. 


BLANK DECK WILL BE PUNCHED WITH DATA FROM DATA TABLE. WHEN THE 
HOPPER BECOMES EMPTY, PRINTOUT A2ZFO2 WILL OCCUR AND PROGRAM WILL 
STOP AT WAIT 1. AT THIS POINT PROCEED AS FOLLOWS, 


Ae OEPRESS 1442 START KEY 
B. DEPRESS PRUG. START FEY AT CPU. 


PROGRAM WILL PUNCH THE LAST CARD, PRINTOUT A2ZFO3 WILL OCCUR, AND 
PROGRAM WILL STOP AT WAIT Le AT THIS POINT PROCEED AS FOLLOWS, 


A. REMOVE PUNCHED CARDS FROM STACKER NOW 2 AND PLACE IN 


HOPPER. 
Be OEPRESS 1442 START KEY. ° 
Ce. AT CPU DEPRESS PROG. START KEY. 


PROGRAM WILL READ THE PUNCHED CARDS UNTIL THE HOPPER BECOMES 
EMPTY. AT THAT TIME PRINTOUT A2FO2 WILL AGAIN OCCUR, AND 
PROGRAM WILL STOP AT WAIT 2. 


IF NO ERROR PRINTOUTS OCCURRED, THE 1442 TIMING IS CORRECT AND 
THE TEST MAY BE CONSIO£~°D COMPLETE. DEPRESS NPRO TO CLEAR FEED. 


REFER TO PARAGRAPH 4, PRINTOUTS, FOR A DESCRIPTION OF THE 
POSSIBLE PRIATOUTS THAT MAY OCCUR, AKD FOR THE ACTION TO BE TAKEN 
IN EACH CASE. 


324 PROGRAM TERMINATION 


THERE 1S NO NORMAL PROGRAM TERMINATION. THE PROGRAM WILL STOP WHEN 
THE 1442 HOPPER BECOMES EMPTY, OR THE 1442 STOP KEY IS DEPRESSED. 


- NOTE 


00 NOT USE THE CPUPS PROG. STOP KEY TO STOP THE PROGRAM. THIS WILE 
CAUSE A TIMING ERROR TO OCCUR AND WILL NOT SERVICE THE LEVEL 5 
INTERRUPT. 


30.5 PROGRAM WAITS. 
3000 AT LOCATION 0600 WAIT FOR OPERATOR TO ENTER MODEL NUMBER, 
SC. SECTION 3.2.12C. 
3001 AT LOCATION 0706 WAIT AT END OF CARD. PROGRAM WILL STOP AT 
WAIT 1 AFTER ANY PRINTOUT» OR AFTER EACH CARO IF SINGLE 
CARD WAIT OPTION IS SELECTED. 
3.6 RESTART 
TO RESTART THE PROGRAM. 


le SET SWITCHES TO 40AF. 
2- PRESS INTERRUPT REQUEST KEY. 


DATE O2JAN66 O1MAY66 PRGs 10 
EC NO. 415490 4154908 PAGE 
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4. PRINTOUTS 


ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN OORR (MESSAGE ) 
OR 
EPPNN OORR (MESSAGE) 


WHERE A IDENTIFIES STATUS MESSAGES 
— IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 
NN IS) THE MESSAGE SEQUENCE NUMBER 
RR IS ThE ROUTINE NUMBER 
MESSAGE IS ANY VARIABLE INFORMATION 


4el STATUS MESSAGES 


A2FO1 0000 ENTER MOD NUMBER.- 


THIS PRINTOUT OCCURS WHEN THE PROGRAM FINOS THE MODEL NUMBER AREA 
BLANK. THE MODEL NUMBER MAY BE ENTERED BY MEANS OF AN EDIT CARD, 
SEE PARAGRAPH 2.1 PROGRAM PREREQUISITES) OR BY MEANS CF THE CONSOLE 
ENTRY SWITCFKES (SEE PARAGRAPH 2.2 PROGRAM OPERATION). 


A2FO2 OOOX RDR DSW NOT READY— PRESS START 


THIS PRINTOUT INOJCATES THAT THE 1442 WAS NOT READY WHEN ITS DSW WAS 
SENSEO. WHEN THE PRINTOUT OCCURS, 


A. MAKE 1442 READY (CIF NGO FEED CHECK JUST PRESS 1442 START). 
Be OEPRESS PROG START. PROGRAM WILL CONTINUE. 7 


A2FO3 OO01 LAST CARD. LOAD PCHED CARDS + START 


THIS PRINTOUT OCCURS AFTER THE LAST CARD HAS BEEN PUNCHED. WHEN 
THIS PRINTOUT OCCURS, 


Ae REMOVE PUNCHED CARDS FROM STACKER NO.w 2 AND PLACE IN HOPPER. 
Be DEPRESS 1442 START KEY. READY LIGHT SHOULD GO ON. 
C. AT CPU DEPRESS PROG. START KEY. READ ROUTINE WILL SEGIN. 


4e2 ERROR MESSAGES. 


ALL NUMERICAL PRINTOUTS ARE IN HEXADECIMAL FORMAT. 


E2FO01 0005 CARD NOT BLANK 


THIS PRINTOUT INDICATES THAT A PREPUNCHED CARD WAS FED INTO THE PUNCH 
STATION AT BEGINNING OF PUNCH ROUTINE. WHEN THIS PRINTOUT OCCURS, 


Ae ODEPRESS NPRO TO CLEAR FEED. 

Be REMOVE PREPUNCHED CARD ANDO INSURE THAT NO OTHER PUNCHED CARDS 
ARE IN DECK OF BLANK CARDS TO BE PUNCHED. 

Ce OEPRESS 1442 START KEY. 

De AT CPU, ENTER 4OAF IN CONSOLE ENTRY SWITCHES TO REINITIALIZE 
PROGRAM. PROGRAM WILL CONTINUE. 


E2FO2 0000 INVLD SWS 
THIS PRINTOUT INDICATES THAT NO ENTRY WAS FOUND IN PROGRAM TEST 


OPTION BIT SWITCH AREA. ENTER 6FOX IN CONSOLE ENTRY SWITCHES TO 
CONTINUE. SEE SECTION 3.2-2-B~- 


DATE O02 JAN66 O1MAY66 PROG ID O032F- 
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E2F03 OOOX NO INTRPT 


ROUTINE NUMBER MAY BE ly» 2, OR 3- TIMER OVERFLOW. NO INTERRUPT WAS 
RECEIVED 4 SECONDS AFTER A COMMAND WAS GIVEN. IF THIS PRINTOUT 
OCCURS, CHECK, 


A. FEED CLUTCH LATCH (LOGIC PAGE XR211) 
Be. MOTOR DELAY (LOGIC PAGE XKR211) 


E2FO04 OOOR XXXX XXXX YXXX WAS, S/By COL~ COLUMN ERROR 


A. THIS PRINTOUT OCCURS FOLLOWING ANY 1442 ERROR WHICH SETS THE 1442 
ERROR BIT (BIT 2) IN THE 1442 DSW. THIS ERROR BIT INDICATES THAT 
ONE OF SEVEN ERROR CONDITICNS EXISTS IN THE 1442. 


1. READ REGISTRATION CHECK 

2. PUNCH CHECK 

2. HOPPER CHECK 

4. TRANSPORT CHECK | 

5. FEED CHECK - READ STATION 
6. FEED CHECK - PUNCH STATION 
7. FEED CLUTCH CHECK 


Be IF THE ERROR IS OTHER THAN A READ REGISTRATION OR PUNCH CHECK, 
CLEAR TRE 1442 — REPLACE THE CARDS IN THE HOPPER, THEN PRESS 1442 
START AND 1131 START TO CONTINUE. NOTE -- WAS AND S/B WILL NOT 
AGREE IF ERROR WAS IN ROUTINE le 


C. IF THE ERROK BIT WAS SET BY A READ REGISTRATION CHECK THE 
PRINTOUT SHCULD BE INTERPRETTED AS FOLLOWS. READING FROM LEFT TO 
R IGHT--- 


1- WORD THREE IS THE DATA THAT WAS READ. 

2- WORD FOUR IS THE CATA THAT SHOULD BE IN THE CCLUMN JUST READ. 

3e WORD FIVE IDENTIFIES THE CARD COLUMN IN WHICH THE ERROR WAS 
DETECTED. 


ONLY ONE ERROR WILL BE DETECTED PER CARD AS REASING 
TERMINATES wWKEN THE ERROR IS DETECTED. 


D. IF THE ERROR BIT WAS SET BY A PUNCH CHECK THE PRINTOUT SHOULD 
BE INTERPRETTED AS FOLLOWS -- READING FROM LEFT TO RIGHT -- 


1. WORD THREE CONTAINS THE CONTENTS OF THE 1442 BUFFER REGISTER 
FOLLOWING THE PUNCH ECHO CFKECK. ANY BIT ON IN THIS WORD 
IDENTIFIES THE DESCREPANCY BETWEEN THE PUNCH DIE ECHO AND THE 
DATA WHICH WAS TO BE PUNCHED IN THE COLUMN. 

2- WORD FOUR CONTAINS THE DATA THAT SHOULD HAVE BEEN PUNCHED IN 
THE COLUMN. 

3- WORD FIVE IDENTIFIES THE CARD COLUMM IN WHICH THE ERROR WAS 
DETECTED. THERE WILL CNLY BE ONE ERROR PER CARD AS PUNCHING 
IS TERMINATED WHEN THE ERROR IS OETECTED. 

FOLLOWING A PUNCH RESPCNSE INTERRUPT THIS ROUTINE DELAYS 300 
USEC ( PAXIMUN ALLOWABLE PUNCH DELAY ) BEFORE EXECUTING A 
PUNCH COMMAND. | 


WHEN THIS ERROR PRINTOUT OCCURS, CHECK THE BYFFER REGISTER, COMPL 
GATE, COMPL SPD. (LOGIC PAGES XR341l_ 351, 3615 3212 331, 31lL)- 


DATE 02 JAN66 O1MAY66 | PROG ID 032F-* 
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E2FO05 0002 


E2FO06 O00:. 


E2FO7 OOOX 


E2FO8 OOO0X 


E2FO9 O00xX 


DATE 
EC NOe 


PAGE 


G TEST 


XXXX XXXX OOXX WAS» S/By COL- READ COMPARE 


THIS PRINTOUT INDICATES AN INCORRECT COMPARISON BETWEEN DATA READ AND 
DATA IN DATA TABLE. READING FROM LEFTY TO RIGHT, 


Ae WORD THREE REPRESENTS THE INCORRECT DATA (WAS). 

Be. WORD FOUR IS THE CORRECT DATA (S/8)- 

Ce. WORD FIVE IS THE COLUMN WHERE ERROR OCCURRED (COL). 
IF THERE IS MORE THAN ONE ERROR ON THE CARD ONLY THE ERROR IN 
THE HIGHEST NUMBERED COLUMN WILL BE IDENTIFIED BY THIS 
PRINTOUT ( CARD IS CHECKED STARTING WITH COLUMN 80). 

De WORDS NINE AND TEN DESCRIBE THE TYPE OF ERROR. 


WHEN THIS PRINTCUT OCCURS CHECK THE PUNCHED CARD TO SEE IF IT IS 
PUNCHED CORRECTLY» IF THE CARD IS CORRECTLY PUNCHED; CHECK THE DATA 


BUFFER REGISTER} 


XXXX 4003 WAS, S/B- COL DSW 


THIS PRINTOUT INDICATES A LEVEL O (COLUMN) DSW ERROR. WORD THREE IS 
THE ERROR DSWe CHECK THE DSW CIRCUITS (LOGIC PAGES XR371l,_ 381)~ 
ROUTINE NUMBER MAY BE 1 OR 2e 


XXXX¥ C800 WAS, S/B- END DSW 


LEVEL 4 (END-OP) OSW ERROR. WORD THREE IS THE ERROR DSW. CHECK DSW 


CIRCUITS. ROUTINE NUMBER MAY BE lp» 29 30 4e OR 5e 


NO COLUMN INTRPT 


END OP WAS RECEIVED, BUT NO COLUMN INTERRUPTS ON READ OR ‘PUNCH. 
CHECK READ OR PUNCH RESPONSE (LOGIC PAGE XR 291)- ROUT INE NUMBER MAY 


BE le 2e OR 4e 


XXXX XXXX OOXX WAS, S/B, COL- COL TIME LONG 


ROUTINE NUMBER MAY BE 1 OR 2. 
THIS PRINTOUT INDICATES THAT EITHER READ OR PUNCH COLUMN TIME 
EXCEEDED MAXIMUM LIMITS. TIME FIGURES ARE GIVEN IN MICROSECONDS. 


FROM LEFT TO RIGHT» 


Ae WORD THREE IS ACTUAL TIME FOR READ OR PUNCH COLUMN (WAS). 
B. WORD FCUR REPRESENTS THE MAXIMUM TIME LIMIT FOR A READ OR 


PUNCH COLUMN (S/B). 7 
Ce WORD FIVE REPRESENTS THE COLUMN THAT EXCEEDED THE MAXIMUM 


TIME LIMIT (COL). 
D. WORDS NINE, TEN, AND ELEVEN IDENTIFY THE ERROR. 


WHEN THIS PRINTCUT OCCURS, 


A. CHECK ADJUSTMENT AND LUBRICATION OF FEED AND READ CLUTCH. 
Be CHECK PUNCH INCREMENTAL DRIVE}. 
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E2F10 OOOX XXXX XXXX OOXX WAS», S/B, CCL- COL TIME SHORT 


E2Fll OOOX OOXX 0050 WAS, S/B=- COL COUNT 
ROUTINE NUMBER MAY BE ly» 2, OR 4e 
THIS PRINTOUT INDICATES THAT THE NUMBER OF COLUMN INTERRUPTS WAS NOT 
80. WHEN IT OCCURS CHECK TAPE ON EMITTER OISK( AND PUNCH OR READ 3 
RESPONSE (LOGIC PAGE XR 291). 
Ae WORD THREE REPRESENTS THE NUMBER GF COLUMN INTERRUPTS 
RECEIVED (WAS). 
Be WORD FOUR REPRESENTS THE NUMBER OF COLUMN INTERRUPTS THAT 
SHOULD HAVE BEEN RECEIVED (S/8)- 
Ce. WORDS SEVEN AND EIGHT IDENTIFY THE ERROR. 
4.3 SAMPLE PRINTOUTS 
THE FCLLOWING ARE SAMPLE PRINTOUTS FOR SPECIFIC ERRORS. 
E2F04 0002 8010 8CO0 OCOl WASs S/By COL- COLUMN ERROR 
E2F06 0002 A801 8003 WAS, S/B— COL DSw 
E2FOT 0002 2801 0800 WAS, S/B—- END DSW 
E2Fll 0002 0001 CO50 WAS» S/B- COL COUNT 
READ REGISTRATION ERROR. THESE PRINTOUTS TELL THE OPERATOR THAT A 
READ REGISTRATION ERROR HAS OCCURRED IN COLUMN ly AND THAT THE ERROR 
WAS AN EXTRA BIT 11 (9 PUNCH). ALSO PRESENTED ARE THE HIGHEST COLUMN 
OSW. THE END OP DSW, AND THE TOTAL COLUMN COUNT FOR THAT CARD. 
E2FOS 0002 C200 C000 0011 WAS», S/By COL- READ COMPARE 
READ COMPARE ERROR. THIS PRINTOUT TELLS THE OPERATOR THAT THE DATA 
READ IN COLUMN 17 (HEX 11) DOES NOT MATCH THE DATA TABLE (leEe, 
CONTAINED AN EXTRA BIT 6) 
E2F04 0001 0200 0000 OO3F WAS, S/By COL- COLUMN ERROR 
E2FO06 0001 6003 4003 WAS, S/B- COL DSW 
E2FO7 0001 2801 O800 WAS, S/B- END DSW 
E2Fll 0001 O03F 0050 WAS, S/8- CCL COUNT 
PUNCH ECHO CHECK ERROR. THESE PRINTOUTS TELL THE OPERATOR THAT A 
PUNCH ECHO CKECK HAS OCCURRED IN COL 63 (HEX 3F), AND THAT THE BIT 
THAT CAUSED THE FAILURE IS BIT 6 (4 PUNCH). OPERATOR SHOULD COMPARE 
CARD COLUMN 63 AGAINST S/B TO DETERMINE IF ERROR IS OUE 10 PUNCH 
FAILURE, OR FALSE ECHO CHECK. ALSO PRESENTED ARE THE HIGHEST COLUMN 
DSW, THE END OP DSW, AND THE TOTAL COLUMN COUNT FOR THAT CARD. 
DATE CZ2JAN66 OLMAY66 , —_ PROG 1D 032f-® 
EC NO~ 415490 4154908 , | — PAGE 4A 


ROUTINE NUMBER MAY BE 1 OR 2e 

THIS PRINTOUT INDICATES THAT EITHER READ OR PUNCH COLUMN TIME WAS 
SHORTER THAN THE MINIMUM TIME LIMIT. TIME FIGURES ARE GIVEN IN 
MICROSECONDS.e FROM LEFT TO RIGHT, | 


Ae WORD THREE IS ACTUAL TIME FOR READ OR PUNCH COLUMN (WAS). 

Be WORD FOUR REPRESENTS THE MINIMUM TIME LIMIT FOR A READ OR 
PUNCH COLUMN (S/B). 

C. WORD FIVE REPRESENTS COLUMN. THAT WAS UNDER THE MINIMUM TIME 
LIMIT (COL). 

De WORDS NINE, TEN» AND ELEVEN IDENTIFY THE ERROR. 


WHEN THIS PRINTCUT OCCURS, 


Ae CHECK ADJUSTMENT AND LUBRICATION OF FEED AND READ CLUTCH. 
Be CHECK PUNCH INCREMENTAL ORIVE. 
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E2F10 0002 0301 0368 OOOC WAS» S/Be COL- COL TIME SHORT 


READ TIMING ERROR.» THIS PRINTOUT TELLS THE OPERATOR THAT TIME 
BETWEEN COLUMN 11 AND COLUMN 12 (HEX OC) WAS 769 USEC,» SHOULD HAVE 
BEEN 875 USECe. MINIMUMs THE 1442 FEED CLUTCH MAY NEED SERVICING. 


5e COMMENTS 
5el PROGRAM CESCRIPTION 


THE 1442 TIMING TEST CONSISTS OF A CONTROL ROUTINE? FIVE MAIN 
ROUTINES, AND AN ERROR LOGGING ROUTINE. 


THE CONTROL ROUTINE ACCOMPLISHES THE PROGRAM OPTIONS SPECIFIED BY THE 
OPERATOR. 


ROUTINE ly PUNCH ROUTINE, PUNCHES CARDS FROM DATA IN THE DATA TABLE, 
CHECKS DSW*S, DELAYS PUNCH RESPONSE BY 3NO USEC. THE ROUTINE ALSO 
REAOS BUFFER ON PUNCH ECHO CHECKS, CHECKS PUNCH COLUMN TIMING, AND 
CHECKS FOR CORRECT CCLUMN COUNT. 


ROUTINE 2, READ ROUTINEs READS CARDS PUNCHED BY ROUTINE le AND 
COMPARES THEM AGAINST DATA IN THE DATA TABLE. IT ALSO CHECKS DSW°S, 
CHECKS READ COLUMN TIMING, AND CHECKS FOR CORRECT COLUMN COUNT. 


ROUTINE 35 FEED ROUTINE, FEEDS CARDS AND CHECKS END OP OSW ONLY. 


ROUTINE 4» MODIFY DATA TABLE ROUTINE, REPLACES DATA IN DATA TABLE 
WETH CATA IN CARD FOLLOWING THE * AST CARD OF THE PROGRAM DECK. THE 
DATA TABLE WILL BE MODIFIED ONLY IF THE MODIFY DATA TABLE OPTION HAS 
BEEN SELECTED. é 


ROUTINE S CHECKS THAT THE FIRST CARO FOLLOWING THE PROGRAM DECK IS 
A BLANK. THE ROUTINE IS USED TO PREVENT THE ACCIDENTAL PUNCHING OF 
ANOTHER PROGRAM S CARDS-~ 


IN THE NORMAL MODE OF OPERATION, ROUTINES Se 1+» AND 2 ARE EXECUTED 
SEQUENTIALLY. 


Se2 PROGRAM CONTROL OPTIONS DESCRIPTION 


Se2el BYPASS ERROR MESSAGE OPTION 
THIS OPTION WILL BYPASS THE ERROR PRINTOUT ROUTINE, EXCEPT FOR 
PRINTOUTS E2FO1, AND E2FO2. THIS OPTION IS USED MAINLY FOR SCOPING, 
WHEN IT IS DESIRED TO RUN PROGRAM WITHOUT STOPPING AFTER AN ERROR 
(PROGRAM WILL NORMALLY STOP AT WAIT 1 AFTER ANY PRINTOUT). 
5e2e2 SINGLE CARD WAIT OPTION 
THIS OPTION WILL CAUSE PROGRAM TO STOP AFTER EACH CARD IS EITHER 
PUNCHED, READ, OR FEDe TO CONTINUE, DEPRESS PROG START KEY. 
5-2-3 MODIFY CATA TABLE OPTION 
WHEN THIS OPTION IS SELECTED, THE DATA IN THE DATA TABLE IS REPLACED 
BY CATA IN CARD FOLLOWING LAST CARD OF PROGRAM DECK. THIS OPTION IS 
USED WHEN IT IS DESIRED TO PUNCH OR READ A SPECIFIC DATA PATTERN, 
SUCH AS GNE THAT HAS CAUSED FAILURES BEFORE. 
DATE O2JAN66 O1LMAY66 PROG IO 032F-# 
EC NO. 415490 4154908 | PAGE 5 
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563 
5-31 


DATE 
EC NO. 


PROGRAM TEST OPTIONS DESCRIPTION 

FEED ONLY OPTION 

WHEN THIS OPTION IS SELECTED, THE PROGRAM WILL FEED CARDS AND CHECK 
THE END OP OSW ONLY. THE OPTION IS USED FOR SCOPING READ CELL 
DURATICN, EMITTER TIMINGs, ETC. | 

REAQ ONLY OPTION 

THIS CPTION IS USED WKEN IT IS DESIRED TO READ CARDS ONLY. WHEN 
HOPPER BECOMES EMPTY, IT CAN BE REFILLED WITH PUNCHED CARDS AND 
READER MADE READY. CEPRESSING PROG. START KEY WILL CAUSE PROGRAM TO 
CONTINUE. THE PUNCHED CARGS TO BE READ MUST MATCH THE DATA TABLE 
DATA OR ERRORS WILL BE INDICATED. 

PUNCH ONLY OPTION 


USED WEEN ONLY PUNCHING IS OESIRED. 


02 JAN66 
415490 


O1MAY66 PROG ID 


032F-% 
4154908 : 7 PAGE 3A 
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Ge APPENDIX 


6.1 


DATE 
EC NO. 


SAMPLE OUTPUT 


THE FIGURE BELOW SHOWS CARD PUNCHED FROM PROGRAM® S INTERNAL DATA 
TABLE. 


O18 goad an TET GREE 8 GRCRRRRRRERREES 
een e ce cmneae cere eee eceecCMM Coc ooc oer RRNR Coo con CoC COHEN SER SERDESNBERESED CE 


VICE TOHSeNnABKaBSIT ASK NONSBAr ABEL 32 96 3S FT WO YS OG 6: 0s C5 0s OS 46 ©) 06.49 $0 8! 975) 44.9554 S84 5985 @) 63 62 6s €: TUBA AM WN 
BRT | t} RORRERGRRREY |) 1 RERUERORY | RREREERR) 11] REET’ MUENEENT TTT REET ETI IT ITI TTT ET) 
2222900 222222222220B9N 222222288 222222288 2222222222 2B 222 ERD REE OEERSE 288 


33393Q008 99933393333 800 89939938 9995938 990 3339939935588 83333 REE REESE RES BS 


bbbbbi | bebbheeeene: ||| Creed | Peer || Serererreei i iterereitilileiiii ti ny) 
SSSESSSMERRSSSSSSSSSSSRRESSSSBSSSSQQPRSSSSSSSSSSSBBQOSSS5S5SPROSEES SRERRER SEED 
COCCECCCURBESCCCCCECCEERSRR SCHR SCSURENSCCCCCCCOCCHERRCCCCSCSCRRRRSEES COEOS (SERS 
PUVTDIT TIGGER TT777I7 TTT ERT OB 7777797777 GG 77777777 EERE OREN RES BEES 
CUCSCUCOOCEERGCCCUOCCOCESTER CED MERU CUCEUCOSCRIESRRSUaccceeetRSSOCSESES (B (BRES8 
TERED SEMIS SAPS UES 2 2228222 MO 222222952 SE 2 SO 


-S2veser : OF G2 GS 6 EO 01 4523 5° S295 56 8 8! AS 
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18M MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191228 ~ 18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191228 . 
PAGE 1 | PAGE __ ae ¢, re 
1442 TIMING TEST ~ 1442 TIMING TEST 
Seset 1442/1130 TIMING DIAGNOSTIC #8 32F10000 0028 ILO EQU 40 32F00680 
espeee © ©Seeeeeeeecee ene ee eee 32F00010 . 0029 IL1 EQU ILoe#1 32F00690. 
* 32F00020 OO2A IL2 EQU IL1¢2 32F00700 > 
* LCAD — MONITOR + 1442 TEST + BLANK CDS ® 32F00030 002B IL3 EQU IL2¢}] 32FO00710 — 
* 32F00040 002Cc IL4 EQU § {L341 32F00720 
* 32F00050 0030 ILCRP ECU IL 4¢4 32F00730 
SESE ERE BIY SWITCH SETTINGS SOet $44¢8 32F00060 0032 ILPAT EQU ILCRP+2 32F00740 
eee e te &© £€eeeueuve ee eee ee &€ EB 32FO0G070 0033 RQTY EQU ILPAT#l 32F00750 
2 32F00080 0034 RQKB EQU RQTY?#L1 32F00760 
* 1 OOAO LOAD AND GO MODE — PUNCH DELAYED 32F00090 0035 SVKB €EQU RQKB+l1 ' 32F00TT7T0 
* UNTIL LAST CARD » THEN” READ. 32F00100 0036 ILIR EQU SVKBel 22F00780 
* PUNCHED CARDS. 32F00110 * 32F00790 
*ese ete © ©®eee en eee ee ee ee EE 32F00120 0037 AEND ECU ILIR@1 32FO00800 
. 32F00130 0038 AIlvD EQU AEND?+4 INVLO 32F00810 
* 1 0020 SELECT TEST OPTION MODE 32F00140 OO3E ALD ECU Ai VvD0¢«3 LO 32F00820 
* 32F00150 0041 ANINT EQU ALD¢3 NO INTRPT 32F008 30 
* 2 AFCX SPECIFY *OD NUMBER, PRESS INT REQ 32F00160 0044 AINT EQU ANINT#3 INTRPT 32FO00840 
* 32F00170 0048 ANRDY EQU AINT*T7 NRDY 32F00850 
* 6 MOD 6 32F00180 004C ARDY EQU ANRDYel RDY 32F00860 
* 32F00190 0050 ASwS EQU ARDY+4 SHS 32F00870 
* 7 MOD 7 32F00200 0054 ASB EQU ASwS44 S/B 32F00880 
e 32F00210 0058 ADSCT EQU ASB+4 32F00890 
* 3 2FXX SELCT CONTROL OPTION, PRESS INT REQ 32F00220 COSA ASCT EQU ADSCT¢2 SELCT 32F0090G 
* 32F00230 0060 AWAS ECU ASCT#6 WAS 32F00910 
* 80 MODIFY DATA TABLE (ONE CARD) 32F00240 OO6A EAQO EQU AWAS410 32-00920 
* 32F00250 *eeee &©& &©eeeneee eee © ee tea ee & 32F00930 
* 40 BYPASS PUNCH DELAY 32F00260 sete8 PROGRAM CONTROL TABLE *#*¢e 32F00940 
* 32F00270 * 32F00950 
* C8 SINGLE CARO WAIT 32F00280 O50C 0 2F00 PIO DC /2FQ0 PROGRAM IDENTIFICATION 32F00960 
* 32F00290 0500 0 oocod | OC 4/0000 . ROUTINE 32F00970 
* 04 BYPASS ERROR’ PRINT ROUTINE 32F00300 5 | OSDE O 0000 BSWO OC 40000 BIT SW O - CONTROL OPT 32F00980 
* 3200310 | OSDF QO 0006 8Sal OC /0006 BIT SW il- TEST SEL 32F00990 
@ 32F00320 | C5EO0 90 0000 BSwW2 DC 4/0000 BIT SW 2 - MODEL &/T7 32F01000 
es 4 6F OX SELECT TEST CPTION»s PRESS INT REQ 32F00330 05E€1 0 0000 BSW3 ODOC 40000 BIT Sw 3 | 32F01010 
s : 32F00340 OSE2 1 OSEC OC INITL INITIAL ADORESS 32F01020 
* C6 PUNCH THEN READ 32F00350 | O5€3 1 OSES OC GO LOOP ADDRESS 32F01030 
Ps 32F00360 | OSE4 O O000 MLSCF DC 40000 MLSCF Ll TEST BiT SW 32F01040 
+ 04 PUNCH ONLY 32Fu0370 | OSES O 0000 MtSC2 DC 40000 MLSCF 2 MODIFY ODATA 32F01059 
* 32F00380 | O5E6 O 0000 MLSC3 OC 0000 MLSCF 3 SLANK CARD CHK 32F01060 
* 02 READ ONLY 32F00390 i O5E7T O 0000 MLSC4& DC /0000 MLSCF 4 MAIN ROUTINE 32F0107G6 
* 32F00400 OSE8 O FFFF OC /FEFF TERM 32F01080 
* O1 FEED ONLY 32F00410 e*ee¢£ eek &©§ £SKEU2OKReSE BEHEE EEE EE KE 32F01090 
Ps 32F00420 * 32F01100 
* 32F00430 OSES 00 44800010 GO BSI I BEGIN MONITOR BEGIN CALL 32F01110 
* 5 coso EXECUTE », PRESS INT 32F00440 OSEB 1 O50C BC PIO 32€01120 
© 32F00450 *. 32F01130 
z«eeseee &© #©*e ee BH Hee H EH KE HEE HK 32F00460 * 32F01140 
* 32F00470 x*eete *£¢£ © &£& &€ eee KK HEE EE SE HK EH FE 32F01150 
* 6 4OAF PROGRAM RESELECT AND RESTART 32F00480 *4+ SRE INITIALIZATION RIN **£*¢4 32F01160 
* 32F00490 *eeee ¢© © & eee ee eee & &€ & KK 32F01170 
*eeee *©§ ££ &e& Be eK KE HR EE HEHEHE HE 32F00500 * . 32F01180 
* 32F00510 OSEC Q 0000 INITL OC 40000 ICTR 32F01190 
0000 ORG *+1500 32F00520 O5ED O01 670005F8 LOX Lt3 TEST STORE TEST ADOR 32F01200 
* 32F00530 O5EF O 6BF4 STX 3 MLSCF IN MLSCF 1 32F01210 
* PROG TRANSFER VECTCR 32F00540 % 32F01220 
* 32F00550 O5FO O01 670006AF LOx L3 BLANK STORE BLANK CARD CHK 32F01230 — 
0010 BEGIN EQU 16 32F00560 O5F2 0 6BF3 vx 3 MLSC3 IN MLSCF 3 32F01240 
0011 START EQU BEGIN¢1 32F00570 O5F3 00 67000000 LOx 1&3 /0000 CLEAR BLANK FLAG 32F01250 
oo12 ERROR EQU START#1 32F00580  O5F5 0 6850 STX 3 BLFLG 32F01260 
0013 LOG EQU ERRORS1 32F00590 * 32F01270 
0314 HALT EQU LOGel 32F00600 O5F6 O01 4&«CB8O00S5EC BSC I INITL RETURN TO MONITOR 32F01280 
0015 END EQU HALT¢1 32F00610 * | 32F01290 
2 32F00620 * 32F01300 | 
0016 LOGBY EQU END¢l1 32F00630 EERE TEST BIT SWITCH ROUTINE *¢44@ 32F0!1310 
0017 RSTKB EQU LOGBY+1 32F00640 x** #e€& © £e ee eee eR ee HR EE EH EH 32F01320 
0018 ETRAP €&2U RSTKB+1 32F00650 * 32F01330 
Oo019 AQSA EQU ETRAP?] 32F0066u O5F8 O COET TEST LO BSwW2 LD FUNC 2 SwS 32F01340 
* 32F00670 O5F9 01 4C 200606 BSC tL TEST2,2 BR IF SW 2 ENTRY 32F-01350 
PROG ID o032F-4 a DATE O2JAN66 OLMAY66 | PROG 10 O32F-4 
Pe NO. «418490 4154908 _ PAGE 1 o EC NOs 415490 4154908 | geal a 
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OSFB OO 
O5FD 1 
OSFE 1 
OSFF O 
0600 0 


0601 Ol 
0603 0 
0604 OO 


0606 01 
0608 00 
060A O01 
060C OC 
O60E Ol 
0610 SO 
0612 01 
0614 00 
0616 O01 


0618 O00 
O61A OC 


06:iC 
0610 
J6lE 
O61F 
0620 


oOoo0o0o0 


0622 
0623 
0624 
0625 


—) 


0627 
0629 
062A 
0628 
052C 


eed ooco 


062D 
062F 
0630 
0631 


ooo°o 
ro 


0632 
0633 


0635 
0637 
0638 


0 
0 
0 
0 
0 
0639 0 
0638 0 
063C 0 
063D 0 
0 

0 

0 

0 


O63E 
0640 
0641 
0642 
6643 O 
0645 0 
0646 0 


DATE 
EC NO. 


44800013 
O88F 
0601 
0000 
3000 


67CO05F8 
6BE0 
4C800011 


4C040618 
67002568 
6F000659 
67003818 
$F00065D 
6700036B 
6FO090675 
6.000822 
6FO00679 


650900000 
67000000 


cocl 
1802 
4804 
7101 


6D0007B5 - 


1801 
4804 
7301 
6F000705 


67000000 
1803 
4804 
6300 
6818 


67000698 
13C1 
4804 
6883 


COAC 
4CO807E1 


6700068F 
4804 
6BAE 


67000673 
1801 
4804 
6BA9 


67000654 
1801 
480% 
6BAS . 
45800011 
0000 


0000 


O2JAN66 


415490 


BSI 
OC 
OC. 
DC 
wAIT 


TEST1 LOX 
STX 
BSC 


TEST2 BSC 
LDX 
STX 
LDX 
STX 
LOX 
STX 
LOX 
STX 


TEST3 LOX 
LDX 


LO 

SKA 
BSC 
MDX 
STX 


SRA 
BSC 
MDX 
STX 


LDX 
SRA 
BSC 
LDX 
STX 


LDX 
SRA 
BSC 
STX 


LD 
BSC 


LDX 
BSC 
STX 


LDX 
SRA 
BSC 
STX 


LOX 

SRA 

BSC 

STX 
* 

BSC 
* 


DELAY OC 
* 


BLFLG DC 


O1LMAY66 


4154908 


L3 


L3 


L3 


LOG 
MSGM 
TESTI 
0000 


TEST 
ML SCF 
START 


TEST32E 
12968 
PMINe1 
4/3818 
PMAX41 
4036B 
RMIN¢] 
/0B22 
RMAX41 


4/0000 
4/0000 


BSwWO 
2 

E 

1 
ERFLG 


eo (Th me 


LGFLG 


4/0000 
3 
E 
0 
DELAY 


NORD 
1 

E 
MLSC2 


BSWl 
ERR2_+ 


FEED 
E 
MLSC4 


RE AD 
l 
E 
MLSC4 


PUNCH 
l 
E 
MLSC4 
START 
/0000 


40000 


LOG ENTER MOD 
NUMBER MESSAGE 


WAIT FOR SW ENTRY 


SET TO CHECK AGAIN 
FOR SW 2 ENTRY 


BR IF MOD 7 

SET PUNCH AMIN 

FOR 10,600 MICRO SEC 
SET PUNCH MAX 
FOR 14,360 MICRO SEC 
SET READ MIN 

FOR 875 MICRO SEC 
SET READ MAX 

FOR 2850 MICRO SEC 


‘RESET ERROR FLAG ‘° 


RESET INDEX REG 3 

LO FUNC O SWS. 

SHIFT TO BYPASS BIT 

SKIP iF NO BYPASS BIT 
ADD BIT IN ERROR FLAG 
STORE BYPASS BIT OR CLEAR 


SHIFT TO SINGLE CARD 
SKIP IF NOT SINGLE CD 
ADD BIT TO INDEX 3 

STORE 1/0 IN LOG FLAG 


LOAD PUNCH DELAY CONST 
SHIFT TO DELAY PCH 
SKIP IF NO DELAY 

GLEAR OELAY 
STORE CONST/O IN DELAY 
LOAD MODIFY DATA ADDR 
SHIFT TO MODIFY DATA 
SKIP IF NO MODIFY 
STORE ADDR/ZERO 


LD FUNC 1 SWS 


BRANCH IF NO TEST SW SET 


LOAD FEED ADDR 
SKIP IF NO FEED 
STORE FEED ADDR 


LOAD ReAD ADDR 
SHIFT TO READ 
SKIP IF NO. READ 
STORE READ ADDR 


LOAD PUNCH ADOR 
SHIFT TO PUNCH 
SKIP IF NO PUNCH 
STORE PUNCH AODR 


RETURN TO MONITOR 


CARD NOT SLANK FLAG 


PAGE 


32F01360 
32F01370 
32F01380 
32F01390 
32F01400 
32F01410 
32F01420 
32F01430 
32F014%40 
32F01450 
32F01460 
32F01470 
32F01480 
32F01490 
4A2F01500 
32F01510 
32F01520 
32F01530 
32F01540 
32F01550 
32F01560 
32F01570 
32F01580 
32F01590 
32F01600 
32F01610 
32F01620 
32F01630 
32F01640 
32F01650 
32F01660 
32F01670 
32F01680 
32F01690 
32F01700 
32F01710 
32F01720 
32F01730 
32F01740 
32F01750 
32F01760 
32F01770 
32F01780 
32F01790 
32F01800 
32F01810 
32F01820 
32F01830 
32F01840 
32F01850 
32F01860 
32F01870 
32F01880 
32F01890 
32F01900 
32F01910 
32F01920 
32F01930 
32F01940 
32F01950 
32F01960 
32F01970 
32F01980 
32F01990 
32F02000 
32F02010 
32F02020 
32F02030 
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0647 
0648 
064A 
064C 
O64E 
0650 
0652 


0654 


0655 
0656 


0658 
O65A 


065C 
O6SE 


0660 
0662 


0664+ 
0666 


0668 
O66A 


066C 
O66E 


0670 
0672 


0673 


0674 
0676 


0678 
O67A 


067C 
O67E 


0680 
0682 


0684 


0686 


0688 
O68A 


068C 
O68E 


DATE 


0 

Ol 
01 
O01 
oo 
01 
Ol 


01 


00 
Ol 


ie} 8) 
01 


00 
01 


ep 
oo 


01 
00 


00 
01 


01 


00 
Ol 


00 
Ol 


00 
01 


01 
00 


01 
00 


00 
Ol 


01 


EC NO. 


0000 

0co000780 
4C20064E 
4C 800647 
67002000 
6F0007D5 
4C000 786 


40F2 


COFO 
4C2007D0D 


67001484 
6FG00 885 


67001C0C 
6F00087D 


67004003 
6F000865 


670006D0 
6F000028 


67000728 
6F000030 


6700CG001 
6FO00050D 


0C0007 84 
T04C 


40D3 


67T0002B8C 
6F000885 


6T0009C% 
6FO0087D 


67008003 
6F000865 


67T0006DE 
6F000028 


67000728 
6F000030 


67000002 
6F0005DD 


0C000 782 
7030 


O2JAN66 


415490 


& 
ex eKS 
*e ee & & 
* 
READY DC 
X10 
BSC 
BSC 
NOTRY LOX 
STX 
BSC 
¢ 
*#¢E8 
*et & & 
¥ 
PUNCH BSI 
* 
iO 
Bsc 
& 
PMIN LOX 
STX 
3 
PMAX ULDX 
STX 
& 
LOx 
STX 
& 
iox 
STX 
g 
LOX 
STX 
& 
LDX 
STX 
sd 
X10 
MDX 
* 
**#4e% 
*e£es € & 
* 2 
READ BSI 
* 
RMIN LDX 
STX 
& 
RMAX LOX 
STX 
* 
LDX 
STX 
® 
LDxX 
STX 
* 
LOX 
STX 
* 
LOX 
~ STX 
* 
X10 
MDX 
* 
ESKER 
O1LMAY66 
4154908 


L3 
L3 


L3 


3 


L3 
L3 


L3 
L3 


L3 
L3 


L3 
L3 


1442 OSW READY RTN 


SEH 


*eneegevpeunenenee_*e %© *& & & 


40000 
SNSRY 


NOTRY »Z 


READY 
42000 
LGFLG 
LGSCN 


START PUNCH — RTN 1 


ICTR 
SENSE OSW | 
BRANCH IF DSW NOT ZERO 


SET BIT 2 IN LOG FLAG 


55 3 fF 


ese eegeg_qg eae eevee €&@ © & & & 


READY 


BLFLG 


ERR19Z 
414B4° 


CLMIN 


ficoc 
CLMAX 


140G3 


DSwC+1 


PCCOL 
ILO 


OPEND 
ILCRP 


40001 
PID+1 


STPCH 


CLEAR - 


START 


L3 
L3 


L3 
L3 


L3 
L3 


L3 
L3 


L3 
L3 


L3 
L3 


* & & 


READY 


/028C 
CLAIN 


/09C4% 
CLMAX 


48003 


DSwC+] 


RDOCOL 
ILO 


OPEND 
ILCRP 


40002 
PID+¢l 


STRDO 
CLEAR 


START FEED —- RTN 3 


READ — RIN 2 
x*eeenunnekeevea®_E_ewe & K 


GO TO OSW READY 


LOAD BLANK CARD FLAG 
BRANCH IF NOT ZERO 
MOD 7 PUNCH COL MIN 
5300 US 


MOD 7 PUNCH COL MAX 
7160 US 


STORE PCH RESP OSW S/B 


INT Lve O 
ENTRY 


INT LVL 4 
ENTRY 


STORE RIN NO 1 


START PUNCH 
GO TO CLEAR 


¢xezee 


GG TO OSW KEADY 


MOD 7 READ COL MIN 
700 USEC 

MOD 7 READ COL MAX 
2500 USEC 

STORE COL OSwW S/B 


INTERRUPT LVL O 
ENTRY 


INT LVL 4& 
ENTRY 


STORE RIN NO 2 


START READ 
GO TO CLEAR 


*e¥S 85 


PART NO. 


PAGE 


32F02040 


32F02050 


32F02060 
32F02070 
32F02080 
32F02090 
32F02100 
32F02110 
32F02120 
32F02130 
32F02140 
32F02150 
32F02160 
32F02170 
32F02180 
32F02190 
32F02200 
32F02210 
32F02220 
32F02230 
32F02240 
32F02250 
32F02260 
32F02270 
32F02280 
32F02290 
32F02300 
32F02310 
32F02320 
32F02330 
32F02340 
32F02350 
3202360 
32F02370 
32F02380 
32F02390 
32F02400 
32F02410 
32F02420 
32F02430 
32F02440 
32F02450 
32F02460 
32FO024T70 
32F02480 
32F02490 
32F02500 
32F02510 
32F02520 
32F02530 
32F02540 
32F02550 
32F02560 
32F02570 
32F02580 
32F02590 
32F02600 
32F02610 
32F02620 
37F02630 
32F02640 

2F02650 
32F02660 
32FO02670 
32F02680 
32F02690 
32F02700 
32F02710 
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O68F 
6630 
0692 


0694 
0696 


0098 
O69A 


0698 
c69C 
O69E 


O6A0 
06A2 


06A% 
06A6 


06A8 
OGAA 


O6AC 
O6AE 


O6AF 


0680 


0682 


0684 
06B6 


0688 
O6BA 


O6BC 
O6BE 


O6B8F 
06Cl 
06C3 
06C4 
06C5 
06C6 
06C7 
06C9 
O6CA 


06cc 
06cCc 
06CD 
O6CE 
O6CF 


DATE 


00 


00 
01 


o1 


01 


ol 
00 


01 
00 


oc 
Ol 


01 


01 
00 


01 
00 


00 
01 


01 


00 


ooo0o0co0o9o 


oooo 


EC NO. 


4087 
67000715 
6F000030 


67000003 
6FOOO5DD 


0C000786 
T1024 


40AB 
67008003 
6FO000865 


670006ED 
6F000028 


6730071D 
6F000030 


67000004 
6FO0005DD 


0C000782 
7010 


4097 


6TO0006F5 
6F000028 


67000718 
6F000030 


67000005 
oFO00S5DD0 


0C000782 
7000 


65000000 
66006000 
2000 
C807 
8808 
1OOA 
4CO2Z07E5 
180A 
TOFA 


0000 
0000 


012C 


0000 
OI22 


O2JAN66 


415490 


* 
L3 
L3 


L3 
L3 


L 


L3 
L3 


L3 
L3 


L3 
L3 


L3 
L3 


L3 
3 


L3 
L3 
L3 
L3 


Ll 
L2 


**e* * 6 
x 
FEED BSI 
LOX 
STX 
ES 
LOX 
STX 
* 
XIO 
MDX 
& 
Pt Ft Ft 
ss. &¢ K& 
* 
NORD BSI 
| LOX 
STX 
b 
LOX 
STX 
¢ 
LOx 
STX. 
* 
LOX 
STX 
* 
x10 
MOX 
= 
Pr 2s fF 
e** & 8 
* ‘ 
BLANK BSI 
* 
LDX 
STX 
S 
LDX 
STX 
* . 
LOX 
STX 
* 
X10 
MDX 
* 
¥eees 
zxax*s & 
* 
CLEAR LOX 
. LDX 
TIMER LOS 
LOD 
ADD AD 
SLA 
BSC 
SRA 
MDX 
* 
BSS 
CONST OC 
OC 
OC 
OC 
* 
* 
OLMAYoa6 
4154908 


e*eeeeuexeee & BH KE HR BE 


READY 
FDEND 
ILCRP 


40003 
PIO+1 


STFD 
CLEAR 


START 
** © 


READY 
48003 


OSwC +1 


NDOCOL 
ILO 


NDEND 
ILCRP 


40004 
PID] 


STRD 


CLEAR 


START 
x ¢ & 


READY 


BLCOL 
ILO 


BLEND 
ILCRP 


40005 
PIO] 


STRD 
CLEAR 


TIMING LOOP 


NEW DATA READ - RIN 4 
*e ee 8 #€ € Bee EHH 


GO TO OSW READY 
INT LVL 4 
ENTRY 


STORE RIN NO 3 


START FEED 
GO 20 CLEAR 


*ee ee 


GO TO OSw READY 


STORE RD RESP DSW S/B 

STORE INTERPUPT LVL O 

ENTRY IN MONITOR 

STORE INTERRUPT LVL 4 
ENTRY | 


STORE RIN NO 4 


START READ 
GO TO CLEAR 


CHECK FOR BLANK CARD — RIN 5S ## 
eeeeune eee © 4 ££ 


GO TO OSW READY 


INT LVL 0. 
ENTRY 


INT LVL 4 
ENTRY 


STORE RIN 5 


START READ 
GO TO CLEAR 


2 SS 


*eeoeeesee & B&B e& K&B ERB K EE FS 


40000 
40000 
ie) 

CONST 


CONST+2 


10 


ERR3,C 


10 
ADD 


0 

40000 
7012C 
40000 
10022 


CLEAR ERROR FLAG 
CLEAR COLUMN COUNT 
CLEAR CARRY 


LOAD TIME CONSTANT 
INCREMENT UNTIL INTRPT 
TEST 4% SEC LIMIT 
BRANCH ON CARRY 


TIMING CONST 300 US 


TIMING CONST 34 US 


PART NO. 2191228 
3 


PAGE ~ 


32F02720 
32F02730 
32F02740 
32F02750 
32F02760 
32F02770 
32F02780 
32F-02790 
32F02800 
32F02810 
32F02820 
32F02830 
32F02840 
32F02850 
32F02860 
32F02870 
32F028 80 
32F02890 
32F02900 
32F02910 
3202920 
32F02930 
32F02940 
32F02950 
32F02960 
32F02970 
32F02980 
32F02990 
32F03000 
32F03010 
32F03020 


32F03030 


32F03040 
32F03050 
32F03060 
32F03070 


32F03080 © 


32F03090 
32FC3100 
32F03110 
32FC03120 
32F03130 
32F03140 
32F03150 
32F03160 
32F03170 
32F03180 
32F03190 
32F03200 
32F03210 
32F03220 
32F63230 
32F03240 
32F03250 
32F03260 
32F03270 
32F03280 
32F03290 
32F03300 
32F03310 
32F03320 
32F03330 
32F03340 
32F03350 
32F03360 
32F03370 


_ 32F03380 


32F03390 


PROG ID 


PAGE 


032F-4 
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1442 TIMING TEST 


06D0 O 
0601 O 


0602 01 


0604 Ol 
06D6 O 
0607 O 


0608 O1 
O6DA Ol 
O60C 01 


O6DE O 
O6DF O 


C6EO Ol 
O6E2 Ol 
O6E4¢ Ol 
O6E6 Ol 
O6E8B O 
O6E9 Ol 
O6EB Ol 


C6ED O 
O6EE O 
COEF Ol 
O6Fl O1 
O6F3 O1 


O6F5 O 
O6F6 Ol 
O6F8 Ol 
i O6FA Ol 
| O6FC O 
O6FD 01 


O6FF O 
0700 0 
0791 OO 
0703 0 


0704 Ol 


0706 Ol 
0708 01 
O70A 01 
o70C Ol 
O70E Ol 


0710 02 
0712 0 


mo DATE 
EC NO. 


0000 
402D 


4C2807/7E9 


67800645 
73FF 
TOFE 


7401078C 
o0co00078C 
4€4006C3 


0000 
40iF 


4C2807EA 
OCOOO78A 
C4000985 
F6000985 
1804 

4C2007FB 
4€4006C3 


0000 
4010 
740 1078A 
0C00078A 
4C4006C3 


0000 
0cC000788 
OCO0078A 
74000985 
7201 
4C4006C3 


0000 
7201 
CC80006A 
1090 
D60009D7 


0C000788 
04000864 
F4000865 
E4000 766 
4C20080D 


C4000864 


1002 


O2JAN66 


415490 


¢$* € &k & 

KKK EK 

* * xk * & 

x 

PCCOL OC 
BSI 

* 
BSC 

% 
LDX 

DLPCH MDX 
MDX 

* 
MDX 
X10 
BOSC 

x 

ees 

*es et & & 

s 

RDCOL DC 
BSI 

* 
BSC 
X10 
LD 
EOR 
SRA 
BSC 
BOSC 

s 

£EEKE 

x» *¢* & & 8 

s 

NDCOL OC 
BSI 
MDX 
x10 
BOSC 

x 

Pe SF | 

x ets ¢ & 

& 

BLCOL OC 
X10 
X10 
MDX 
MDX 
BOSC 

& 

*£OEKE 

* * &€© kK & 

& 

CMCOL DC 
MDX 
LOD 
SIT 
STO 

s 
X10 
STO 
EOR 
AND 
BSC 

& 

* 

TSTER LO 
SLA 

O1MAY66 

4154908 


* 


* 


cree 


eer 


o ree 


FOR THE 1130 SYSTEM 


a*exeeoeeneneeeene © & & & SE 


COLUMN 


INTERRUPT - PUNCH 


e428 


*e*eeeneeeeeun ee ee £8 


we 


/0000 ICTR FROM MON 
CMCOL GO TO COMMON RTN 
ERR4,+2 BRANCH JF OSW ERROR 
DELAY LOAD PUNCH OELAY AND 
-1 DECREMENT. UNT1L ZERO 
DLPCH © THEN SKIP 
COLPC.1 INCR PUNCH ADDR 
COLPC PUNCH COLUMN FROM DATA 
TIMER BRANCH QUT OF INT 
COLUMN INTERRUPT — READ eee 
*se ¢@ ke eweeeaeneeseuaeeeétiet ie 
70000 ICTR FROM MON ) 
CMCOL GO YO COMMON RTN 
ERR4+1,¢+Z BRANCH IF ODSw ERROR 
COLRD READ COLUMN 
RDATA 
RDATA COMPARE WITH OATA TBL 
4 SHIFT OUT LAST PUNCH BIT 
ERR5,2 BRANCH IF COMPARE NG 
TIMER BRANCH OUT OF INT 
COLUMN INTERRUPT — MODIFY DATA ¥# 
zseeeeneeeten868 8 & *£ & & & 
/0000 ICTR FROM MON 
CMCOL GO TO COMMON &TN 
COLRD,} INCR COLUMN READ AOOR 
COLRD READ COLUMN INTO DATA 
TIMER BRANCH OUT OF INT 
COLUMN INTERRUPT - READ BLANK e* 
*exeeeeestexeeexsrteesttst & & 
40000 
SNCOL SENSE DSW — RESET 
COLRD READ COLUMN | 
RDATA SKIP IF COLUMN BLANK 
1 SET NOT BLANK SW 
TIMER BRANCH OUT OF INT 
COMMON COLLMN INTERRUPT RIN ¥*#8# 
*eenunnemeeeeests# & 8&8 & & EK SE 
/0000 ICTR 
1 INCR COLUMN CTR 
EAQO LOAD TIME 
16 | 
TIME STORE TIMER COUNT 
SNCOL SENSE OSW - RESET RESP 
—DSwWCe STORE OSW WAS 
" OSWC4+1 COMPARE 
MASK+] MASK OUT LAST CARD 
—ERRG5Z BRANCH IF NG 
DSWC LOAD DSW 
SHIFT ERROR BIT 
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32F03400 
32F03410 
32F03420 
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3203470 
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| 32F03490 


32F03500 
32F03510 
32F03520 
32F03530 
32F03540 
32F03550 
32F03560 


.32F03570 


32F03580 


32F03590 


32F03600 


32F03610 


32F03620 
32F03630 
32F03640 
32F03650 


32F03660 


32F03670 
32F02680 
32F03690 
32F03700 
32F03710 


32F03720 > 
—32F03730 


32F03740 
32F03750 
32F03760 
32F03770 
32F03780 
32F03790 
32F03800 
32F03810 
32F03820 
32F03830 
32F03840 
32F03850 
32F03860 
32F03870 
32F038 80 
32F03590 
32F03900 
32F03S910 
32F03920 
32F93930 
32F03940 
32F03950 
32F03960 
32F03970 
32F03980 
32F03990 
32F04000 
32F04010 
32F04020 
32F04030 
32F04040 
32F04050 
32F04060 
32F04070 
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3A 


PROG 1D 0O32F-4 | 
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ee en 
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1442 TIMING TEST 


0713 


0715 
0716 


0717 


0718 
0719 
0718 


O71C 


0710 
O71E 


0720 
0722 
OT24 
0726 


0727 


0728 
0729 


OT2A 
0728 


072C 
O72E 
OT2F 
0730 
0732 
0734 
0736 
0738 
O73A 
073C 


O7T3E 


0740 
0741 


0743 
0745 


DATE 


01 


Ol 


ol 
ol 
01 


oc oC CO oo 


01 
01 
Ol 
01 
01 


01 


01 


01 
Ol 


EC NO. 


4C 8006FF 


0000 
4029 


7020 


0000 


_6€000646 


4024 


TO1B 


0000 
740809D5 


C40005DE 
£4000765 
0400050E 
4019 


7008 


0000 
4016 


T2FF 
T7028 


6680088C 


T2FF 
TO2E 


C400088C 
4C0380819 
9400088) 
4€C 2008 33 


67000985 
6FOOO7EA 
6F00078C 


40400792 


0000 
6E000 88C 


0C000790 
D400086C 


O2JAN66 


415490 


* * € 
Seats 
«eo * 


FDEND 


BSC I 


“x es * 


CC 
BSI 


MOX 


eeeee 


*x* x * 


BLEND 


*¢¢ Ce 
* = & 


NDEND 


$*t8e 
* «¢ ® 
OPEND 
MAXCK 
MINCK 
* 


CLCHK 
* 


LOCOL 


BREND 


eeKSSE 
** 


CMEND 


DC 
STX L2 
BSI 


MOX 


OC 
MDX 


LD 
AND 
STO 


rere FF 


BSI 


MOX 


DC 
8SI 


MDX 2 
MOX 


LOx 12 
MDX 2 
MOX 
LD L 
BSC L 
t 
BSC L 
LOX L3 
STX L3 
STX L3 


BCSC L 


* + & 


OC 
STX 2 


X10 L 
STO Lt 


O1MAY66 
4154908 


CMCOL 


RETURN TO COL RIN 


*eueeun ee ee BE HE KK EK KEK 


END Gr 


INT - FEED eens 


*eeeeoeeee ee & Hee H&B HK EK KH 


4/0000 
CMEND 


BREND 


END OP 


ICTR FROM MON 
GO TO COMMON RTN 


GO TO BRANCH END 


INT - BLANK CARD Pct ro | 


*ee6¢ &€eeOek eH He ER SE eK SF 


40000 
BLFLG 
CMEND 


BREND 


END OP 


STORE BLANK FLAG 
GO TO COMMON RTN 


INT - MODIFY DATA ete te 


*ezeeeeee eg & & & EE & & EE 


4/0000 


ICTR FROM MONITOR 


RDATA+8C,8 ADD LAST PUNCH BIT 


BSWO 
MASK 
BSWO 
CMEND 


LOCOL 


ENO OP 


MASK OUT MODIFY BIT 


GO TO COMMON RIN 
GO TO COL COUNT CHK 


INT - READ AND PUNCH #*#® 


*eee*e#eteeteetrke*et#te*eet & ¥ 8 


/0000 
CMEND 


-1 
CHK1 


cOLCT 
—} - 
CHKTM 


COLCT 


ERRB,+ 


BIN89 


ERR11,2Z 


RDATA 
COLRD 
COLPC 


ERSCN 


COMMON 


ICTR FROM MONITOR 
GO TO COMMON RTN 


DECREMENT COLUMN COUNT 
SKIP wWHEN ZERO 


RESTORE COL COUNT 

DECR COt COUNT — SKIP 
WHEN COUNT = 1/0 

GO TO COL TIME CHECK 


LOAD COLUMN COUNT 


BRANCH IF COUNT = ZERO 
SUB 80 
BRANCH IF CNT NOT 80 
RESET READ 8 PUNCFK ADDR 
BRANCH OUT OF INT 

END OP RTN *&ee 


*e*e*e*eeeeke eB BR REE &E EE SE 


40000 
COLCcT 


SNEND 
DSWE 


ICTR : | 
SAVE COLUMN COUNT 


SENSE 
STORE 


DOSW - RESET RESP 
OSwW WAS 


PART NOe 


PAGE 


32F04080 
32F04090 
32F04100 
32F04110 
32F04120 
32F04130 
32F04140 
32F04150 
32F04160 
32F04170 
32F041 80 
32F04190 
32F04200 
32F04210 
32F04220 
32F04230 
32F04240 
32F04250 
32F04260 
32F04270 
32F04280 
32F04290 
32F04300 
32F04310 
32F04320 
32F04330 
32F04340 
32F04350 
32F04360 
32F04370 
32F04380 
32FU4390 
32F04400 
32F04410 
32F04420 
32F04430 
32F04440 
32F 04450 
32F0+460 
32F04470 
32F04480 
32F04490 
32F04500 
32F04510 
32F04520 
32F04530 
32F04540 
32F04550 
32F04560 
32F04570 
32F04580 
32F04590 
32F04600 
32F04610 
32F04620 
32F04630 
32F04640 
32F04650 
32F04660 
32F046T0 
32F04680 
32F04690 
32F04700 
32F04710 
32F04720 
32F04730 
32F04740 
32F04750 


PROG ID 
PAGE 


2191228 
4 


032F-4 
6 


ta 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1442 TIMING TEST 


0747 
0748 


OT4A 
074C 
0740 


OT4F 
0751 
0753 


0755 


0757 
9759 
0758 
075 


O75E 
0760 
0762 


0764 


0765 
0766 
OT6T7 
0768 


0769 
O076B 
076D 
OT6F 


O771 
O773 
OTT4 


0776 
0778 
O77A 
o77C 


O77E 


0780 


0780 
0781 


0782 
0783 


0784 
0785 


DATE 


01 
01 
01 
01 
01 
01 


O1 


01 
01 
01 


ol 
01 
Ol 


oo0o°o 


01 
01 
01 
Oil 
00 
Ol 


01 


oo O80 9800 


EC NO. 


FO20 
4C180769 


C400086C 
1003 
4C280771 


C400086C 
F400086D 
4€200615 


4C 800740 


C400087D 
960009DE 
4C08081D 
7TOCcCC 


C60009D08 
94000885 
4C0 80828 


70c9 


FFT7F 
EFFF 
FFFB 
0801 


67800705 
77092000 
6FO0007D5 
4€800740 


C £0005C0F 
EOF3 
0400050F 


0C000786 


678007D5 
77004009 


6F000705 


4C 800740 


0000 
0000 
1700 


0000 
1404 


0000 
1481 


O2JAN66 


#15490 


* ar? 
EOR 
BSC 
*. 
LO 
SLA 
BSC 
* 
LD 
EOR 
BSC 
¢ 
BSC 
* 
&EECE 
sees $ 
s 
CHK1 LO 
S 
BSC 
MDX 
* 
CHKTM LD 
S 
BSC 
* 
MDX 
2 
MASK OC 
OC 
OC 
NROSW CC 
* 
Pt et F 
* *«¢£& & € 
* 
NRDY LOX 
MDX 
STX 
BSC 
* 
Po at F 
* es ¢&¢ «K & 
* 
LSTCO LD 
AND 
STO 
* 
X10 
* 
L DX 
MOX 
STX 
& 
BSC 
* 
*xEeKE 
** ££ & * 
¢ 
BSS 
SNSRY OC 
OC 
* 
STad OC 
DC 
& 
STPCH DOC 
oc 
OLMAY66 
41549508 


Pee or oe er 


13 
L3 
L3 


13 
L3 
L3 


NROSW 
NROY »+— 


OSWE 

3 
LSTCO,+Z 
OSwWE 
OSWE+]1 
ERR7,Z 


CMEND 


CHK REACER NOT READY 
BRANCH IF NOT READY 


LOAD OSW 


WAS 


SHIFT TO LAST CARD 
BRANCH TO LAST CARD_ 


LOAD DSW WAS 
COMPARE 


BRANCH 


RETURN TO END OP 


COLUMN TIME CHECK 
eeeeeeee ee ee ete et & 


CLMAX 
TIME+! 
ERR9O,gt 
MA XCK 


TIME? 
CLMIN 
ERR1O e+ 


CLCEK 


/EFTE 
/EFFF 
/FFEB 
/0801 


CHECK HIGHEST COL 


BRANCH 


IF NG 


IF 100 
REPEAT FOR NEXT 


RTN 


eee ee 


TIME 


LONG 
COL 


CHECK HIGHEST COL TIME 


BRANCH 


Too 


SHORT 


IF COL TIME 


REPEAT FOR NEXT COL 


MASK BIT 8 
MASK LAST CARD BIT 
MASK BIT 13 
NOT READY OSW 


NOT READY ROUTINE 
*eneeneweee_eéioereteee#ezt 8 8 


LGFLG 
42000 
LGFLG 
CMEND 


SET 


BIT 2 IN 


LOG 


RETURN TO END OP 


LAST CARD ROUTINE 
eee ee eee ee & eH & 


BSwl 
MASK#2 
BSwWl 
STFD 
LG-LG 
44000 
LGFLG 
CMEND 


IOcc 


TABLE 


MASK 


eeeKE 
x ¢ «& 


FLAG 
RTN 


*eeeu 
** * 


MASK OUT PUNCH RTN 


FEEC OUT LAST CARD 


ADD «BIT 1 


RETURN TO 


TO LOG FLAG 
END OP RTN 
ete ee 


ee eee ee See e ee BEEK EK 


0 
40000 
41700 


4/0900 
11404 


40000 
41481 


we 


PART NO} 


PAGE 


3204760 


32F04770 
32F04780 
32F04790 
32F04800 
32F04810 
32F04820 
32F04830 
32F04840 
32F04850 
32F04860 
32F04870 
3204880 
32F04890 
32F04900 
32F04910 
32F04920 
32F04930 
32F04940 
32F04950 
32F04960 
32F04970 
32F04980 
32F04990 
32F05000° 
32F05010 
32F05020 
32F05030 
32F05040 
32F05050 
32F05060 
32F05070 
32F05080 
32F05090 
32F05100 
32F05110. 
32F05120 
32F05130 
32F05140 
32F05150 
32F05160 
32F05170 
32F05120 
32F05190 
32F05200 
32F05210 
32F05220 
32F05230 
32F05240 
32F05250 


32F05260 — 


32F05270 
32F05280 
32F05290 
32F05300 
32F05310 
32F05320 
32F05330 
32F05340 

¢©05350 
327°05360 
32F05370 
32F05380 
32F05390 


-32F05400 


32F05410 
32F05420 
32F05430 


PROG ID 
PAGE 


2191228 
4A 


o32F-¢ 
& & 











[rts ames Rt 


anaes 
a sree RS 


~~ eit ete eee Ae a ce ez Langa PORE ee tee ye ON eee ce rereten engin pt SCO BRET me 
STE ae eee ey eee le : Per one a wor nee 
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1442 TIMING TEST 


0786 
07387 


0788 
0789 


O78A 
0788 


078C 
078D 


O78E 
O78F 


0790 
0791 


0792 00 
0794 0 
0795 O 
0796 0 
0797 O1 


0799 Ol 


079B Ol 
0790 0 
O79E 0 
O79F O1 


O7Al O1 
O7A3 O01 
O7A5 01 
OTAT OO 


O7A9 OO 
O7AB 1 
O7TAC 1 
O7AD 0 
O7AE O 


O7AF Ol 
O7B1 Ol 
07B3 OO 


07B5 O 


0786 Ol 
0788 0 


0789 O 
O7TCA O01 
o78C O 
078D O1 


O7BF O1 
07Cl O 
o7C2 Ol 


DATE 
EC NO. 


oO oOo oo 


OO = 


oo or 


0000 
1402 


0000 
1701 


0985 
1200 


0985 
1100 


0854 
1200 


0000 
1702 


C4000001 
E820 
00 1F 
COLE 
4C040 736 


4C180786 


740107D5 
1001 
D016 
4C280TA9 


740807AB 
67000796 
6FOOO5ES 
4C8000ll 


44800012 
0837 

07 AF 
0000 
TOF2 | 


6T0007A9 
6FOOO5ES 
4C800011 


0000 


67000837 
6BF2 


cols 
67000899 
1001 
4C2807C8 


67000894 
1001 
4C2807cs 


O02 JAN66 


415490 


* | 
STFD OC 
oc 
& 
SNCOL DC 
DC 
* 
COLRD DC 
Dc 
* 
co.epc cc 
DC 
* 
COLER OC 
OC 
* 
SNEND DOC 
~ oc 
* 
= 
eee ke 
eee ee £ 
* 
ERSCN LD L 
OR 
sto 
ERTST LO 
BSC L 
+ 
BSC L 
* 
MDX L 
SLA 
Sto 
| BSC L 
* 
ERRET MOX L 
LOx 2L3 
STX L3 
BSC I 
* 
ERCAL BS I 
MSGAD OC 
oC 
DC 
MDX 
* 
BUSY LDX L3 
STX L3 
BSC I 
* 
ERFLG DC 
* 
cee KE 
eee ee 
PY 
LGSCN LDX L3 
STX 3 
* 
LD 
LDX L3 
SLA 
BSC L 
* . 
LOx L3 
SLA 
BSC L 
* 
O1LMAY60 
415490B 


40000 
11402 


40000 
41701 


RDATA 
4200 


RDATA 
41100 


MSG445 
71200 


40000 
41702 


ERROR LOG RTN 


eee ¢% 


eeu ep &£eaee ee eB EB HeEE SBE SS 


1 

ERFLG 
ERFLG 
ERFLG 
LGSCNeE 


LGSCNegt— 


LGFLG,1 
1 

ERFLG 
ERCAL,»+Z 


“MSGAD,8 
ERTST 
ML SCF 
START 


ERROR 
MSG1 
"USY 
/0000 
ERRET 


ERCAL 
MLSCF 
START 
40000 


END CARD 


LOAD 
COMBINE 


INDEX REG 1 
ERROR FLAGS 


BRANCH IF BYPASS ERROR 


BRANCH IF ERROR FLAG 
IS ZERO | 
ADD BIT TO LOG FLAG 
TEST FOR ERROR BIT 
BRANCH IF ERROR 


INCR MESSAGE ADDRESS ~ 
STORE RETURN ADDR 


GO TO MONITOR 
MCNITOR ERROR CALL 
MESSAGE ADDRESS 

BUSY RETURN 

NORMAL RETURN 

STORE BUSY RETURN ADDR 
RETURN TO MONITOR. 
ERROR FLAG 


LOG RTN eeKe 


**e «© &@ & Oe ee KE He He HE KK K 


MSG1 
MSGAD 


LGFLG 
MSGLG 

1 

LGCAL »+2Z 


MSGNR 
1 . 
LGCAL,+Z 


RESET CALL ADORESS 


TEST LOG FLAG BIT 1 
SET LAST CD MESS 

BRANCH IF LOG BIT 
SET NRDY MESS 


BR IF NRDY MESS 


PART 
PAGE 


32F05440 
32F05450 
32F05460 
32F05470 
32F05480 
32F-05490 
32F05500 
32F05510 
32F05520 
32F05530 
32F05540 
32F05550 
32F05560 
32F05570 
32F05580 
32F05590 
32F05600 
32F05610 
32F05620 
32F05630 
32F05640 
32F05650 
32F05660 
32F05670 
32F05680 
32F05690 
32F05700 
32F05710 
32F05720 
32F05730 
32F05740 
32F05750 
32F05760 
32F05770 
32505780 
32F05790 
32F05800 
32F05610 
32F05820 
32F05830 
32F05840 
32F05850 
32F05860 
32F05870 
32F05880 
32F05890 
32F05900 
32F05910 
32F05920 
32F05930 
32F05940 
32F05950 
32F05960 
32F05970 
32F05980 
32F95990 
32F06000 
32F06010 
32F06020 
32F06030 
32F06040 
32F06050 
32F06060 
32F06070 
32F06080 
32F06090 
32F06100 
32F06110 
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a 


it) 
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1442 TIMING TEST 


O7C4 
O7C5 


OTC? 


O7C8 
o7c9 
O7CB 
o7cc 
O7CD 
O7CE 


O7CF 
0701 
0703 


0705 


07D6 


0707 
0709 
0708 


07DD 
O70F 


O7E1 
O7E3 


O7E5 
O7ET 


O7E9 
O7EA 


O7EB 
O7ED 
OTEF 
OTFO 
O7F2 
OTF4 
OTF6 
O7F8 
OTFA 


O7FB 
O07F-D 
O7FE 
0800 
- 0802 
0804 
0806 
0808 
OBOA 
080C 


080D 


O8O0F 
0810 


DATE 


oonrmr OO =] oo 
oO pus 


© 
rm 


01 
00 


01 
01 
00 


00 
01 


00 
Ol 


00 
01 


01 
Ol 


o1 
01 
01 
Gl 
01 


01 


01 
01 
01 
Ol 
01 
01 
01 


Ol 
01 


EC NO. 


1001 SLA 
4C2007D6 BSC 
* 
700F MDX 
6802 LGCAL STX 
44800013 BSI 
0899 LGMSG OC 
O7CF OC 
8000 DC 
7007 MDX 
& 
670007C8 LGBSY LOX 
6FO0005ES% STX 
40800011 BSC 
= : 
0000 LGFLG CC 
& 
e*e*ss¢ & 
= 
3001 WIRET WAIT 
x 
ae 
67000618 NEXT LDX 
6FOO05ES STX 
4C800011 BSC 
¢ 
x ¢ ¢ &¢ & 
eR 
Pte tf | 
zse* & €& & 
* 
65004000 ERR1 LDX 
4€000792 BSC 
& 
65002000 ERR2 LDX 
4C000792 BSC 
s 
75001000 ERR3 MDX 
4C000792 BSC 
s 
T2FF ERR& MDX 
1000 NOP 
” | 
0C00078E : x10 
©4000785 LD 
EBOA OR 
04000785 STO 
C6000985 LD 
04000855 STO 
6£000856 STX 
4C4006C3 BOSC 
0800 BIT4 OC 
* 
C40007B5 ERRS5 LO 
E80E OR 
04000785 sTO 
67800985 LDX 
6FO00085C STX 
C6000985 LD 
D400085D STO 
6EO00685E STX 
4C4006C3 BOSC 
0400 BITS OC 
* 
C40007B5 ERR6 LD 
E804 OR 
04000785 STO 
O2ZJAN66 O1MAY66 
415490 4154908 


L3 
L3 


L3 
L3 


L1 


Ll 


Ll 


13 
L3 
L2 
L 
L2 
t 


L 


Lt 


ERFLG 


BRANCH IF ERRORS OR 


1 

WIRET»Z SINGLE CARD BIT 

NEXT GO TO NEXT 

LGMSG SET LOG MESS 

LOG MONITOR LOG CALL 

MSGLG MESSAGE ADDR 

LGBSY BUSY RETURN 

/8060 RUN SW 

WIRET NORMAL RETURN 

LGCAL STORE BUSY RETURN ADDR 

ML SCE oO % 

START RETURN TO MONITOR 

/0000 LOG FLAG 

**eee*¢@etexuee«#eeett«# «& &£€ & KE 

1 WAIT FOR OPERATOR TO 
READY 1442 
PRESS PROG START 

TESTS END OF ROUTINE | 

ML SCF GO TO MONITOR 

START TO TEST FOR NEXT 
CARD 

*eeets2s8ee¢3888 808382288 8 & 

ERROR ROUTINES ++e88 

*exeoeestesests#esets8tsesste2nk &€ € £ 

44000 PLACE BIT 1 IN ERROR 

ERSCN 

42000 PLACE BIT 2. IN ERROR 

ERSCN 

41000 ADD BIT 3 TO ERROR 

ERSCN | | 

-1 DECR COi CTR 

| NO OP 

COLER READ COLUMN WAS 

ERFLG 

BIT4 ADD BIT 4 TO ERROR 

ERFLG 

RDATA STORE DATA S/B 

MSG4*6 

MSG447 STORE CCL COUNT 

TIMER BRANCH OUT 

0800 : 

ERFLG ADD NIT 5S TO ERROR 

BITS 

ERFLG 

RDATA | STORE DATA WAS 

MSG5¢5 

RDATA STORE DATA S/B 

MSG5#6 

MSG5+7 STORE COL COUNT 

TIMER BRANCH OUT 

/0400 | 

ERFLG | ADD BIT 6 TO ERROR 

BIT6 


PART NO. 


PAGE | 


32F06120 
32F06130 
32F06140 
32F06150 
32F06160 


32F06170 


32F06180 


32F06190 | 


32F06200 
32F06210 
32F06220 
32F046230 
32F06240 
32F06250 
32F06260 
32F06270 
32F06280 


32F06290 


32F06300 
32F06310 
32F06320 
32F06330 
32F06340 
32F06350 
32F06360 
32F06370 
32F06380 
32F06390 
32F06400 
32F06410 
32F06420 
32F06430 
32F06440 
32F06450 
32F06460 
32F06470 
32F06480 
32F06490 
32F06500 
32F06510 
32F06520 
32F06530 
32F06540 
32F06550 
32F06560 
32F06570 
32F06580 
32F06590 
32F06600 
32F06610 
32F06620 
32F06630 
32F06640 
32F06650 
32F06660 
32F06670 
32F06680 
32F06690 
32F06700 
32F06710 
32F06720 
32F06730 
32F06740 
32F06750 
32F06760 
32F06770 
32F06780 
32F06790 
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PAGE 6 PAGE 
1442 TIMING TEST 1442 TIMING TEST 
0812 01 4C000710 BSC L TSTER RETURN TO COLUMN RTN 32F06800 O85A 1 OB8AA DC ~ WSBCL -WAS»S/BeCOL 32F07480 
0814 0 0200 BIT6 OC 40200 32F06810 0858 1 O8D8 OC. ALPH5 READ CCMPARE 32F07490 
* 32F06820 085C 0 0000 OC 70000 WAS 32F07500 
0315 OO 75000100 ERR7T MDX LI /0100 ADD BIT 7? TO ERROR 32F06830 085D 0 0000 oc — 40000 $/B 32F07510 
0817 01 4€800740 BSC I  CMEND RETURN TO END OP RTN 32F06840 O85E 0 0000 OC /0000 CoO. COUNT 32F07520 
: * 32F06850 * 32F07530 
0819 00 75000080 ERR8 MDX Ll /0080 ADD BIT 8 TO ERROR 32F06860 O85F 0 0092 MSG6 OC /0002 32F07540 
0818 O1 4C000738 BSC Lt BREND RETURNS TO END 32F06870 0860 0 0000 OC 40000 32F07550 
* 32F06880 0861 0 0006 DC /0006 32F07560 
081D 00 75000040 ERR9 MDX Ll /0040 ADD BIT 9 TO ERROR 32F0689C 0862 1 O89E DC WASSB WAS - S/B 32F07570 
G81F 01 C6000908 LD L2 TIME? STORE COL TIME WAS 32F06900 0863 1 O8E€6 cc ALPH6 Cot OSw 32F07580 
0821 01 D400087C STO L MSG945 32F06910 0664 0 0000 DSwC OC /0000 COL DSW WAS 32F07590 
0823 0 7201 MDX 21 32F06920 0865 0 0000 OC 40000 S/6 32F07T600 
0824 O01 6E0008TE STX L2 MSG947 STORE COL COUNT 32F06930 0866 0 0000 OC /0000 32FOT610 
0826 O1 4C00072C BSC t MINCK RETURN TO END’ OP 32F06940 % 32F07T620 
* 32F06950 0867 0 0002 MSG7 OC 10002 32FOT630 
0828 00 75000020 ERR190 MDX L1 /0020 ADD BIT 10 TO ERROR 32F06960 0868 G 0000 OC 4/0000 32F 07640 
082A G61 C60009D8 LO “2 TIME+1 STORE COL TIME’ WAS 32F06970 0869 0 OOO0T7 OC /0007 32F07650 
082C O01 D4000884 STO cL MSG10¢5 32F06980 O86A 1 O89E CC WASSB WAS - S/B 32FO0T660 
O82E 0 7201 MDX 21 32F06990 0868 1 OS8EF oC AL PH? END OSW 32FO7670 
082F Ol1 62000886 STX L2 MSG1047 STORE COL COUNT 32F07000 086C 0 0000 DSWE OC 40000 END OP OSW WAS 32F07680 
0831 01 4C€000730 BSC L  tLtOCOL RETURN TO END OP RTN 32F07010 0860 0 0800 DC 40800 S/8 32F07690 
* 32F07020 O86E 0 0000 DC 4/0000 32F07700 
0833 00 75000010 ERR11 MOX L1 /0010 ADD BIT 11 TO ERROR 32F07030 * 32F07710 
0835 O01 4C00G6738 BSC L_ BREND RETURN TO END 32FO07T040 986F O 0000 MSG8 OC 40000 32F07720 
* 32F07050 0870 0 0000 cc 40000 32F07730 
es ERROR MESSAGES *#*8% =32F07060 0871 0 oOo08 OC /0008 _32F0T740 
*eeueee &@ #& #@eeee ee & 8&8 & & & FE 32F07070 O872 1 O8F8 OC AL PHS NG COLUMN 32F07750 
* 32F07080 0873 0 0044 OC AINT INTRPT 32F07760 
0837 0 92000. MSG1 OC 4/0000 WORD COUNT 32F07090 0874 0 0000 OC 70000 32FO07770 
0338 0 0000 oC /0c00 32F07100 : 0875 0 oO0co oC /0Cc00 32FO7TBO 
0839 QO 0OOO01 DC 40001 MSG ID 32:07110 0376 OQ 0000 oC 4/0000 32F07790 
033A 1 O8BA DC ALPH1 CARD NOT BLANK 32F07120 & 32F07800 
0838 O 9000 OC 40000 32F07130 0877 0 0003 MSG9 OC 40003 32F07810 
083C 0 0000 CC 40000 32F07140 0878 0 0oO00o CC .. /000C 32F07820 
0830 0 0000 oc 40000 32F07150 | 0879 Q ©oO009 oC /0C09 32F07830 
‘ 083E€ 0 oO000 DC 40000 32FO7160 O87A 1 O8AA — CC WSBCL ~WAS»S/BsCOL 32F07840 
* 3207170 0678 1 0902 cc AL PHS COL TIME LONG 32F07850 
083F O 0000 MSG2 OC /0000 32F07180 O087C 0 0000 CC /00CO COL TIME wWwAS 32F07860 
0840 0 0000 oc 40000 32F07190 C87D 0 0000 CLMAX DC 40000 COL TIME MAX 32FuTe70 
0841 0 0002 OC 40002 32F07200 O87E 0 0000 CC /0000 COL COUNT 32F07880 
0842 0 0038 DC AIVD — ALPHA MSG 1 - INVLD 32F07210 te 32F07890 
0343 0 0050 DC ASwS ALPHA MSG —- SWS 32F07220 O87F O 0003 MSG10 CC /0003 32F67900 
0844 0 4000 OC 40000 32F07230 0880 0 0000 oC 4/0000 32F07910 
0845 0 0000 OC 70000 32F07240 0881 0 0010 DC 70010 . 32F07920 
0846 0 0000 Oc /G000 32F07250 0882 1 OS8AA oC WSBCL —WAS»S/B,COL 32F07930 
* 32F07260 0883 1 0911 OC ALP1O COL TIME SHORT 32F07940 
9847 0 0000 MSG3 OC 40000 32F07270 0884 0 0o0v0 Oc /0000 COL TIME wAS 32F07950 
0848 0 0000 OC 40000 32F07280 0685 0 0000 CLMIN DC 40000 COL TIME MIN 32F07960 
0849 0 0003 DC 10003 32F07290 0886 O 0000 oC /0c00 COL COUNT 32F07970 
084A 0 0041 OC ANINT NO INTRPT 32F07300 & 32F07980 
0848 0 0000 OC 40000 | 32F07310 0887 0 0002 MSGli OC /0002 32F07990 
034C 0 0000 DC 40000 32F07320 0888 0 0000 OC 40000 32FO08000 
0840 0 0o000 OC /0000 32F07330 0889 0 0011: OC /ooll 32F08010 
084E 0 0000 OC 40000 32F07340 O88A 1 O89E DC WASSB WAS - S/B 32F08020 
* 32F07350 088B l 0921 OC ALP11 COL CNT 32F08030 
084F O 0003 MSG& OC /0003 32F07360 088C O 0000 COLCT oC /0000 COLUMN COUNT WwAS 32F08040 
0850 O 0oO000 OC /0000 32F07370 088D O 0050 BIN8BO OC 40050 S/8 32FC8050 
03851 0 0004 OC 10004 32F07380 O88E 0 0000 CC /0000 32F08060 
0852 1 O8AA OC WS8CL -WAS»S/B,COL 32F07390 * 22F08070 
0fF53 1 O8CA OC ALPH4 COLUMN ERROR 32F07T400 O88F O 9000 MSGM OC 40000 32F08080 
0854 Q ooco0ndo OC £0000 WAS 32F07410 0890 0 0000 DC /0000 _ 32F08090 
0855 0 0000 DOC /0000 S/8 32F07420 0891 QO 0001 DC /oo0o1 32F08100 
0856 O 0000 OC /0000 COL COUNT 32F07430 0892 1 094D OC ALPHM ENTER MOD NUMBER 6/7 32F08110 
& 32F07440 0893 0 0000 OC 40000 7 3208120 
0857 O 0003 MSG5 OC 40003 32F07450 & 32F08130 
0858 O 0000 DC 70000 32F07460 0894 0 0000 MSGNR DC 40000 32F08140 
0859 0 0005 OC /0005 32F07470 0895 0 0000 OC 40000 32F08150 
DATE O2JAN66 OLMAY 56 PROG ID 032F-¢ io DATE O2JAN66 O1LMAY66 . . | PROG ID 032F-¢ 
€C NO. 415490 4154908 6 : EC NO. 415490 4154908 | 7 ah. - PAGE 6A 
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1442 TIMING TEST | 1442 TIMING TEST 





32F08840 








0896 0 0002 DC /0C02 32F08160 08D1 0 3600 oC 43600 
0887 1 092C DC AL PHN NOT READY — PRESS START 32F08170 08D2 0 6200 DC /6200 32F08850 
0898 0 0000 oC 4/0000 32F08180 0803 0 6200 OC 46200 32F08860 
* , 32F08190 0804 0 5200 OC 45200 32F08870 
0899 0 0000 MSGLG DC 4/0000 32F08200 0805 0 6200 DC /6200 32F08880 
089A 0 0000 DC /0000 32F08210 0806 0 0300 OC /0300 32F08890 
089B 0 0003 oc 70003 32F08220 O8D7 O FFFF oc /FFEF 32F08900 
089C 1 O9S5F OC ALPLG LAST CARD » LOAD PCHED 3208230 * 32F08910 
* CARDS + START 32F08240 0808 0 6200 ALPHS DC 46200 32F08920 
089D 0 0000 DC 4/0000 32F08250 0809 0 3600 OC 43600 32F08930 
* 32F08260 O8DA 0 3€00 OC 43€00 32F08940 
KEES ALPHA MESSAGES ***** 32F08270 08DB 0 3200 DC 13200 32F08950 
** ¢ & *eeeneaneenege gee &2 *& & H&B 32F08280 OsDC 0 2100 OC 42100 32F08960 
* 32F08290 0800 OO 1€00 OC 41€00 32F089T70 
O89E 0 8400 WASSB OC 18400 - 32F08300 O8CE O 5200 DC 4/5200 32F08980 
O89F 0 2100 DC /2100 32F08310 | O8DF 0 7200 DC 17200 32F08999 
O8A0 0 9200 CC 49200 W 3208320 | O8EO 0 5600 cc 45600 32F09000 
08Al 0 3£00 OC 43E00 A 32F083306 O8E1 O 3€00 OC 43€00 32F09010 
O8A2 0 9A00 oC /9A00 S 32F08340 O8E2 0 6200 oC 46200 32F09020 
08A3 0 8000 oc /8000 9 32F08350 O8E3 0 3600 DC 43600 32F09030 
08A4 O 9A00 oc 79AC0 Ss 32F08360 O8E% 0 0300 oc 40300 32F09040 
08A5 0 BCO0O Dc /8COO / 32F08370 O8ES O FFEF oc /F FFF 32F09050 
O8A6 0 1A00 OC /1A00 B 32F08380 * 32F09060 
O8A7 0 2100 OC 42100 32F08390 O8E6 O 1€00 ALPH6 OC /1€00 32F09070 
0O8A8 0 8400 OC 48400 - 32F08400 O8E7 0 5200 DC 1520C 32F09980 
0849 0 FFFF DC /FFFF 32F08410 C8E8 0 S5E0O oc /5E00 32F09090 
* 32F08420 QO8E9 O 2100 OC 42160 32F09100 
O8AA O 8400 wSBCL OC 48400 - 32F08430 O8EA 0 3200 OC 43200 32F09110 
08AB O 2100 OC 42100 32F08440 O8EB O 9A00 DC /9a00 32F09120 
O8AC 0 9200 oc 439200 bi 32F08450 O8EC 0 9200 cc 9200 32F09130 
O8A0 0 3E00 oc /3E€G0 | A. 32F08460 < O8ED 0 0300 DC 40300 32F09140 
O8AE O 9A00 oC /9A00 S 32F08470 O8EE OO FFFF oc /F FEF 32F09150 
O8AF O 8000 OC 48000 ° 32F08480 s | 32F09160 
08B0 0 9A00 cc /9A00 os 32F08490 O8EF 0 3600 ALPH7 OC 13600 E 32F09170 
08B1 0 s8sCO0O —6oc /8CO0O ’ | 32F08500 O8FO 0 7600 DC 47600 N - 32F09180 
08B2 0 1A00 OC /1A00 8 32F08510 O8F1 0 3200 oC 43200 D 32F09190 
08B3 0 8000 oC 78000 _ = 9 32F08520 O8F2 0 2100 DC 42100 32F09200 
0884 0 1€00 OC J1ECO Cc 32F08530 0O8F3 0 32C0 OC 43200 D 32F09210 
08685 0 5200 OC 45200 0 32F038540 O8F4 0 9A00 OC /9A00 S 32F09220 
08B6 0 SECO DC /5€00 L 32F08550 O8F5 0 9200 oC 19200 a 32F09230 
08B7 0 2100 OC 42100 32F08560 O8F6 0 0300 oC 40300 L 32F69240 
08B8 0 8400 OC 48400 - 3208570 O8F7T O FFFF oC /FFFE 32F09250 
0889 0 FFFF oC JFFFF | 3208580 * 32F09260 
* 32F08590 O8F8 0 7600 ALPS OC 47600 N. 32F09270 
O8BA O 1E00 ALPH1 DC /1€00 C 32F08600 O8F9 O 5200 OC 45200 Oo 32F09280 
0888 OO. 3E00 oc /3E00 A 32F08610 O8FA O 2100 OC 42100 32F09290 
08BC 0 6200 DC 46200 R 32F08620 O8FB O 1€00 OC /1€00 C 32F09300 
0O8BD O 3200 OC 43200 D 32F08630 O8FC O §200 DC 45200 a) 32F09310 
O8BE O 2100 DC 42100 32F0 8640 O8FD O S5E0O oC /5E00 L 32F09320 
O8BF 0 7600 CC /7600 N 32F08650 O8FE 0 8200 oC 48200 U 32F09330 
08CO 0 5200 OC 45200 fe) 32F08660 O8FF OQ 7200 OC 47200 » 32F09340 
08Cl 0 9E00 DC /9E00 T 32F08670 0900 0 7600 OC 47600 Ni 32F09350 
08C2 0 2100 DC 42100 32F08680 0901 0 FFFF DC /FFFE 32F09360 
98C3 0 1A00 oC 42400 8 32F08690 * 32F09370 
08C4 O 5E00 OC 45€00 L 32F08700 0902 0 1€00 ALPH9 OC /1€00 C 32F09380 
08C5 O 3£E00 OC /3E00 A 32F08710 0903 0 5200 DOC 45200 Oo 32F09390 
08C6 0 7600 OC /7600 N 32F08720 0904 0 5E00 DC /5E00 L 32F09400 
O8C7? 0 SAOO OC /5A00 K 32F08730 0905 0 2100 OC 42100 32F09410 
08C8 0 0300 DC 40300 LINE FEED 32F08740 0906 0 9E00 Oc /9€00 T 32F09420 
08C9 O FFFF OC sEFFF | 32F08750 0907 O 2200 OC 12200 I 37?F09430 
* 32F08760 0908 0 7200 DC 47200 4 32F09440 
- O8CA O 1E00 ALPH4 OC /1€00 Cc 32FO08770 0909 0 3600 oC 43600 € 32F09450 
08cB 0 5200 oc 45200 re) 32F08780 090A 0 2100 oc 42100 32F09460 
C8CC 0 SEOO DC /SE00 L 32F08790 090B 0 5E00 OC 75E00 L 32F09470 
08CD 0 B200 DC 48200 U 32F08800 090C O 5200 DC 45200 Oo 32F09480 
O8CE 0 7200 OC 47200 M 32F08810 0900 0 7600 oc 47600 N 32F09490 
OscF 0 7600 OC 47600 i 32F08820 O90E 0 1600 oC 41600 G 32F09500 
0800 0 2100 OC /2100 32F08830 O90F O 0300 OC 40300 L 32F09510 
DATE O2JAN66 OLMAY66 ; PROG 1D 032F-4 es DATE O2JAN66 O1MAY66 a ee : PROG ID o32F-4 
EC NO. 415490 4154908 3, ~~ PAGE 7 TA 
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0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
O9LA 
0918 
o91Cc 
091D 
O91E 
O9LF 
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0926 
0927 
0928 
0929 
O9CA 
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092C 
0920 
O092E 
O92F 
0930 
0931 
0932 
0933 
093% 
0935 
0936 
0937 
0938 
0939 
O93A 
093B 
093C 
093D 
O93E 
O93F 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
094A 
094B 
094C 


094D 
094e 


DATE 
EC NO} 


oo eooooo00qooooocooocoooccooooqoo0oooeocooo03o 


FFFF 


1E00 
5200 
5E00 
2100 
9E00 
2200 
7200 
3600 
2100 
9400 
2600 
5200 
6200 
9E00 
0300 
FFFF 


1E00 
5200 
5E00 
2100 
1£00 
5200 
B200 
7600 
9E00 
0300 
FFFF 


6200 
3200 
6200 
2100 
3200 
9A00 
9200 
2100 
7600 
5200 
9E00 
2100 
6200 
3600 
3E00 
3200 
A600 
2100 
8400 
2100 
5600 
6200 
3600 
9A00 
9A00 
2100 
9A00 
9E00 
3E00 
6200 
9E00 
0300 
FFFF 


3600 
7600 


O2JANG66 
415490 


ALP10 


ALPL1 


ALPHN 


ALPHM 


Oc 


OC 
DOC 
OC 
oC 
oc 
oC 
oc 
oc 
oC 
OC 


OC 
OC 
OC 
oC 
OC 


DC 
DC 
oc 
OC 
DC 
OC 
oc 
oc 
OC 
oC 
oc 


OLMAYC6 
4154908 


/EFFF 


/1€00 
45200 
/5E00 
42100 
/9E00 
42200 
47200 
43600 
42100 
49400 
42600 
45200 


16200 


/9E00 
40300 
/EFEF 


41€00 
45200 
45€00 
42100 
/1E00 
45200 
48200 
/7600 
/9€00 
40300 
JFFFF 


46200 
43200 
46200 
42100 
43200 
49A00 
49200 
42100 
47600 
45200 
49E0O 
2100 
46200 
43600 
43E00 
43200 
A600 
4/2100 
48400 
42100 


' £5600 


46200 
43600 
49400 
/9AG0 
42100 
/9A00 
/9E00 
43E00 
46200 
/9E00 
40300 
/FEFF 


43600 
47600 


INE FEED 


INE FEED 


INE FEED 


zm 


PART NO. 2191228 
8 


PAGE 


32F09520 
32F09530 
32F09540 
32F09550 
32F09560 
32F09570 
32F09580 
32F09590 
32F096900 
32F09610 
32F09620 
32F09630 
32F09640 
32F09650 
32F09660 
32F09670 
32F09680 
32F09690 
32F09700 
32F09710 
32F09720 
32F09730 
32F09740 
32F09750 
32F09760 
32F09770 
32F09780 
32F09790 
32F09800 
32F09810 
32F09820 
32F09830 
32F09840 
32F09850 
3209860 
32F09870 
32F09880 
32F09890 
32F09900 
32F09910 
32F09920 
32F09930 
32F09940 
32F09950 
32F09969 
32F09970 
32F0S980 
32F09990 
32F10000 
32F10010 
32F10020 
32F10030 
32F10040 
32F10050 
32F10060 
32F10070 
32F10080 
32F10090 
32F10100 
32F10110 
32F10120 
32F10130 
32F10140 
32F10150 
32F10160 
32F10170 
32F10180 
32F10190 
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1442 TIMING TEST 


0981 
0982 


=) 

Ye) 

o 
eocoooco0ceoo0oo0oo0oo0oo0ooo000c0co0oo00cecoeo0oo0coo00ccoooooooo0oo0ooeoo cooooocoo0doooeooocoooo 


0984 


0986 
0987 
09868 
0989 
O9BA 
0988 
o98Cc 


ooo0oo0o0ce °o 


DATE 
EC, NO. 


9E00 
3600 
6200 
2100 
7200 
5200 
3200 
2100 
7600 
B200 
7200 
1A00 
3600 
6200 
0300 
FFFF 


0000 


8000 
C000 
EOO0O 
FOOO 
7800 
3C00 
1€00 


O2JAN66 
415490 


ALPLG 


#ECEKS 


ROATA 
* 


OC 


OC 
OC 
CC 
OC 


OC 


oc 
OC 


O1MAY66 
4154908 


49E00 
43600 
46200 . 


42100 
47200 
45200 


13200 


12100 
17600 
18200 
/720C 
41400 
43600 
46200 
40300 
/EFFF 


/5€00 
43E00 


49400 


/9E00 
12100 
/1E00 
/3€00 
/6200 
13200 
12100 
/62U0 
42100 
/5€00 
45200 
/3E00 
/3200 
42100 
/5600 
71€00 
12600 
13600 
13200 
12100 
/1€00 
/3E00 
16200 
13200 
/9A00 
12100 
/%400 
12100 
19200 
/9E00 
/3E00 
1200 
/9€00 
/0300 
/FFFF 


re EmMoECe CORB 2M 


INE FEED 


OPmrnr aurr 


nNOonrrenr Omrav oOror es 


+ 


rea DP aN 


INE FEED 


DATA TABLES 


40000 


4/8000 
/C000 
E000 
/=000 
4/7800 
43C00 
/1€00 


CURRENT DATA READ 


DATA TBL COLUMN 1 


PART ND. 2191228 


PAGE 


32F10200 
32F10210 
32F10220 
32F10230 
32F10240 
32F10250 
32F10260 
32F10270 
32F10280 
32F10290 
32F10300 
32F10310 
32F10320 
32F10330 
32F10340 
32F10:250 
32F10360 
32F10370 
32F10380 
32F10390 
32F10400 
32F10410 
32F10420 
32F 10430 
32F 10440 
32F10450 
32F10460 
32F10470 
32F10480 
22F 10490 
32F 10500 
32F10510 
32F10520 
32F10530 
32F10540 
32F10550 
32F10560 © 
32F10570 
32F10580 
32F10590 
32F10600 
32F10610 
32F10620 
32F10630 
32F10640 
32F10650 
32F10660 
32F10670 
32F10680 
32F10690 
32F10700 
32F10710 
32F10720 
32F10730 
32F10749 
32F10750 
32F10760 
32F10770 
32F10780 
32F10790 
37F10800 
32F10810 
32F10820 
32F10830 
32F10840 
32F10850 
32F10860 
32F10870 
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1442 TIMING TEST ) 1442 TIMING TEST 

0980 0 OFOO OC /OFOO 32F10880 0901 0 FF30 DC /FF30 32F11560 

O98E QO 0780 oc 4/0780 32F10890 0902 0 FCFO DC /FCFO 32F11570 

098F 0 03CO DC /03CO COL 10 32F10900 0903 0 F3F0 oC /F3F0 32F11580 

0990 0 O1E0 DC /O1E0 32F10910 09D4 0 CFFO oC /CFFO 32F11590 

0991 0 OOFO OC /O00FO 32F10920 0905 0 3FF8 DC /3FF8 COL 80 32F1i600 

0992 0 oOo70 . DC /0070 32F10930 0906 0 FFFF nc /FFFF 32F11610 

0993 0 0030 . pc /0030 32F10940 0907 0 OOOA TIME OC JOOOA START OF 32F11620 

0994 0 0010 DC /0010 32F10950 0908 0051 BSS 81 32F11630 

0995 0 8000 DC /80CO 32F10960 * 32F11640 

0996 0 CO000 pc /C000 32F10970 | OA2A O5€9 END GO 32F11650 

0997 0 £000 OC /E000 32F10980 : 

0998 0 F000 oC /F000 32F10990 

0999 0 7800 OC 47800 COL 20 32Fi1000 

099A 0 3C00 DC /3C00 32F11010 ! 

0998 O 1€00 oc /1€00 32F11020 

099C 0 OFOO DC /0FOO 32F11030 

0992 0 0780 DC /0780 32F11040 

O099E 0 03CO oc '703C0 32F11050 

099F 0 O1€0 DC /01€0 32F11060 

O09A0 0 OOFO OC /O0FO 32F11070 

O9Al1 0 oO70 oc /0070 32F11080 

0942 0 0030 DC /0030 32F11090 

0943 0 0010 DC /0010 COL 30 32F11100 

O9A4 0 FFFO OC /FFFO 32F11110 

O9AS 0 FFFO DC /FFFO 32F11120 

0946 0 0010 DC 40010 32F11130 

O9AT 0 0030 Oc /0030 32F11140 

O9A8 0 GO7G OC. /0070 32F11150 

0349 0 OOFO DC /00FO 32F11160 

O9AA 0 OLEO oc /O1E0 32F11170 

09AB 0 03C0 DC /03C0 32F11180 

O9AC 0 0780 oc /0780 | 32F11190 

O9AD 0 OFOO oc /OFOO COL 40 32F11200 

O9AE O IE00. oC /1E00 32F11210 

O9AF 0 3C00 oc /3C00 32€11220 

0980 0 7800 DC 47800 32F11230 

09B1 O F000 pc /F000 32F11240 

09B2 0 €000 DC /E000 32F11250 

9983 0 Ccooo DC /C000 32F11260 

09B4 O 8000 CC 78000 32F11270 

0985 0 0010 DC /CO10 32F11280 

0986 0 0030 DC 40030 32F11290 

0987 0 0070 OC /0070 COL 50 32F11300 

0988 0 OOFO DC /O00FO 32F11310 

0939 0 O01€0 oc /01€0 32F11320 

09BA 0 03CO oc /03CO - 32F11330 

098B 0 0780 oc /0780 32F11340 

0O9BC 0 OFOO oC. /O0F0O0 32F11350 

09BD O 1€00 oc /1€00 32F11360 

O9BE 0 3C00 NC 73C00 32F11370 

O9BF O 7800 DC 47800 32F11380 

09CO 0 F000 pC /F000 32F11390 

09C1 0 E000 DC /E000 COL 60 32F11400 

09C2 0 C000 OC /C000 32F11410 

09C3 0. 8000 oC /8000 32F11420 

09C4 0 7FFO DC /TEFO 32F11430 

09C5 0 BFFO DC /BFFO 32F11440 

09C6 0 ODFFO oc /DFFO 32F11450 

09C7 0 EFFO oc /EFFO 32F11460 

09CB 0 FT7FO DC /FTFO 32F11470 

C9C9 0 FBFO pc /FBFO 32F11480 

O9CA O FDFO DC /EDFO 32F11490 

09C8 O FEFO pc /FEFO COL 70 32F11500 

O9CC O FFTO DC /FFT0 32F11510 

09CD 0 FFBO oc _ JFFBO 32F11520 

O9CE O FFDO oc /FFOO 32F11530 

O9CF O FFEO DC /FFEO 32F1154u 

0900 0 FFCO oC /EFCO 32F11550 

DATE O2JAN66 O1MAY66 . 4 | PROG ID 032F-d > DATE O2JAN66 O1MAY66 : PROG ID o32F-4 

EC NO. 415490 4154908 : _ PAGE 9 mS EC NO. 415490 4154908 © PAGE GA 
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1442 TIMING TEST 


CROSS REFERENCE LISTING 


SYMBOL 


ADD 


~ ADSCT 


AEND 
AINT 
AIVD 
»LD 
AL PHM 
ALPHN 
AL PH] 
ALPH4 
AL PHS 
ALPH6 
ALPHT 
AL PHB 
ALPHS 
ALPLG 
ALP10 
ALP11 
ANINT 
ANRDY 
AQ5A 
ARDY 
ASB 
ASCT 
ASwS 
AWAS 
BEGIN 
BIN8O 
BIT4 
BITS 
BIT6 
BLANK 
BLCOL 
BLEND 
BLFLG 
BRENC 
BSWO 
BSWl 
BSw2 
BSW3 
BUSY 
CHKTM 
CHK] | 
CLCHK 
CLEAR 
CLMAX 
CLMIN 
CMCOL 
CMEND 
COLCT 
COLER 
COL PC 
COLRD 
CONST 
DELAY 
OLPCH 
DSwC 
OSWE 
EAQO 
END 
ERCAL 


ERFLG 


ERRET 
ERROR 


DATE 
EC NCe 


VALUE 
06C5 
0058 
0037 
0044 
0038 
OO3E 
094D 
092C 
O8BA 
O8CA 
0808 
O8E6 
O8Er 
O8F8 
0902 
O95F 
0911 
0921 
0041 
004B 
0019 
004C 
0054 
OOSA 
0050 
0060 > 
0010 
0880 
OTFA 
OB80C 
0814 
OGAF 
O6F5 
0718 
0646 
0738 
O5DE 
O50F 
O5E&0 


O5E1 > 


OTAF 
GT5E 
O757 
O72E 
O6BF 
0870 
0385 
O6FF 
0740 
O088C 
O78E 
O78C 
O7T8A 
O6CC 
0645 
06D6 
0864 
086C 
OO6A 
0015 
O7A9 
0785 


O7A1 
0012 


O2JAN66 
415490 


REFERENCES 
O6CA 
05D0C 
05DC 
050C,0873 
O50C ,C842 
O50C 
0892 
C897 
O83A 
0853 
085B 
0863 
086B 
0872 
O87B 
089C 
0883 
0683 
OS5S0C,C84A 
050C 


o50C 
050C 
050C 
O50C 20843 


o50C 


050C,05E9 

0734 

O7EF 

O7FD 

O8O0F 

OSFO 

06B0 

0634 
05F5,0655,0719 
0717,071C,C81B8,0835 
061C,0720,0724 
0632,0771,0774 
OSF8 


O7AC 
O72F 
0728 
0764 
0672,068E,069A,06AE, 06BE 


- 065E,067A,0757 


C65A,C676,C760 

0601 ,06DF, 06EE,0713 
07162C718,0726,0729,0755,076F,077E, 0817 
072C,0730,0741 

O7EB 

0608,06DA,C73C 

06E2,06EF, 06F1,06F 8,O073A 
06C4,06C5 

062C ,06D4 

0607 

0662 ,067E,069E,0708,070A,0710 
0745,C7T4A,074F,0751 

o7o0l 

0O50C 

O79F,0TAF 


062010794, C795,0796- O79E,O7ED, O7FO,07TFBsO7FE ,080D, 


0810 
OTAE 
O5D0C,07A9 


OLMAY66 
4154908 
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ERR1 
ERR1O 
ERR1L1 
ERR2 
ERR3 
ERR4 
ERRS 
ERR6 
ERRT 
ERRB 
ERRI 
ERSCN 
ERTST 
ETRAP 
FOEND 
FEED 
GO 
HALT 
ILCRP 
ILIR 
ILPAT 
ILO 
Iul 
IL2 
IL3 
IL4 
INITL 
LOCOL 
LGBSY 
LGCAL 
LGFLG 
LGMSG 
LGSCN 
LOG 


LOGBY > 


LSTCD 
MASK 
MAXCK 
MINCK 
MLSCF 
MLSC2 
MLSC3 
MLSC4 
MSGAD 
MSGLG 
MSGM 
MSGNR 
MSG1 
MSG10 
MSG11 
MSG2 
MSG3 
MSG4 
MSG5 
MSG6 
MSG7 
MSG8 
MSG9 
NOCOL 
NOEND 
NDRD 
NEXT 
NOTRY 
NRDSW 
NRDY 
OPEND 
PCCOL 
PID 


DATE 


EC NO. 


0700 
0828 
0833 
O7E1 
O7E5 
OTES 
O7FB 
0800 
0815 
0819 
0810 
0792 
0796 
0018 
O71°5 
O68F 
OSE9 
0014 
0030 
0036 
0032 
0028 
0029 
OO2A 
0028 
002C 
05¢eC 
6730 
O7TCF 
o7C8 
07D5 
o7ce 


0786 


0013 
0016 
0771 
0765 
O72A 
072C 
O5E4 
OS5SE5 
OS5E6 
OSET 
O7AB 
0899 
O88F 
0894 
0837 
O87F 
0887 
O83F 
0847 
084F 
0857 
O85F 
0867 
O86F 
0877 
O6ED 
0710 


0698 


o707 
O64E 


0768 


0769 
0728 
0600 
o50C 


O2JAN66 


415490 


0656 

0762 

0736 

C633 . 
O6CT i 
06D2,06E0 
O6E9 

CTOE 

0753 

0732 

0758 

O73E,O7DF,CTE3OTET 

O7A3 

050C 

0690 

0635 

05E3,0A29 

050C 

O050C ,066A,0686,0692,06A6,06B6 
osoc 

O50C 

050C , 0666, 0682,06A2, 0682 
050C 

csoc 

osoc 

osoc 

O5E2,05F6 

0727,0831 

o7cc 

0780,07C2,07CF 

0625 ,0650, 076940 76D,0778,077TCs 0798, 0789 
Oo7C8 

0652,0797,C799 
O5DC,05F8,C7C9 

050C 

0749 

O70C,0722,C773 

0750 


0826 


OSEF,0603,07A5.0781,0701,07D9 
0631 

O5F2 

0638,063D,0642 

C7A1,07B8 

O07B8A,07CB 

OSFD 

O78F 

O7AB,07B6 

C82C.082F 


O78E,CTF4,CTF6 
0802,0806, 0808 


0821,0824 
06A0 

O6A4 

0620 

O7cT 

C64A 

0747 

0748 
0662,0684 
0664 
05EBs066E,068A,0696, 06AA,06BA 


O1LMAY66 
415490B 
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1442 TIMING TEST 


PMAX 
PMIN 
PUNCH 
RDATA 
ROCOL 
READ 
READY 
RMAX 
RMIN 
RQKB 
RQTY 
RSTKB 
SNCOL 
SNEND 
SNSRY 
START 
STFD 
STPCH 
STRO 
SVKB 
TEST 
TEST] 
TEST2 
TEST3 
TIME 
TIMER 


TSTER 


WASSB 
WS8CL 
WIRET 


DATE 
EC NO. 


065C 
0658 
0654 
9985 
O6DE 
0673 
0647 
06738 
0674 
0034 
0033 
0017 
0788 
0790 
0780 
0011 
0786 
0784 
0722 
0035 
OSF8 
0601 
0606 
0618 
0907 
06C3 
0710 
O89E 
OBAA 
0706 


O2JAN66 
415%90 


O60E 
O60A 
O63E 


06E 4, OE 6¢ COFALO71Es 0738,078A,07BC yO 7F220800,0804 


0680 

0639 

O064C -0654,0673,068F, 0698 » O6AF 
0616 

0612 

050C 

c50C 

050C 

O6F6,0706 

O0T43 

0648 

OSDC » 0604, 0643,0 7A7,07B83 -0703,0708 
0698,07735 . 

0670 

068C,06AC, 068C 

O5DC 

O5ED, 060). 

OSFE . 

O5SF9 

0606,0707 
0704,0759-C75E,081F,082A 

O060C ,-06EB,C6F3,06FD,07F8, 080A 
0812 

0862,C86A,08BA 


0952, 085A, C87A,0882 


O7CS,.C7CE 


O1MAY66 
4154908 
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1442 TIMING TEST 


PMAX 
PMIN 
PUNCH 
RDATA 
ROCOL 
READ 
READY 
RMAX 
RMIN 
RQKB 
RQTY 
RSTKB 
SNCOL 
SNEND 
SNSRY 
START 
STFO 
STPCH 
STRO 
SVKB 
TEST 
TEST] 
TEST? 
TEST3 
TIME 
TIMER 


TSTER 


WASSB 
WS3CL 
WIRET 


DATE 


EC NOe 


065C_ 
0658 
065% 
9985 
06DE 
0673 
0647 
0673 
0674 
0034 
0033 
0017 
0788 
0790 
0780 
0011 
0786 
0784 
0782 
0035 
O5F8 
0601 
0606 
0618 
09D7 
06C3 
0710 
O89E 
O8AA 
0706 


O2JAN66 


415%90 


O60E 

O60A 

063E 

O06E 4 ,0O6E 6, COFA,O71LE, 0738 e07T8A,OTBEC eOTF2-0800,0804 
0680 

0639 

064C ,0654,0673,068F, 0698 » O6AF 
0616 

0612 

Q50C 

C50C 

o50C 

06F6,0706 

0743 

0648 

OSDC » C604, 0643,07A7,0783,0703,0708 
0698,07735 . 

0670 

068C,06AC, O06BC 

050C 

05ED,060) 

OSFE 

OSF9 

0606,0707 
0704,0759-eC7T5E,O081F,082A 

O060C ,06EB, C6F3,06FD0,07F8,080A 
o8sl2 

0862,C86A,088A 


-0852,085A, C87A,0882 


O07C5,C7CE 


OLMAY66 
4154908 


PART NOw 2191228 


PAGE 


PROG ID 
PAGE 


il 


o32F-4 
11 


TORO a ee ee 


we 
oe 








